Let Users Resize Your Controls

Let Users Resize Your Controls

You can allow users to resize a control?just like in VB design mode?with a mouse, using two simple API calls. You can resize the control?top-left, top, top-right, left, right, bottom-left, bottom, and right. When you make ranges for the mouse coordinates (such as x>0 and x Private Declare Function ReleaseCapture Lib _ "user32" () As LongPrivate Declare Function SendMessage Lib _ "user32" Alias "SendMessageA" (ByVal hWnd _ As Long, ByVal wMsg As Long, ByVal wParam _ As Long, lParam As Any) As LongPrivate Const WM_NCLBUTTONDOWN = &HA1' You can find more of these (lower) in the API Viewer. Here ' they are used only for resizing the left and right.Private Const HTLEFT = 10Private Const HTRIGHT = 11Private Sub Picture1_MouseDown(Button As _ Integer, Shift As Integer, X As Single, Y As Single) Dim nParam As Long With Picture1 ' You can change these coordinates to whatever ' you want If (X > 0 And X .Width - 100 And X 0 And X Picture1.Width - 100 And X Picture1.MousePointer Then Picture1.MousePointer = NewPointer End IfEnd Sub


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist