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

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Movendo formulário sem barra de título
Postada em 23/7/2003 por Tekki            
'Você pode usar o .BorderStyle = 0 ou não.

'Declare estas variáveis
Public fMoveForm As Form
Dim VarG_MouseX As Long, VarG_MouseY As Long

Private Sub Form_Load()
Set fMoveForm = Me
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    VarG_MouseX = X
    VarG_MouseY = Y
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = 1) And (fMoveForm.WindowState <> 2) Then
    Screen.ActiveForm.Left = Screen.ActiveForm.Left + X - VarG_MouseX
    Screen.ActiveForm.Top = Screen.ActiveForm.Top + Y - VarG_MouseY
End If
End Sub
 


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