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

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Arrastar um controle ou Formulário sem Título
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'Na parte geral do Form:
Private Declare Function SendMessage Lib _
        "user32" Alias "SendMessageA" (ByVal _
        hWnd As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, lParam As Any) _
        As Long
Private Declare Function ReleaseCapture Lib _
        "user32" () As Long

'No evento Mouse_Down
Dim rec&
If Button And 1 Then
  ReleaseCapture
  rec& = SendMessage(Me.hwnd, &HA1, 2, 0&)
End IF
'OBS.: Esta dica pode também ser usada para arrastar controles (Legal!!!).
 


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