UC知道非高手勿进 VB编写一个读取文件的菜单
来源：百度知道 编辑：UC知道 时间：2024/06/04 07:08:18
在程序当前目录有一文件MPb.ini
这个文件的格式为：
X:\xxx\xxx\xxx.exe-aaa
X:\xxx\xx.exe-bc
...
（一个可执行文件的目录+小行杠+aaa）
程序运行以后读取里面的内容
将里面每行的-后内容添加到菜单里 如果有2行 则菜单为：
aaa
bc
如果点击aaa，则运行文件中aaa的行杠的前面所对应的exe程序
如果点击bc，则运行文件中bc的行杠的前面所对应的exe程序
就这么招了
我是新手 要得是代码啊
本人QQ2895582 家的时候说明一下
这个文件的格式为：
X:\xxx\xxx\xxx.exe-aaa
X:\xxx\xx.exe-bc
...
（一个可执行文件的目录+小行杠+aaa）
程序运行以后读取里面的内容
将里面每行的-后内容添加到菜单里 如果有2行 则菜单为：
aaa
bc
如果点击aaa，则运行文件中aaa的行杠的前面所对应的exe程序
如果点击bc，则运行文件中bc的行杠的前面所对应的exe程序
就这么招了
我是新手 要得是代码啊
本人QQ2895582 家的时候说明一下
1.读取ini文件到变量
2. split(变量,vbcrlf) 到数组1
3.
redim 程序数组(ubound(数组1))
redim 菜单数组(ubound(数组1))
for i=0 to ubound(数组1),然后
a=split(数组1(i),"-")
程序数组(i)=a(0)
菜单数组(i)=a(1)
next
4.将菜单数组加入菜单中
5.根据菜单数组返回值(数组序号)shell相应的程序数组中对应的值..
改成高手勿进差不多，呵呵
我不是高手，所以我进来了
你的问题可以用菜单数组来做，设置一个菜单项，name属性为mnu_exec,index属性为0
然后每读取一行数据，分析出其中的exe文件名之后，使用appendmenu添加一个菜单数组，并且把相应的控件序号i和程序名存入数组a(i)
执行的时候
private sub mnu_exec_click(index...)
shell a(index)
end sub
这样就可以了
这个问题 没那么难把 还非高手勿进呢。。
首先 读取你的X:\xxx\xxx\xxx.exe-aaa
X:\xxx\xx.exe-bc 这些东西
然后 判断"-" 在什么地方出现instr 可以用
再然后 用left(返回"-"的值+1，len(你的整个X:\xxx\xxx\xxx.exe-aaa ))
取出 的就是你的aaa了
最后就 在菜单增加个不可见的菜单 然后就
load 不可见的菜单名(0) 其中0是你的第一个
只要把 你取出的 存入数组 然后把0换成他的序号。。