Question

vb Check1

Private Sub Command1_Click()
If Check1.Value = 1 Then
Shell ("C:\程序名字.exe") '路径
End If
End Sub

我想在多加几个 Check2 Check3 Check4 得怎么写？

Answer 1

也是一样的阿

Private Sub Command1_Click()
If Check1.Value = 1 Then
Shell ("C:\程序名字.exe") '路径
End If
If Check2.Value = 1 Then
Shell ("C:\程序名字.exe") '路径
End If
If Check3.Value = 1 Then
Shell ("C:\程序名字.exe") '路径
End If
End Sub

Checkbox 是多选，如果是Optionbox 就要放在panel里面好一点

Answer 2

你可以把check 控件作成数组
把程序路径放在另外一个数组,比如mAppPath里

然后
Private Sub Command1_Click()
for i = 0 to 19
If Check1(i).Value = 1 Then
Shell mAppPath(i)
End If
next i
End Sub