VB总纲电脑基础知识IT计算机专业资料.docxVIP

一、 时钟 二、 滚动条 三、 列表框 四、 复选框 五、 单选框 六、 组合框 七、 多分枝选择 八、 定义函数 九、 TXT 十、数组 一、时钟 程序运行后，每隔2秒命令按钮Commandl向右移动100个单位。 Private Sub Form_Load() Timer 1.Interval = 2 End Sub Private Sub timerl_timcr() Call mymove End Sub Sub mymove() Commandl.Left = Command 1 .Left + 200 End Sub 二、滚动条 为 200 ; SmallChange 设水平滚动条HScrolll 为 200 ; SmallChange 设 置为50 ,水平滚动条HScrolll的值(Value)代表命令按钮Commandl的宽度，当水平滚 动条的滑块变化时，命令按钮Commandl的宽度随之改变 Private Sub Form_Load() HScrolll.Min = 0 HScrollLMax = 4000 HScroll 1 .SmallChangc = 50 HScroll 1 .LargeChange = 200 Command 1.Caption = ?-驻倚靠危楼风细细，无言谁会凭栏意。衣带渐宽终不悔，为伊销得人 憔悴” End Sub Private Sub HScroll l_Changc() Command 1. Width = Val(HScrolll. Value) End Sub 三、列表框 ①点击〃按钮，将左边列表中的选中项移动到右边列表的末尾；点击〃一〃 按钮，将右边列表中的选中项移动到左边列表的末尾;点击〃二〉〃按钮，将左 边列表所有内容移动到右边列表的末尾；点击〃＜二〃按钮，将右边列表所有内 容移动到左边列表的末尾。 务销管财营工Comaiandl ??-会计 国贸亠 务销管财营工 Comaiandl ? ?- 会计 国贸 亠 = A. 亠 Ust2 乂 Private Sub Form_Load() List 1.Addltcm A List 1.Additem ”B“ List 1.Additem ”C“ List2.AddItem ”d” List2.AddItem ”e” End Sub Private Sub Commandl_Click() i = List 1 .Listindex If i = 0 And i = List 1.ListCount ? 1 Then List2.AddItem List 1 .Text Listl .Rcmovcltcm i End If End Sub Private Sub Command2_Click() i = List2.Listindex If i = 0 And i = List2.ListCount ? 1 Then List 1.Additem List2.Text List2.RemoveItem i End If End Sub Private Sub Command3_Click() Dim i% For i = 0 To List 1.ListCount - 1 List2.Addltcm Listl.List(i) Next i List 1.Clear End Sub Private Sub Command4_Click() Dim i% For i = 0 To List2.ListCount - 1 List 1.Additem List2.List(i) Next i List2.Clear End Sub 实现追加、插入、修改、删除、清空等5个按钮的功能 Sub ClrList(AList As ListBox) For i = AList.ListCount ? 1 To 0 Step -1 AList.Removeltem i Next i End Sub Private Sub Command 1 _Click() List 1.Additem Text 1.Text End Sub Private Sub Command2_Click() i = List 1.Listindex With Listl If i = 0 And i = .ListCount - 1 Then .Additem Text 1.Text, i End With End Sub Private Sub Command3_Click() i 二 Listl.Listindex If i = 0 And i v= Listl.ListCount - 1 Then Listl.List(i) = Text