Inserire il seguente codice:
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal newValue As Long) As Long
Const GWL_STYLE = (-16)
Const BS_PUSHLIKE = &H1000&
Sub SetButtonStyle(Ctrl As Control, ByVal Graphical As Boolean)
If Graphical Then
SetWindowLong Ctrl.hWnd, GWL_STYLE, GetWindowLong(Ctrl.hWnd, _
GWL_STYLE) Or BS_PUSHLIKE
Else
SetWindowLong Ctrl.hWnd, GWL_STYLE, GetWindowLong(Ctrl.hWnd, _
GWL_STYLE) And Not BS_PUSHLIKE
End If
Ctrl.Refresh
End Sub
Modificare lo stile di un controllo CheckBox o OptionButton
Pubblicato prima del 07/05/2008 - Informazione assente
Descrizione non disponibile. Questo membro non è più parte della Community.
|
Aggiungi un commento