您现在的位置:首页 >> 实验指导 >> 内容

实验二 基本控件

时间:2009-11-16 11:21:53 点击:1649

 

【实验目的】

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 窗体运行界面

若在文本框内选中内容,单击“剪切”、并将光标定位在文本框中的任意位置,再单击“粘贴”按钮后,所选定的内容将移至当前光标所在位置;若在文本框内选中内容,单击“复制”、并将光标定位在文本框中的任意位置,再单击“粘贴”按钮后,则所选定的内容将在当前光标所在位置处复制一份相同内容。如图8所示。

8  在文本框中选定对象

若要退出程序运行回到窗体设计状态,可单击“退出”按钮或单击常用工具栏中的“

”结束按钮。


作者:Admin  
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4