vb Combo1控件问题
请问如何让Combo1直接显示本程序下cc.txt的数据cc.txt书写格式为022,360021,482020,869020,868020,869020,869020,...
请问如何让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的排序代码该如何写 展开
cc.txt书写格式为
022,360
021,482
020,869
020,868
020,869
020,869
020,869
020,869
020,861
行也按照cc.txt的排序代码该如何写 展开
4个回答
展开全部
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
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
展开全部
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
'注:文件路径表述参阅相关书本。
open "文件路径。相对路径前加APP.PATH" for input as #1
do until EOF(1)'直到文件末尾停止自行DO循环。即停止读取文件内容
line input #1,A '每次读取一行
COMBO1.ADDITEM A'读取后添加
LOOP
close #1
'注:文件路径表述参阅相关书本。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
要实现这样的功能其实很简单,不过你需要一个记录表,用一位数组表示,从里面查看记录,从记录中自动填充,需要代码的话可以继续追问,并附上你想要的功能。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询