Supuestamente deberia funcionar con esto pero sale error me pide que iguale a algo sino sale error de sintaxis, es decir ucToolbar1.EnableButton(2, False) = "que pongo aqui?"
Código:
Estas son las funciones involucradasPrivate Sub Command1_Click() ucToolbar1.EnableButton(2, False) 'me sale error de sintaxis, he probado de varias formas y nada? End Sub
Código:
Public Sub EnableButton(ByVal Index As Integer, ByVal Enable As Boolean)
Call pvEnableButton(Index, Enable)
End Sub
Private Sub pvEnableButton(ByVal Index As Integer, ByVal Enabled As Boolean)
If (m_Count) Then
If (Index And Index <= m_Count) Then
'-- Enable/disable
m_Button(Index).Enabled = Enabled
'-- Refresh
Call pvRefresh(Index)
End If
End If
End Sub

