我需要一個用戶表單以未選中的形式加載復選框值。他們打開未選中的框，但他們似乎沒有以這種方式初始化。這是我擁有的復選框代碼和打開按鈕代碼。
Private Sub cbxAdditional_Click()
If Me.cbxAdditional.Value Then
Me.Width = 524
Me.Height = 238.5
lstDatabase.Width = 480
txbxName.Visible = True
txbxComments.Visible = True
Else
Me.Width = 279
Me.Height = 238.5
lstDatabase.Width = 240
txbxName.Visible = False
txbxComments.Visible = False
End If
End Sub
--開放代碼
Sub openform()
Test.Show
cbxAdditional = False
End Sub
我顯然寫錯了，當我打開用戶表單時，它以 IF 表單開始，我如何讓它以未經檢查的表單打開？
uj5u.com熱心網友回復：
這是一個非常簡單的用戶表單：
當您輸入用戶表單時，將UserForm_Initialize執行 sub。這個 sub 不會在用戶表單的代碼中自動創建，但您可以自己創建它。應在此處執行任何初始化或設定代碼。
在下面的示例中，我展示了復選框的重置是一個單獨的子項。我這樣做是一種習慣，以防萬一我必須添加一個重置按鈕或其他東西。
Option Explicit
Private Sub ClearCheckboxes()
Me.CheckBox1.Value = False
End Sub
Private Sub ResetButton_Click()
ClearCheckboxes
End Sub
Private Sub UserForm_Initialize()
ClearCheckboxes
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/529975.html