第三节VB程序设计常的用控件.pptVIP

Visual Basic 程序设计常用控件;教学基本要求：1. 能够阐述VB常用控件的作用及特点2. 会用VB中标签控件及其属性设计方法 3. 会用VB中文本框控件及其属性设计方法 4. 会用VB中命令按钮控件及其属性设计方法 5. 树立事件驱动面向对象程序设计的思想;一、标签;2．标签事件 标签能响应单击（Click），双击（DblClick）等事件。不过在Visual Basic程序中，标签往往起着文本信息提示的作用，因此实际编程中，一般不需写标签的事件过程。 ;二、文本框;（3）ScrollBars属性：当MultiLine为True时，ScrollBares属性有效果。设置文本框的滚动条。 0―None：无滚动条。 1―Horizontal：水平滚动条。 2―Vertical：垂直滚动条。 3―Both：同时有水平和垂直滚动条。 （4）Locked属性：设置文本框是否被锁定。默认值为False不锁定，所以可编辑。Locked属性设为True，文本框不可编辑。此时，文本框功能上相当于标签。 （5）PassWordChar属性：密码字符，当文本框输入或显示的内容不想以明文的形式被人看到时，比如密码登录窗口。则可在该属性设置一个字符，如“*”，此时在文本框输入的任何字符都以“*”显示。 （6）MaxLength属性：设置文本框能够输入的正文内容的最大长度。默认值为0，表示可以输入任意多个字符。 （7）SelStart、SelLength和SelText属性：选中文本的相关属性。 SelStart：选中文本在文本框中的开始位置，第一个字符位置为0。 SelLength：选中文本的正文长度。 SelText：选中文本的正文内容。;【例】建立一个加法器的应用程序，运行效果如图所示。 要求： a．窗体上有三个文本框，上面两个用于输入加数，单击“=”按钮，将两个数的和显示在下面一个文本框中。 b．三个文本框的对齐方式均为右对齐，设置相关属性使得下面一个文本框不能进行编辑操作。 c．设置相关属性使得上面两个文本框均不接受非数字键。 d．单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。;程序代码如下： Private Sub Form_Load() 属性设置可在设计阶段属性窗口完成 Form1.Caption = 加法器 Text1.Text = Text2.Text = Text3.Text = Text1.Alignment = 1 文本框右对齐 Text2.Alignment = 1 Text3.Alignment = 1 Text3.Locked = True 第三个文本框不能编辑 End Sub Private Sub Command1_Click() Val()函数将文本类型转换为数值类型 Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus 文本框获得焦点 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 用户输入非数字，则取消输入操作 If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub ;三、命令按钮;【例】建立一个类似记事本的应用程序，运行界面如图所示。 要求： a．设计4个命令按钮，分别可以实现对选中的文本进行“复制、剪切、粘贴、删除”功能； b．文本框Text1可以多行显示文字。;代码如下： Dim str1 As String 通用变量 Private Sub Command1_Click() 复制 str1 = Text1.SelText End Sub Private Sub Command2_Click() 剪切 str1 = Text1.