VB基本控件使用技巧

1、VB基本控件使用技巧实验目的了解并掌握单项选择框、复选框的基本用法。了解并掌握时钟与滚动条控件的基本用法。了解并掌握列表框控件使用技巧。实验题目1)设计一个窗体，有2个框架控件、3个单项选择框、1个文本框、3个复选框。三个单项选择 框所选中的内容显示在文本框中，3个复选框控制文本框中文字的字型。窗体运行的界 面效果如图实验七01所示。图实验七012)设计一个窗体，有1个标签、1个滚动条、2个命令按钮、1个时钟控件。标签显示 当前时间。滚动条控制标签字体的大小。1个命令按钮“暂停”与“继续”时钟的显示，另 1个命令按钮用来控制退出。窗体运行效果如图实验七02所示。,时钟与滚动条(3回区10:24

2、:23图实验七023)设计一个窗体，有3个标签，2个列表框，4个命令按钮。窗体运行时用户可从左边 单项选择或多项选择课程添加到右边，左边原内容自动消失。也可从右边选课程移除到左边。同时， 双击左、有工程也自动移至另一边。窗体运行界面效果如图实验七03所示。列表框综合例如选修课程可选课程拟选课程学学文语赏理程论 一力数语英欣物方概 体等学学乐论分学 一流高大大音理微法添加全部添加移除经济学导论MATLAB编程全部移除图实验七03实验背景及准备1）已学习单项选择框、复选框，了解选中与未选中的Value值。2）已学习时钟与滚动条控件，了解其常用属性。3） 已学习列表框，了解 Listindex、Li

3、st 、Additcin （）、Rcmovcitcms （）等属性。实验过程与主要步骤1）题目一进入VB,放置2个Frame （框架）控件，Caplion属性分别设为“东南亚”与“字型 变化，窗体标题设为“单项选择、复选与框架二3个单项选择框组成一个单项选择控件数组，3个复选 框组成一个复选控件数组。对于控件数组，选中某个控件，Index属性便返回该控件的索引号（序号），因此常用 Index作为控件数组下标。由于复选框在选中与未选中两者间变换，所以可应用逻辑非（NOT）运算。题目一的程序代码如下：Private Sub Check l_Click（Index As Integer）,复选框控件

4、数组Select Case IndexCase 0Text l.FontBold = Not lexll .FontBold逻辑非Textl.Fontltalic = Not Tcxtl.FontltalicText 1 .FontUnderline = Not Textl .FontUnderlineEnd SelectEnd SubPrivate Sub Option l_Click(Index As Integer)，单项选择框控件数组Text 1 .Text = Option l(Indcx).CaptionEnd Sub2）题目二进入VB,放置1个标签、1个水平滚动条（Hscroll

5、bar）、2个命令按钮、I个时钟按 钮。设置滚动条属性（最大值Max=100,最小值Mini=8,点击滚动条内部区域改变值Largechange=10,点击滚动条边界按钮改变值Srnallchange=4)o设置窗体与命令按钮标题属 性。当时钟停时,属性interval=O：时钟动是，Interval取非0值N,表示N亳秒激活一次 Timer事件。此题Timer事件执行Lablel.C叩tion:Time (),使标签显示时间。同时，因为 当滚动条的值(Value)改变(Change)时，标签显示的时间会跟着改变，所以用滚动条得 值作为标签字体的大小，写成命令Label.Fontsize=Hs

6、croll 1 .value.题目二的程序代码如下：Private Sub Command l_Click()If Command 1 .Caption =暂停ThenCommand 1 .Caption =继续Timer 1.Interval = 0ElseCommand I .Caption =暂停Timer 1.Interval = 500End IfEnd SubPrivate Sub Cominand2_Click()EndEnd SubPrivate Sub Form_Initialize() Label 1 .Caption = Time() End SubPrivate Sub

7、 HScrolll_Changc()Label 1 .FontSize = HScrolll.ValueEnd Sub，标签上显示时间Private Sub Timerl_Timer() Label I .Caption = Tiine()End Sub3)题目三进入VB,窗体中放置3个标签，2个列表框，4个命令按钮，修改窗体、标签、命令 按钮的标题。设置列表框属性，左边列表框List属性手工填入所有课程。设置两个列表框 的多项选择属性Multiselect=2o程序中用Add item ()添加列表项，JIJ Removeitem ()移除列表项,JU Selected ()属 性返回是否被

8、选中，用List (i)调出第i个列表项。列表框双击时，直接调用“添加”或“移除”过程。题目三的程序代码如下：添加过程,listcount返回列表项个数,selecied(i)判断是否选中。,additem。添加列表项，list为第i个列表项内容。Private Sub Command 1 _CIick() For i = 0 To List 1.ListCount - 1 If Listl.Selected(i) Then List2.Additem (Listl.List(i)End IfNextFor i = List 1 .ListCount - I To 0 Step -1If Li

9、stl.Selected(i) ThenListl.Rcmoveltem (i)End IfNextIf List!. ListCount = 0 ThenCommand 1 .Enabled = FalseCommand2. Enabled = FalseEnd IfCommands. Enabled = TrueCommand4.Enabled = TrueEnd SubPrivate Sub Conimand2_Click()For i = OTo List 1.ListCount - 1List2.Addltcm (Listl.List(i)NextFor i = List! .Lis

10、tCount - 1 To 0 Step -1List 1.Removeitem iNextCommand 1 .Enabled = FalseCommand2.Enabled = FalseCommands.Enabled = TrueCommand4.Enabled = TrueEnd SubEnd IfNextFor i = List 1 .ListCount - I To 0 Step -1If Listl.Selected(i) ThenListl.Rcmoveltem (i)End IfNextIf List!. ListCount = 0 ThenCommand 1 .Enabl

11、ed = FalseCommand2. Enabled = FalseEnd IfCommands. Enabled = TrueCommand4.Enabled = TrueEnd SubPrivate Sub Conimand2_Click()For i = OTo List 1.ListCount - 1List2.Addltcm (Listl.List(i)NextFor i = List! .ListCount - 1 To 0 Step -1List 1.Removeitem iNextCommand 1 .Enabled = FalseCommand2.Enabled = Fal

12、seCommands.Enabled = TrueCommand4.Enabled = TrueEnd SubTcmoveitcm()移除第i个列表项。列表框1为空，不能再选择。添加以后，总可移除。Private Sub Command3_Click()For i = 0 To List2.ListCount - 1If List2.Selected(i) ThenListl.Addltem (List2.List(i)End ifNextFor i = List2.ListCount - 1 To 0 Step -1If List2.Selected(i) ThenList2.RemoveI

13、tem iEnd IfNextIf List2.ListCount = 0 ThenCommands.Enabled = FalseCommand4. Enabled = FalseEnd IfCommand 1 .Enabled = TrueCommand2.Enabled = TrueEnd SubPrivate Sub Command4_CIick()For i = 0 To List2.ListCount - 1List 1.Additem (List2.List(i)NextFor i = List2.ListCount - I To 0 Step -1List2.RemoveItem iNextCommand 1 .Enabled = TrueCommand2. Enabled = TrueCommands.Enabled = FalseCommand4. Enabled = FalseEnd SubPrivate Sub Listl_DblClick()双击列表项等于调用“添加”过程Call Command