VB 清除按鈕

Question

請問有沒有方法 設定一個 CommandButton 讓他自己被清除掉
譬如 一個程式上面 有一堆 Button,Text,Label...雜七雜八的物件
然後按下去那些東西都被清除掉
謝謝各位大大

Answer 1

'版本VB6.0
'表單上原先設計的物件是無法移除的,只好用Visible這屬性把可隱藏的物件都隱藏起來(除了Command1)
Private Sub Command1_Click()
Static B As Boolean, A As Object

On Error Resume Next

For Each A In Controls
If A.Name <> "Command1" Then A.Visible = B
Next
B = Not B
If Command1.Caption = "清除" Then
Command1.Caption = "還原"
Else
Command1.Caption = "清除"
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "清除"
End Sub