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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()