Bueno estoy utilizando el
control ucToolbar , quiero desabilitar un boton del toolbar pero me sale error
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:
Private Sub Command1_Click()
ucToolbar1.EnableButton(2, False) 'me sale error de sintaxis, he probado de varias formas y nada?
End Sub
Estas son las funciones involucradas
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