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