如何实现VB程序点击按钮后恢复至初始加载状态？

一、批量重置控件状态 #

手动逐个设置控件属性效率极低，可通过遍历窗体控件实现批量重置：

• 针对不同类型控件，根据初始需求统一处理属性
• 若控件有自定义初始值，替换为对应内容即可

示例代码：

Private Sub ResetControls(frm As Form)
    Dim ctl As Control
    For Each ctl In frm.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Text = "" ' 若有默认初始文本，替换为对应值
            Case "CheckBox"
                ctl.Value = vbUnchecked ' 按需改为vbChecked（初始选中状态）
            Case "OptionButton"
                ' 假设第一个单选按钮为默认选中项
                ctl.Value = (ctl.Index = 0)
            Case "ComboBox"
                ctl.ListIndex = -1
                ctl.Text = ""
            Case "ListBox"
                ctl.Clear ' 若需保留初始列表项，可预先存储后重新添加
        End Select
    Next ctl
End Sub

二、集中重置变量 #

将需重置的变量统一管理，通过初始化子程序实现一键重置：

1. 在标准模块中定义全局/模块级变量
2. 编写ResetVariables子程序，在程序启动和重置时调用

示例：

' 标准模块中定义变量
Public userName As String
Public userAge As Integer
Public isLoggedIn As Boolean

' 初始化/重置变量
Public Sub ResetVariables()
    userName = ""
    userAge = 0
    isLoggedIn = False
End Sub

' 窗体加载时初始化
Private Sub Form_Load()
    ResetVariables()
End Sub

三、恢复窗体初始状态 #

若需重置窗体位置、大小等状态，可在加载时记录初始值，重置时恢复：

' 窗体级变量存储初始状态
Private originalLeft As Long
Private originalTop As Long
Private originalWidth As Long
Private originalHeight As Long

Private Sub Form_Load()
    ' 记录窗体初始参数
    originalLeft = Me.Left
    originalTop = Me.Top
    originalWidth = Me.Width
    originalHeight = Me.Height
End Sub

Private Sub ResetFormState()
    ' 恢复初始位置与大小
    Me.Left = originalLeft
    Me.Top = originalTop
    Me.Width = originalWidth
    Me.Height = originalHeight
End Sub

四、整合重置操作 #

在按钮点击事件中调用所有重置子程序，完成一键恢复：

Private Sub cmdReset_Click()
    ResetControls Me
    ResetVariables
    ResetFormState
End Sub

注意事项 #

• 自定义控件需在ResetControls中添加对应Case分支处理
• 动态创建的控件需先销毁再重新生成，或单独维护重置逻辑
• 特殊控件的初始值（如默认提示文本）需单独设置，避免直接清空

内容的提问来源于stack exchange，提问作者Gabriel Woodbridge