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

terça-feira, 16 de setembro de 2014

Galera Pronatec!

Imagem para tela do Login.


terça-feira, 22 de outubro de 2013

Palestra HOJE na Estácio de Sá.

Galera! Hoje, quarta-feira, estarei na Estácio de Sá (campus WestShopping) conversando com os alunos. Todos estão convidados.