[ 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
ИИ-обзор: 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.
Исходный код
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
Оригинальные комментарии (3)
Восстановлено из Wayback Machine