[工学]实验-vb控件.doc

  1. 1、本文档共9页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
[工学]实验-vb控件

实验一 创建一个简单的Visual Basic应用程序,使其能够完成以下功能。 1. 2. 实验步骤 在窗体中创建2个标签、1个文本框和2个按钮,对象建立后如图1所示; 代码编写:略 图1 实验二 建立一个允许剪切、复制和粘贴的简单便笺板程序。 分析:根据题意,建立一个文本框输入文本,文本框初值为空,在程序运行时,用户输入正文并允许显示多行,建立四个命令按钮分别实现题目要求的功能。 【实验步骤】 1.在设计窗体中创建1个标签、1个文本框和4个按钮,对象建立后如图2所示; 图2 创建对象后的窗体 2.?????????????设置各控件的属性值; 3.?????????????将各控件的属性设置完成后,窗体界面如图3所示; 图3 设置属性后的窗体 4.编写代码 代码如下: Dim st As String Private Sub Form_Load() Label1.FontSize = 16 Text1.FontSize = 10 Command1.FontSize = 10 Command2.FontSize = 10 Command3.FontSize = 10 Command4.FontSize = 10 End Sub Private Sub Command1_Click() st = Text1.SelText Text1.SelText = End Sub Private Sub Command2_Click() st = Text1.SelText End Sub Private Sub Command3_Click() Text1.SelText = st End Sub Private Sub Command4_Click() End End Sub 5.调试运行程序 程序运行后,在文本框中输入任意一串字符“”,如图4所示。 图4 窗体运行界面 若在文本框内选中内容,单击“剪切”、并将光标定位在文本框中的任意位置,再单击“粘贴”按钮后,所选定的内容将移至当前光标所在位置;若在文本框内选中内容,单击“复制”、并将光标定位在文本框中的任意位置,再单击“粘贴”按钮后,则所选定的内容将在当前光标所在位置处复制一份相同内容。 实验三 用标签制作浮雕效果文字 利用两个标签控件,在设计时通过白色/黑色错位叠加,实现图5所示的文字浮雕效果。 图5 浮雕效果文字 (1)在窗体上放置两个标签控件,其Caption属性均为“ VB6.0 中文版”,字号均为“初号”,字体均为“隶书”。调整标签的宽度和高度,使文字分两行显示。 (2)按表1设置两个标签的其他属性。 表1 标签控件属性 控件名 背景样式(BackStyle) 边框样式(BorderStyle) 前景色(ForeColor) 左(Left) 顶(Top) Label1 1 - Fixed Single 1 – Opaque (不透明) H00FFFFFF(白) 324 324 Label2 0 - None 0 – Transparent (透明) 黑) 384 372 用类似的方法,还可以制作如图6所示的阴影文字。 图6 阴影文字 实验四 熟悉Move方法实现对象移动,进一步熟悉控件事件的使用。实验结果界面如图7所示。 图7 运行界面 实验步骤: 将窗体的Caption属性设为“欢迎新同学”;为窗体设置Picture属性(图片可以从C:\Windows\Web\Wallpaper中取,也可放自己喜欢的照片),设置窗体不可改变大小。 在窗体上添加两个标签,Caption属性为“欢迎新同学”,并将其设置为浮雕效果(提示:浮雕效果可以由两个背景风格为透明、前景颜色不同、位置稍有错位的标签重叠而成)。 添加两个命令按钮Command1 和Command2,清空Caption属性,将Style属性设置为1-Grapical,分别为Picture属性设置图标文件“Point02.ico”、“Point04.ico”(图标文件位于VB的安装目录下\Common\Graphics\Icons\Arrows文件夹中)。 双击Command1,添加如下代码: 提示:通过标签的move方法改变标签的left属性值 双击Command2,添加如下代码: 提示:通过标签的move方法改变标签的left属性值 将窗体和工程文件保存在自己的文件夹中。 单击F5,试验运行本程序,直至满意为止。 思考:根据Move方法的语法“对象名.Move left, top, width, height”,修改上述程序还可以有哪些变化?试一试。 实验五 创建标签滚动效果 实验步骤: 在窗体上放置一个label控件,一个定时器timer控件。 设置对象属性,如图8所

文档评论(0)

qiwqpu54 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档