vb 常用内部控件

1,第6章 常用内部控件,6.1 选项控件6.2 图形和图片控件6.3 滚动条控件6.4 计时器控件6.5 框架控件6.6 键盘事件 6.7 鼠标事件6.8 焦点事件,2,6.1 选项控件,框架控件用来放置其他控件对象。框架对象就像是一个控件的容器，可以把不同的对象放在同一个框架中，使这些对象成为可以区分的控件组。 可以放置其他控件对象的控件，称为容器控件，简称容器。在Visual Basic中可作为容器的控件常用的有框架控件、图片控件等。容器控件的主要作用是对控件进行分组，放在容器中的控件会随容器的移动而移动，随容器的删除而删除。,3,一般情况下，要把控件对象放置在容器中，要先画容器控件，再在容器中直接画控件对象。若要把事先画好了的控件对象移到容器中来，不能直接使用拖动的方法，应先将事先画好的控件剪切到剪切板中，再选中容器，然后粘贴控件。,4,Visual Basic 60包括3种版本，分别为学习版、专业版和企业版。这些版本是在相同的基础上建立起来的，因此大多数应用程序可在3种版本中通用。3种版本适合于不同的用户层次。 3种版本中，企业版本功能最全，专业版本包括了学习版本的功能。 本书使用的是Visual Basic 60中文企业版，但其内容可用于专业版和学习版，所有程序都可以在专业版和学习版中运行。,5,6,例6-1 设计如图6-1的运行界面，并实现单击字体和颜色可以改变窗体中标签标题的字体和颜色。,7,8,（2） 事件代码编写 选中宋体Private Sub OptFont1_Click() LblDisplay.FontName = 宋体End Sub 选中隶书Private Sub OptFont2_Click()LblDisplay.FontName = 隶书End Sub 选中黑体Private Sub OptFont3_Click()LblDisplay.FontName = 黑体End Sub, 选中红色Private Sub OptColor1_Click()LblDisplay.ForeColor = vbRedEnd Sub 选中绿色Private Sub OptColor2_Click()LblDisplay.ForeColor = vbGreenEnd Sub 选中蓝色Private Sub OptColor3_Click()LblDisplay.ForeColor = vbBlueEnd Sub,9,6.2 选项控件,图6-2 学生选课窗口,10,6.2.1 单选按钮（OptionButton）,11,例6-2 设计一个如图6-3的界面，并实现单击“小”、“中”或“大”选项，可以改变标签对象的字号。,12,13,选中“小”时，字号设为12Private Sub Option1_Click() LblDisplay.FontSize = 12End Sub选中“中”时，字号设为20Private Sub Option2_Click()LblDisplay.FontSize = 20End Sub选中“大”时，字号设为28Private Sub Option3_Click()Lbldisplay.FontSize = 28End Sub,14,6.2.2复选按钮（CheckBox）,15,例6-3设计一个如图6-4的界面，并实现对文本框的内容的字号、字形和颜色的改变。,16,17, 单击加粗时的事件代码，若复选按钮选中，则设置文 本框的FontBold属性值为True， 否则为FalsePrivate Sub Check1_Click()If Check1.Value Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd Sub,18, 单击倾斜时的事件代码，若倾斜按钮选中，则设置文本 框的FontItalic属性值为True，否则为FalsePrivate Sub Check2_Click()If Check2.Value Then Text1.FontItalic = TrueElse Text1.FontItalic = FalseEnd IfEnd Sub,19, 单击蓝色时的事件代码，若蓝色按钮选中，则设置文本 框的ForeColor属性值为，否则为vbBlack Private Sub Check3_Click()If Check3.Value Then Text1.ForeColor = vbBlueElse Text1.ForeColor = vbBlackEnd IfEnd Sub,20, 单击“大号字”按钮的事件代码，设置文本框的FontSize属 性的值为28。Private Sub Option1_Click()Text1.FontSize = 28End Sub 单击“中号字”按钮的事件代码，设置文本框的FontSize属 性的值为20。Private Sub Option2_Click()Text1.FontSize = 20End Sub 单击“小号字”按钮的事件代码，设置文本框的FontSize 属性的值为12。Private Sub Option3_Click()Text1.FontSize = 12End Sub,21,6.2.3 列表框（ListBox）,22,23,例6-4设计一个如图6-5的界面，并实现对列表框的项目的添加、删除以及清除列表框的全部项目的功能。,24,25, 添加命令按钮代码Private Sub CmdAdd_Click() Call List1.AddItem(Text1.Text) Text1.Text = End Sub 添加删除按钮代码Private Sub CmdDelete_Click() If List1.ListIndex -1 Then Call List1.RemoveItem(List1.ListIndex) End If End Sub,26, 添加清除按钮代码Private Sub CmdClear_Click() Call List1.ClearEnd Sub 添加退出按钮代码Private Sub CmdExit_Click() EndEnd Sub,27,AddItem方法：向列表框添加项目。格式为：Object.AddItem Item,Index其中：Object是列表框对象的名称；Item是要添加到列表框中的字符串；Index是要添加的位置（整数值），若缺省，表示将项目添加到列表框的末尾。对于 ListBox 或 ComboBox 控件的首项，index 为 0。例题中的语句Call List1.AddItem(Text1.Text)的作用是将文本框Text1中的文本作为一个项目添加到列表框List1中去。注意小括号不能少，因为Text1.Text是对象的属性名，是一个变量。,28,RemoveItem方法：从列表框中删除项目。格式为：Object.RemoveItem Index其中：Object是列表框对象的名称；Index是指要删除项目的顺序号（整数值）。例题中的语句Call List1.RemoveItem(List1.ListIndex)的作用是删除列表框中所选中的项目。属性ListIndex是指列表框中选中项目的下标。,29,Clear方法：删除列表框中的所有项目。格式为：Object.Clear其中：Object是列表框对象的名称。,30,31,6.2.4 组合框 (ComboBox),组合框在工具箱中的名称为ComboBox。组合框与列表框的功能相似。在结构上，组合框控件是将文本框控件和列表框控件结合在一起，所以组合框控件的特性也是将文本框控件和列表框控件的特性结合在一起，既可以在组合框控件的文本框部分输入信息，也可以在组合框控件的列表框部分选择一项。,32,例6-5设计一个如图6-6的界面，并实现对组合框的内容的添加、删除以及清除组合框的全部项目。,33,事件代码编写四个命令按钮的单击事件的代码如下： 添加命令按钮代码Private Sub CmdAdd_Click() Call Combo1.AddItem(Text1.Text)Combo1.Text = Text1.TextText1.Text = End Sub 添加删除按钮代码Private Sub CmdDelete_Click() Call Combo1.RemoveItem(Combo1.ListIndex)Combo1.Text = Combo1.List(0)End Sub 添加清除按钮代码Private Sub CmdClear_Click() Combo1.ClearEnd Sub 添加退出按钮代码Private Sub CmdExit_Click() EndEnd Sub,34,6.3 图像和图片控件,图像和图片控件是Visual Basic中用来显示图像和图片功能的两个控件，在窗体界面适当加入图形和图像，可使界面美观大方，更具有亲和力。可加载到这两个控件上的图像文件格式有：位图文件（.bmp，.dib，.cur）、图标文件（.ico）、图元文件（.wmf）、增强型图元文件（.emf）、JPEG或GIF文件。,35,6.3.1 图像框（Image）,36,虽然图像控件和图片控件都是用来显示图形的，两者功能非常相似，但两者还是区别的：Image控件使用的系统资源少，重绘图的速度相对较快；Image控件支持的属性、方法和事件比PictureBox控件少；Image控件只能用于显示图形，而PictureBox控件除了可以显示图形外，还可以作为其他控件的容器，也可以利用剪切板给PictureBox控件添加图形。Image控件能够延伸图形的大小，以适应控件的大小；而PictureBox控件则不能，但PictureBox控件能自动调整控件的大小以使图形全部显示出来。,37,6.3.3 图形文件的装入,两种控件对象装入要显示的图形有三种方法：1设计时装入图形文件2利用剪切板装入图形文件 3在代码中装入图形文件：在事件代码中，可使用LoadPicture ( )装入图形文件，格式如下：Object.Picture= LoadPicture (FileName ),38,例6-7设计如图6-7所示的界面，演示Image控件对象的Stretch属性和Picture控件对象的Autosize属性的效果。,39,事件代码编写Private Sub Command1_Click() Image1.Stretch = False Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() Picture1.AutoSize = True Command2.Enabled = FalseEnd SubPrivate Sub Form_Load() Image1.Picture = LoadPicture(C:windowshlpglobe.gif) Picture1.Picture = LoadPicture(C:windowshlpglobe.gif)End Sub,40,6.4 滚动条控件,41,例6-8 设计一个如图6-8运行界面，要求通过移动红绿蓝的滚动条可以改变颜色效果中的色彩，同时文本框会相应显示红绿蓝的值。,42,事件代码编写 红色的滚动条改变事件Private Sub HScroll1_Change() Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text1.Text = HScroll1.ValueEnd Sub 绿色的滚动条改变事件Private Sub HScroll2_Change() Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text2.Text = HScroll2.ValueEnd Sub 蓝色的滚动条改变事件Private Sub HScroll3_Change() Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Text3.Text = HScroll3.ValueEnd Sub,43,6.5 计时器控件,44,例6-9 设计一个界面如图6-9的窗体，要求显示的时间与系统时间一致，且时间文本在窗体中左右不停地移动。,45,事件代码编写 在窗体装入时，设置计时器时间间隔为100毫秒。Private Sub Form_Load() Timer1.Interval = 100 End Sub 计时器的触发事件，用于更新标签的标题，Private Sub Timer1_Timer() Label1.Caption = 现在时间是: & Time If Label1.Left = vbKeyA And KeyCode 0 Then Label1.Left = Label1.Left - 20 Else Label1.Left = Form1.Width End IfEnd SubPrivate Sub Timer2_Timer() If Label1.Left Form1.Width Then Label1.Left = Label1.Left + 20 Else Label1.Left = 0 End IfEnd Sub,63,6.7.3 MouseMove事件,MouseMove事件的语法格式如下：格式1：Private Sub Form_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)或格式2：Private Sub object_MouseMove(index As Integer, button As Integer, shift As Integer, x As Single, y As Single)其中格式1是窗体的鼠标移动事件，格式2是其它对象的鼠标移动事件。,64,object：是引发该事件的对象名称。index：是一个整数，如果对象是控件数组中的一个，则使用Index参数标识该控件。button: 该参数返回的是一个整数，它对应鼠标各个按钮的状态。当鼠标左按钮被按下，button的返回值为1；当鼠标右按钮被按下，button的返回值为4；当鼠标中按钮被按下，button的返回值为2；当鼠标左、右按钮同时被按下，button的返回值为5；当鼠标左、中按钮同时被按下，button的返回值为3；当鼠标中、右按钮同时被按下，button的返回值为6；当鼠标左、中、右按钮同时被按下，button的返回值为7。shift：该参数用来响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。当shift的值为0时，表明SHIFT 键、CTRL 键和ALT 键都没有按下；当shift的值为1时，表明按下SHIFT 键；当shift的值为2时，表明按下了CTRL 键；当shift的值为4时，表明按下了ALT 键；当shift的值为3时，表明同时按下了SHIFT 键和CTRL 键；当shift的值为5时，表明同时按下了SHIFT 键和ALT 键；当shift的值为6时，表明同时按下了CTRL 键和ALT 键；当shift的值为7时，表明同时按下了SHIFT 键、CTRL 键和ALT 键。x, y：这两个参数返回一个鼠标指针的当前位置。,65,6.7.4 MouseDown事件,格式1：Private Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)或格式2：Private Sub object_MouseDown(index As Integer,button As Integer, shift As Integer, x As Single, y As Single),66,6.7.5 MouseUp事件,格式1：Private Sub Form_MouseUp(button As Integer, shift As Integer, x As Single, y As Single)或格式2：Private Sub object _MouseUp(index As Integer,button As Inte