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

实验一 创建一个简单的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所