設置框架，它的元素回到默認狀態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循環並遍歷窗體上的每個控件以將其設置爲其默認值。像這樣的東西。

昏暗CTL作爲在me.controls控制

每個CTL ctl.value = ctl.defaultvalue 下

乾杯！