第3课VB基本控件、事件、属性实验二-基本控件.doc

实验二 基本控件
【实验目的】
1．掌握基本控件在窗体中的创建方法；
2．熟悉基本控件的属性设置方法；
3．熟练掌握基本控件的常用事件及方法的应用操作；
【实验内容】
1． 建立一个允许剪切、复制和粘贴的简单便笺板程序。
分析：根据题意，建立一个文本框输入文本，文本框初值为空，在程序运行时，用户输入正文并允许显示多行，建立四个命令按钮分别实现题目要求的功能。
【实验步骤】
1． 在设计窗体中创建1个标签、1个文本框和4个按钮，对象建立后如图5所示；

图5 创建对象后的窗体
2． 依据表2所示，设置各控件的属性值；
表2 窗体及对象的属性设置
默认控件名称
标 题
（Caption属性）
文 本
（Text属性）
是否显示多行
（MultiLine属性）
Form1
简单便笺板
无定义
无定义
Label1
请输入内容
无定义
无定义
Text1
无定义
（空白）
True
Command1
剪切
无定义
无定义
Command2
复制
无定义
无定义
Command3
粘贴
无定义
无定义
Command4
退出
无定义
无定义
3． 按表2的要求将各控件的属性设置完成后，窗体界面如图6所示；

图6 设置属性后的窗体
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．调试运行程序
程序运行后，在文本框中输入任意一串字符“”，如图7所示。

图7 窗体运行界面
若在文本框内选中内容，单击“剪切”、并将光标定位在文本框中的任意位置，再单击“粘贴”按钮后，所选定的内容将移至当前光标所在位置；若在文本框内选中内容，单击“复制”、并将光标定位在文本框中的任意位置，再单击“粘贴”按钮后，则所选定的内容将在当前光标所在位置处复制一份相同内容。
若要退出程序运行回到窗体设计状态，可单击“退出”按钮或单击常用工具栏中的“ ”结束按钮。