|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Deixando um Botão Flat
|
 |
|
|
|
Postada em 24/7/2001 por shibito
shibito@zipmail.com.br
'Em um módulo.bas:
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const WS_CHILD = &H40000000
Public Const BS_FLAT = &H8000&
Public Const WS_TABSTOP = &H10000
'No formulário:
Public Function MakeButtonFlat(ParamArray Button() As Variant)
Dim i As Integer
' Varre todos os controles passados como parâmetro
For i = 0 To UBound(Button)
' Verifica se é um botão de comando
If TypeOf Button(i) Is CommandButton Then
' Muda a aparência dos botões
SetWindowLong Button(i).hWnd, GWL_STYLE, WS_CHILD Or BS_FLAT Or WS_TABSTOP
' É preciso definir a propriedade VISIBLE para true
' pq qdo é usada a função as propriedades do botão são redefinidas
Button(i).Visible = True
End If
Next i
End Function
Private Sub Command1_Click()
Call MakeButtonFlat(Command1, Command2)
End Sub
|
|
|
|
|
