Question

vb Combo1控件问题

请问如何让Combo1直接显示本程序下cc.txt的数据

cc.txt书写格式为
022,360
021,482
020,869
020,868
020,869
020,869
020,869
020,869
020,861

行也按照cc.txt的排序代码该如何写

Answer 1

Private Sub Form_Load()
Dim STR As String '定义变量
'初始化信息
Combo1.Text = ""
'打开文件
Open "F:\DATA.TXT" For Input As #1
'循环至文件尾
Do While Not EOF(1)
'把行数据赋给变量
Line Input #1, STR
'判断变量是否为空,不为空时ComboBox才加载数据
If STR <> "" Then Combo1.AddItem STR
Loop
'关闭文件
Close #1
'初始化ComboBox的默认数据为第一个加载的记录
Combo1.Text = Combo1.List(0)
End Sub

Answer 2

dim A as string
open "文件路径。相对路径前加APP.PATH" for input as #1
do until EOF(1)'直到文件末尾停止自行DO循环。即停止读取文件内容
line input #1,A '每次读取一行
COMBO1.ADDITEM A'读取后添加
LOOP
close #1

'注：文件路径表述参阅相关书本。

Answer 3

要实现这样的功能其实很简单，不过你需要一个记录表，用一位数组表示，从里面查看记录，从记录中自动填充，需要代码的话可以继续追问，并附上你想要的功能。

Answer 4

Dim
t
As
String
Combo1.Clear
Open
"1.txt"
For
Input
As
#1
'此路径可以更改
Do
While
Not
EOF(1)
Line
Input
#1,
t
Combo1.AddItem
t
Loop
Close
#1