[ Center Forms Without Errors When Maximized ]
This will center forms and when you maximize the form the Command Button which you click to re-center it will be disabled.
AI
AI Samenvatting: 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.
Broncode
Private Sub Command1_Click() If Form1.WindowState = 0 Then Form1.Left = Screen.Width / 2 - Form1.Width / 2 Form1.Top = Screen.Height / 2 - Form1.Height / 2 Else Command1.Enabled = False End If End Sub Private Sub Form_Load() Form1.Left = Screen.Width / 2 - Form1.Width / 2 Form1.Top = Screen.Height / 2 - Form1.Height / 2 End Sub Private Sub Form_Resize() If Form1.WindowState = 2 Then Command1.Enabled = False Else Command1.Enabled = True End If End Sub
Originele reacties (3)
Hersteld van de Wayback Machine