× Aktuálně z oboru

SHIELD Experience Upgrade 7 – méně hledání a více zábavy [ clanek/2018052902-shield-experience-upgrade-7-mene-hledani-a-vice-zabavy/ ]
Celá zprávička [ clanek/2018052902-shield-experience-upgrade-7-mene-hledani-a-vice-zabavy/ ]

Pohybování s formulářem bez titulku

[ http://programujte.com/profil/27-jiri-chytil/ ]Google [ ?rel=author ]       [ http://programujte.com/profil/118-zdenek-lehocky/ ]Google [ ?rel=author ]       19. 9. 2005       9 639×

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...

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 ;)


Článek stažen z webu Programujte.com [ http://programujte.com/clanek/1970010148-pohybovani-s-formularem-bez-titulku/ ].