Question

vb下拉框代码

这个下拉框，比如我新建一个文档， 上面写着：列兵
那么我做的那个下拉框里面一按，下面就出现：列兵！
不要直接写的那种代码！ 如:
Private Sub Form_Load()
Combo1.AddItem "列兵"
Combo1.AddItem "下士"
Combo1.AddItem "将军"
End Sub
我不要这种！就要我说的那种！ 直接给代码！
这个Private Sub form_load()
Dim R As String
Open "d:\1.txt" For Input As #1 '
Do While Not EOF(1)
Line Input #1, R
Combo1.AddItem R
Loop
Close #1
End Sub
是指定D盘上的1.txt，那么别人把我制作的软件给下载了，它解压在E盘，那指定的是D盘就无法显示，如果我把软件打包了，里面有1.txt 也有工程1，它被放在E盘，怎么才能显示出来呢？ F盘 G盘呢? 或自动读取？？

我急急急急急急 啊

Answer 1

是不是这样：
private sub form_load()
dim R as string
open "c:\1.txt" for input as #1 '假设你的文档是c:\1.txt
do while not eof(1)
line input #1,r
Combo1.additem r
loop
close #1
end sub
如果这样，就直接用1.txt，但要注意的是你的1.txt要和你的程序放在同一文件夹中。

Answer 2

private sub Combo1_click()
dim txt as string
open "c:\新建文档.txt" for input as #1
do while not eof(1)
line input #1,txt
Combo1.AddItem txt
loop
close #1
end sub
不知你要的是不是这种。