Option Explicit

来源:百度知道 编辑:UC知道 时间:2024/05/16 17:11:02
Option Explicit

Private Sub Command1_Click()
Dim strline As String
Open App.Path & "\3-1.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, strline
List1.AddItem strline
Loop
Close #1

End Sub

Private Sub Command2_Click()
Open App.Path & "\3-01.txt" For Output As 1
Do While Not EOF(1)

Print #1, strline
List1.AddItem strline
Loop

End Sub

Private Sub Form_Load()
Dim Combo1 As Control
Dim Combo2 As Control
Dim List1 As Control
List1.ListIndex = 0
Combo1.AddItem "10"
Combo1.AddItem "13"
Combo1.AddItem "16"
Combo1.AddItem "19"
Combo1.AddItem "22"
Combo1.AddItem "25"
Combo1.AddItem "28"
Combo1.AddItem "31"
Combo1.AddItem "34"
Combo1.AddItem "37"
Combo1.AddItem "40&q

我说,不能用这种方法的吧?要用Combo1,Combo2和List1在窗体设计器中直接添加ComboBox和ListBox得了,要用Control类型干什么呢.Control是通用控件类型,VB怎么知道哪个是COMBO哪个是LIST呢.
方法:
去掉Dim Combo1 As Control...Dim List1 As Control
后在
窗体设计器中直接添加ComboBox两个和ListBox一个