ABC做一个控件数组
123做一个控件数组
Dim lCurrTypeSel As Long '当前选定的字母
Dim lCurrNumSel As Long '当前选定的数字
Private Sub CmdTypeSel_Click(Index As Integer)
lCurrTypeSel = Index
Call CheckSel
End Sub
Private Sub CmdNumSel_Click(Index As Integer)
lCurrNumSel = Index
Call CheckSel
End Sub
Private Sub CheckSel()
If lCurrTypeSel < 0 Or lCurrNumSel < 0 Then
Exit Sub
End If
'---因为不知道你的图片是用什么实现的,自己改改
MsgBox "当前选定的图片序号为:" & lCurrTypeSel * 3 + lCurrNumSel
End Sub
Private Sub Form_Load()
lCurrTypeSel = -1
lCurrNumSel = -1
End Sub