Size a form exactly!
Sizes a form to an exact size. Ever tried to size a form to say. 320 by 240 like this Me.Width = 320 * Screen.TwipsPerPixelX Me.Height = 240 * Screen.TwipsPerPixelY But you want the border and title bar at the same time. And it doesn't look right at all. Heres your answer! (I dunno if anyone has done this before if they have. cool.) I made this years ago, but didn't know of Planet-Source-Code then.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Sub Size(sForm As Form, sWidth As Integer, sHeight As Integer) Dim t_ScaleMode As Integer, t_Width As Integer, t_Height As Integer t_ScaleMode = sForm.ScaleMode sForm.ScaleMode = 1 t_Width = sForm.Width - sForm.ScaleWidth t_Height = sForm.Height - sForm.ScaleHeight sForm.Width = (sWidth * Screen.TwipsPerPixelX) + t_Width sForm.Height = (sHeight * Screen.TwipsPerPixelY) + t_Height sForm.ScaleMode = t_ScaleMode End Sub
Original Comments (3)
Recovered from Wayback Machine