First you can add 4 picture boxes as the title bar and border of the window
The surrounding borders and title bars of the window can be made using picture boxes.
If you don't want others to see the picture frame, you can make the background color of the picture frame the same as the background color of the window
To move the window, you can use:
_Start window.Send message (161, 2, 0)
To change the window size, you can use:
_Start the window. Send the message (274, 61441, 0) ' You can adjust the border on the left side of the window
_Start the window. Send the message (274, 61442, 0) ' You can adjust the border on the right side of the window
_Start the window. Send the message (274, 61443, 0) ' You can adjust the border on the window
_Start the window. Send the message (274, 61446, 0) ' You can adjust the border below the window
_Start the window. Send the message (274, 61444, 0) ' You can adjust the borders on the top and left sides of the window at the same time
_Start the window. Send the message (274, 61445, 0) ' You can adjust the borders on the top and right sides of the window at the same time
_Start the window. Send the message (274, 61447, 0) ' You can adjust the borders at the bottom and left of the window at the same time
_Start the window. Send the message (274, 61448, 0) ' You can adjust the borders at the bottom and right of the window at the same time
usage:
Let me give you an example, add an image box and change the name to "Title Bar", for example, to move the window:
.Subprogram _Title Bar_Left Mouse Key is pressed, logical
. Parameters horizontal position, integer type
. Parameters vertical position, integer type
.Parameters Function key status, integer type_Start window.Send message (161, 2, 0)
If you want to change the window size, I think you know how to use the above code.
If you change the window size, you can use
. Version 2
.Subprogram __Start window_Size is changed
Then add the code in this subroutine where the location of the 4 picture boxes should be after the size changes
The above is all the content and the code that is introduced first. Thank you for your support.