USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Deixando um Botão Flat
Postada em 24/7/2001 por shibito      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página