terça-feira, 21 de abril de 2015
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 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
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
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
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
End Sub
terça-feira, 16 de setembro de 2014
segunda-feira, 13 de janeiro de 2014
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.
sábado, 7 de setembro de 2013
domingo, 1 de setembro de 2013
Titio Trevas Descontraindo
Devil May Cry: Matando o Hunter Desgraçado!
http://www.youtube.com/watch?v=mnl2BJl2VFk&feature=share&list=TLNPo0cqlG6yc
http://www.youtube.com/watch?v=mnl2BJl2VFk&feature=share&list=TLNPo0cqlG6yc
Titio Trevas Descontraindo
Mais um Gameplay: Devil May Cry (Esse jogo é fera Galera!)
http://www.youtube.com/watch?v=ES-pzagSGe8&feature=share&list=TLuGBvGg4MBH8
http://www.youtube.com/watch?v=ES-pzagSGe8&feature=share&list=TLuGBvGg4MBH8
Titio Trevas Descontraindo
Vídeo Velho no Canal Novo Galera! Titio Trevas Descontraindo - Entre uma conta e outra: BF3.
Atenção! O canal de Gameplay MUDOU.
Galera! Por motivos técnicos, precisei mudar o canal de gameplay. Acessem agora. Desculpe o transtorno. Inscrevam-se novamente por favor.
http://www.youtube.com/user/TitioTrevasGames
segunda-feira, 19 de agosto de 2013
Equação Produto e MMC de Polinômios
Saiu mais uma vídeo-aula!
Equação Produto e MMC de Polinômios. Espalhe pra galera! Bons Estudos.
Equação Produto e MMC de Polinômios. Espalhe pra galera! Bons Estudos.
quarta-feira, 3 de julho de 2013
Fatoração de Polinômios - Trinômio Quadrado Perfeito
Saiu mais uma vídeo-aula! Fatoração de Polinômios -Trinômio Quadrado Perfeito. Espalhe pra galera! Bons Estudos.
Fatoração de Polinômios - Agrupamento
Saiu mais uma vídeo-aula! Fatoração de Polinômios - Agrupamento. Espalhe pra galera! Bons Estudos.
segunda-feira, 1 de julho de 2013
Homotetia Parte 2 - Reduções
Saiu mais uma vídeo-aula! Homotetia Parte 2 - Reduções. Espalhe pra galera! Bons Estudos.
quinta-feira, 27 de junho de 2013
Assinar:
Postagens (Atom)









