Question

VB6点击按钮分别执行多个label下调用exe程序的问题

我用VB6做了一个程序，直接单击label1或者label2就调用了一个不同的外部exe程序，但是我想改变为选中label1或者label2但不执行调用那个外部的exe程序，而是选中label1或者label2之后点击另外的按钮才执行选中的那个label的调用程序，请教高手代码怎么写。

Answer 1

将多个label1改为数组,发下代码完成你的效果:

Dim exeindex As Integer

Private Sub Command1_Click()
Select Case exeindex
Case 0
MsgBox exeindex '替换成你要执行的语句
Case 1
MsgBox exeindex
Case 2
MsgBox exeindex
End Select
End Sub

Private Sub Label1_Click(Index As Integer)
exeindex = Index
For i = 0 To Label1.UBound '点击过的背景变红
If i = Index Then
Label1(i).BackColor = vbRed
Else
Label1(i).BackColor = &H8000000F
End If
Next
End Sub

'为什么要用label呢,用个radio单选按钮多直观