PARA OS QUE QERIAM BOTOES DIFERENTES.

USUARIO.EXCLUIDOS 07/12/2003 00:39:13
#43
Atenção os usuários do VBMania que queriam BOTÕES diferentes em suas aplicações (programas) eu carreguei para a internet o código fonte do La Volpe Button 273, que foi um dos vários fontes que retirei do VBMania antes da migração ASP - PHP pelo qual o site fofreu, em quanto o web master não disponibiliza a categoria Código Fonte vocês poderam baixá-lo de lá, porém tão logo o webmaster disponibilieze os fontes eu fecharei o tópico e retirarei os fontes de lá.

Os que tiverem dúvidas sobre como usá-lo postem uma mensagem nesse tópico que responderei.

Peço a compreenção de todos e muito obrigado.

Aqui vai o http://geocities.yahoo.com.br/magoeteriano/giorgio/giovanni/fontes/LaVolpeButton273.zip

Obrigado WebMaster pelo ótimo trabalho prestado à  comunidade VBManíaca.
WEBMASTER 07/12/2003 14:43:00
#96 Resposta escolhida
O link correto é
http://geocities.yahoo.com.br/magoeteriano/giorgio/giovanni/fontes/LaVolpeButton273.zip
WEBMASTER 07/12/2003 16:58:06
#113
Eu gostaria de deixar aqui um código que eu adaptei, com base em API, que cria duas bordas, interna e externa, e que pode ser usado em qualquer controle, se bem que eu recomende somente CommandButton e Frame

Eis o código:


' EM UM MÓ“DULO
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_CLIENTEDGE = &H200
Private Const WS_EX_STATICEDGE = &H20000
Private Const SWP_FRAMECHANGED = &H20        '  The frame changed: send WM_NCCALCSIZE
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOOWNERZORDER = &H200      '  Don't do owner Z ordering
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_SHOWWINDOW = &H40


Global Const flags = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2

Private Function ThinBorder(ByVal lhWnd As Long, ByVal bState As Boolean)
Dim lS As Long

   lS = GetWindowLong(lhWnd, GWL_EXSTYLE)
   If Not (bState) Then
      lS = lS Or WS_EX_CLIENTEDGE And Not WS_EX_STATICEDGE
   Else
      lS = lS Or WS_EX_STATICEDGE And Not WS_EX_CLIENTEDGE
   End If
   SetWindowLong lhWnd, GWL_EXSTYLE, lS
   SetWindowPos lhWnd, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOOWNERZORDER Or SWP_NOZORDER Or SWP_FRAMECHANGED

End Function

Public Function Borda(obj As Object, isTrue As Boolean, isFalse As Boolean)
If isTrue = True Then ThinBorder obj.hwnd, True
If isFalse = True Then ThinBorder obj.hwnd, False
End Function

' EM UM FORM
Private Sub Form_Load()
Borda Me, True, True

Dim obj As Object
For Each obj In Me.Controls
    If TypeOf obj Is CommandButton Then Borda obj, True, True
    If TypeOf obj Is Frame Then Borda obj, False, True
Next
End Sub


é isso aí, no meu projeto atual, nomeado SymX WebServer, eu uso esse código, e fica legal.
Tópico encerrado , respostas não são mais permitidas
Voltar