一、时钟
二、滚动条
三、列表框
四、复选框
五、单选框
六、组合框
七、多分枝选择
八、定义函数
九、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.Lis