Hi every1, here is my sub function
Public Sub NaviButton(sButton As String)
Dim iIndx As Integer
Dim iButtonLen As Integer
sButton = Trim$(sButton)
iButtonLen = Len(sButton)
For iIndx = 1 To iButtonLen
If (Mid$(sButton, iIndx, 1) = "1") Then
cmdButton(iIndx - 1).Enabled = True
Else
cmdButton(iIndx - 1).Enabled = False
End If
Next
DoEvents
End Sub
I hv compile error on cmdButton, which is "expected variable or procedure, not enum type).
Is anyone can tell me what happen on my code?
Thx
Public Sub NaviButton(sButton As String)
Dim iIndx As Integer
Dim iButtonLen As Integer
sButton = Trim$(sButton)
iButtonLen = Len(sButton)
For iIndx = 1 To iButtonLen
If (Mid$(sButton, iIndx, 1) = "1") Then
cmdButton(iIndx - 1).Enabled = True
Else
cmdButton(iIndx - 1).Enabled = False
End If
Next
DoEvents
End Sub
I hv compile error on cmdButton, which is "expected variable or procedure, not enum type).
Is anyone can tell me what happen on my code?
Thx
全站熱搜
留言列表