VB里LIST控件的问题

Private Sub Form_Load()
List1.AddItem "啊哈"
List1.AddItem "几个奶"
List1.AddItem "几个奶"
End Sub

如何做到每个的内容都有一个命令（例如打开EXE啊，关机啊）
然后选中某个，单击COMMAND就会运行代码
如果我要运行 Shell "*:/*.exe"的呢，该怎么写

举报该文章

相关建议 2008-08-11

答案补充：写上完整路径就行啊。例如
Shell "C:\Program Files\Microsoft Office\OFFICE11\winword.exe", vbNormalFocus
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
建一个Command1,List1，第一个运行记事本，第二个关机，第三个运行命令提示符。可以自己修改。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Shell Choose(List1.ListIndex + 1, "notepad", "shutdown -s -t 10", "cmd"), vbNormalFocus
End Sub

Private Sub Form_Load()
List1.AddItem "啊哈"
List1.AddItem "几个?"
List1.AddItem "几个!"
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/v8mfqfmq.html

其他看法

第1个回答 2008-08-11

Private Sub Form_Load()
List1.AddItem "啊哈"
List1.AddItem "几个奶"
List1.AddItem "几个奶"
End Sub

Private Sub List1_Click()
Select Case List1.Text
Case "啊哈"
MsgBox "你点的是啊哈"
Case "几个奶"
MsgBox "你点的是几个奶"
End Select
End Sub

第2个回答 2008-08-11

你这里listbox里的不能有两个重复的内容,第三项可以改成另一个项目
Private Sub Command1_Click()
if list1.text="啊哈" then
'在这一行写入你需要执行的代码
else
'在这一行写入你需要执行的另一个代码
list1.lext1.text="几个奶"
end if
End Sub