VB程序设计常用控.ppt

Visual Basic 程序设计常用控件,第三节,教学基本要求： 1. 能够阐述VB常用控件的作用及特点 2. 会用VB中标签控件及其属性设计方法 3. 会用VB中文本框控件及其属性设计方法 4. 会用VB中命令按钮控件及其属性设计方法 5. 树立事件驱动面向对象程序设计的思想,一、标签,1主要属性 （1）名称（Name）：用于设置控件的名字。Name属性是控件对象身份的唯一标识，只能在属性窗口中修改，不能在程序运行阶段改变。 （2）Caption属性：返回或设置标签的显示标题。 （3）BackStyle属性：背景样式。 0Transparent：透明显示，若控件后面有其他控件可透明显示出来。 1Opaque：不透明，默认为不透明样式。 （4）BorderStyle属性：边框样式。 0None：控件周围无边框。 1Fixed Single：控件周围有单边框。 （5）AutoSize属性：设置标签自动调整大小。 True：自动调整大小。 False：标签区域保持原来大小，若是正文字体太大或正文内容太长则会被遮盖掉。 （6）Alignment属性：控件上标题的对齐方式。 0Left Justify：左对齐，默认值为左对齐。 1Right Justify：右对齐。 2Center：居中。,2标签事件 标签能响应单击（Click），双击（DblClick）等事件。不过在Visual Basic程序中，标签往往起着文本信息提示的作用，因此实际编程中，一般不需写标签的事件过程。,二、文本框,文本框是一个文本编辑区域，可在文本框中输入、编辑和显示文本内容。 1主要属性 （1）Text属性：设置或返回文本框中的文本。可以在属性框中修改Text属性；也可在运行时，用户通过键盘输入文本信息，或使用赋值语句改变Text值。 （2）MultiLine属性：设置文本框是否允许多行显示，默认值为False（单行显示）。当设置为True时，可以在需要换行时加入换行符使文本多行显示。该属性只能在设计阶段属性窗口设置，不能在运行时由代码改变。,（3）ScrollBars属性：当MultiLine为True时，ScrollBares属性有效果。设置文本框的滚动条。 0None：无滚动条。 1Horizontal：水平滚动条。 2Vertical：垂直滚动条。 3Both：同时有水平和垂直滚动条。 （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 57 Then KeyAscii = 0 End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End Sub,三、命令按钮,命令按钮是Visual Basic中使用最多的控件之一，当用户选择某个命令按钮时就会执行相应的事件过程，完成诸如启动、中止、结束等操作。 1主要属性 （1）Caption属性：返回或设置标签的显示标题，若在某字符前加“&”符号，该字符就带有下划线。在程序运行的时候，可同时按下Alt键和带下划线的字符，就相当于单击了命令按钮。 （2）Style属性：设置按钮的样式风格。 0Standard：显示文字标题。 1Graphical：可显示文字、图片。 （3）Picture属性：在Style属性为1的情况下，设置Picture属性可在按钮上显示图形（.bmp和.ico）。 （4）ToolTipText：工具提示属性。 按钮若是图形显示的，可用ToolTipText属性给出文字提示。在运行时，鼠标放于按钮上面，浮现出文字提示信息。 2命令按钮常用事件 命令按钮的常用事件是Click事件。注意按钮没有DblClick事件。,【例】建立一个类似记事本的应用程序，运行界面如图所示。 要求： a设计4个命令按钮，分别可以实现对选中的文本进行“复制、剪切、粘贴、删除”功能； b文本框Text1可以多行显示文字。,代码如下： Dim str1 As String 通用变量 Private Sub Command1_Click() 复制 str1 = Text1.SelText End Sub Private Sub Command2_Click() 剪切 str1 = Text1.SelText Text1.SelText = “ End Sub Private Sub Command3_Click() 粘贴 Text1.SelText = str1 End Sub Private Sub Command4_Click() 删除 Text1.SelText = “ End Sub,【例】设计一个类似电灯开关的程序，界面如图所示。 要求：运行时，显示左图；当单击“打印”按钮，窗体打印输出“欢迎使用VB”，同时按钮标题变为“清屏”，如右图所示；当单击“清屏”按钮时，清除窗体打印出的文字，按钮标题变“打印”，如左图所示。,程序代码如下： Private Sub Command1_Click() If Comma