03. oktober 2003 - 20:43
Der er
2 kommentarer og
1 løsning
Flytte grafisk vindue
jeg har lavet et lille program... og gjort det lidt grafisk ved at lave et billede i formen hvor der er lavet luk og minimer knapper... og så har jeg fjernet den øverste linje, (titleline, hvor luk/max/min er)
mit problem er nu... at man jo normalt bruger titleline til at flytte vinduet med... der må være en anden måde at flytte med... det hjælper ikke bare at gøre den movable, selvfølgelig fordi det gør den movable via titleline... plz help me :)
03. oktober 2003 - 20:58
#1
Option Explicit
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
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
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0&
End Sub
