TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
V tomto díle seriálu Visual Basicu se podíváme na to, jak přesouvat formulář bez titulku. Tzn. bez té horní (většinou modré) lišty, na které je nadpis okna a tlačítka na vypnutí, minimalizování a tak...
Reklama
Reklama
Budeme využívat dvou API funkcí a události formuláře MouseMove. Celý kód potom bude vypadat následovně:
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 Sub ReleaseCapture Lib "User32" ()
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Form1.hWnd, 161, 2, 0
End Sub
To je tak vše, už jen to vyzkoušet a využít. Jo a nezapomeňte si dát na formulář něco, čím ho vypnete, protože nemá křížek ;)
