共用方式為

CheckBox 控制項、Enabled、Locked 屬性範例

  • 發行項

下列範例示範 Enabled 和 Locked 屬性以及它們之間的互補特性。 本範例單獨使用 CheckBox 來表示每個屬性，這樣就可以看到單獨和組合設定的效果。

本範例還包含一個 TextBox ，以便在 TextBox 控制項之間複製和貼上資訊，並驗證這些屬性設定所支援的活動。

注意事項

[!注意事項] 使用 CTRL+C 將選取範圍複製至剪貼簿上，然後使用 CTRL+V 來貼上。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定該表單包含：

  • 一個名為 TextBox1 的 TextBox 。
  • 兩個分別名為 CheckBox1 和 CheckBox2 的 CheckBox 控制項。
  • 另外一個名為 TextBox2 的 TextBox 。
Private Sub CheckBox1_Change() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Enabled = CheckBox1.Value 
End Sub 
 
Private Sub CheckBox2_Change() 
 TextBox2.Text = "TextBox2" 
 TextBox1.Locked = CheckBox2.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 TextBox1.Text = "TextBox1" 
 TextBox1.Enabled = True 
 TextBox1.Locked = False 
 
 CheckBox1.Caption = "Enabled" 
 CheckBox1.Value = True 
 
 CheckBox2.Caption = "Locked" 
 CheckBox2.Value = False 
 
 TextBox2.Text = "TextBox2" 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。