vb下拉框代码

这个下拉框,比如我新建一个文档,上面写着:列兵那么我做的那个下拉框里面一按,下面就出现:列兵!不要直接写的那种代码!如:PrivateSubForm_Load()Comb... 这个下拉框,比如我新建一个文档, 上面写着:列兵
那么我做的那个下拉框里面一按,下面就出现:列兵!
不要直接写的那种代码! 如:
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盘呢? 或自动读取??

我急急急急急急 啊
展开
 我来答
lxz1969
2009-04-24 · TA获得超过1.1万个赞
知道大有可为答主
回答量:8524
采纳率:33%
帮助的人:1.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要和你的程序放在同一文件夹中。
99tools
2009-04-24 · TA获得超过265个赞
知道小有建树答主
回答量:445
采纳率:100%
帮助的人:191万
展开全部
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
不知你要的是不是这种。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式