vb6 - フレームとその要素をデフォルトのvb6に戻す設定

Question

私はフレームで多くの作業をする必要があり、フレームをすばやく設定してテキストボックス、ラベル、プログレスバーなどをVB6のデフォルト値に戻すことができるかどうか疑問に思っています。今できることは、フレームの可視性を false に設定するときに自分で設定することだけなので、何でも構いません。

前もって感謝します。

Answer 1

Option Explicit

'~~~ When a button is clicked..
Private Sub Command1_Click()
    Dim cntl As Control

    For Each cntl In Me.Controls '~~~ Loop through all the controls in the form

        If TypeOf cntl Is TextBox Then  '~~~ if the control is a TextBox..
            cntl.Text = ""              '~~~ ..set the Text as empty
        ElseIf TypeOf cntl Is ComboBox Or TypeOf cntl Is ListBox Then   '~~~ if the control is ComboBox/ListBox..
            cntl.Clear                  '~~~ ..clear the items
        ElseIf TypeOf cntl Is CheckBox Then '~~~ if the control is a CheckBox..
            cntl.Value = vbUnchecked        '~~~ ..uncheck it
        ElseIf TypeOf cntl Is OptionButton Then '~~~ if the control is an OptionButton(radio buttons)..
            cntl.Value = False                  '~~~ ..set it's value to False
        End If

    Next
End Sub

Answer 2

for ループを試し、フォームの各コントロールを調べて、デフォルト値に設定します。このようなもの。

コントロールとして薄暗いコントロール

me.controls ctl.value = ctl.defaultvalue next の各 Ctl に対して

乾杯！