![]() ![]() 'Folgendes ist notwendig, um die Form ohne Titelleiste zu verschieben ![]() Hauptfensternummer = FindWindow(vbNullString, Suchstring)Ĭlientfensternummer = GetWindow(Hauptfensternummer, GW_CHILD)ĭummy = GetWindowRect(Hauptfensternummer, Abmessung)ĭummy = GetWindowRect(Clientfensternummer, Abmessung1) Private Sub Fensternummer(Form As Object, Abmessung As RECT, Abmessung1 As RECT) 'Fensterhandles und Infos über Fenster holen Region = CreateRectRgn(Pos1x, Pos1y, Pos2x, Pos2y)įensterRegion = SetWindowRgn(Hauptfensternummer, Region, True) UserForm1.BorderStyle = fmBorderStyleSingleĬall Fensternummer(UserForm1, Abmessung, Abmessung1) Private Hauptfensternummer&, Clientfensternummer& ![]() Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) 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 Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Copy Macro 'For online Excel courses click: ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
December 2022
Categories |