Center_Form
To center all of your forms nicely on the screen, use this as the first line in the Form_Load event--resolution independent. 'note:call this function like this: Center_Form Me
AI
AIサマリー: 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.
ソースコード
Sub Center_Form (frmForm As Form) frmForm.Left = (Screen.Width - frmForm.Width) / 2 frmForm.Top = (Screen.Height - frmForm.Height) / 2 End Sub Public Apath As String = System.Environment.CurrentDirectory 'example: FileCopy(Apath & ".\images\Yellow.jpg", ofile1 & "Yellow.jpg")
オリジナルのコメント (3)
Wayback Machineから復元