Question

VB里LIST控件的问题

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

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

Answer 1

答案补充：写上完整路径就行啊。例如
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

Answer 2

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

Answer 3

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