Blog do Titio Trevas

domingo, 21 de setembro de 2014

Retirando a barra de títulos do formulário de login (VBA)

Esta rotina foi retirada do site excelevba.com.br

‘Insira este código na inicialização do formulário.

Call removeCaption(Me)

_____________________________________________

‘Crie um módulo e copie o código abaixo
Private Declare Function FindWindow Lib "User32" Alias “FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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 dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long

Sub removeCaption(objForm As Object)
Dim lStyle          As Long
Dim hMenu           As Long
Dim mhWndForm       As Long

If Val(Application.Version) < 9 Then
mhWndForm = FindWindow(“ThunderXFrame”, objForm.Caption) ‘XL97
Else
mhWndForm = FindWindow(“ThunderDFrame”, objForm.Caption) ‘XL2000+
End If

lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm

End Sub