前沿拓展：
文本框
文本框設置透明步驟如下：
工具：APPLEM味護著布acBook Air、IOS10.14.6、WPS Office13.18.0。
1、打開要編輯的Word文檔，如圖所示，該文檔設置了背的效果。
VBA編程中的一些對象，有一個功能需要我們進行設置，比如，不想讓某個控件選擇或者讓這個控件失效。
這個功能還是很實用的，本文介紹兩個屬性，可以實現(xiàn)這樣的功能。
一個是Enabled屬性，另一個是Locked屬性。
英文翻譯，Enabled為"使能"，也是大多工業(yè)設備中經常用到的一個英文單詞。
Locked為"鎖定"。
理解其含義之后，使用就簡單多了。
如下圖示例：
我們利用兩個選擇框來控制第一個文本框的Enabled，和Locked狀態(tài)。第二個文本框為說明文本。
也就是當要選擇Enabled"使能"的時候，就可以編輯文本，當不選擇的時候文本框失去編輯功能。
失去編輯功能字體顏色會變成灰色，文本框內容也不能選擇。
當我們選擇Locked的時候，實現(xiàn)鎖定文本，文本框顏色不變，可以選擇也可以通過鍵盤**作**(Ctrl+C)，但不能進行刪除、修改、添加、插入等編輯**作。
具體我們看代碼來時行理解。
第一在VBE中新建一個窗體，并添加2個CheckBox控件，2個TextBox控件。
窗體代碼：
Private Sub UserForm_Initialize()
TextBox1.Text = "可變屬性"
TextBox1.Enabled = True
TextBox1.Locked = False
CheckBox1.Caption = "Enabled 屬性"
CheckBox1.Value = False
CheckBox2.Caption = "Locked 屬性"
CheckBox2.Value = False
TextBox2.Text = "TextBox2"
End Sub
CheckBox1代碼
Private Sub CheckBox1_Change()
If Me.CheckBox1.Value Then
TextBox2.Text = "有效：可以修改"
TextBox1.Enabled = CheckBox1.Value
Else
TextBox2.Text = "無效：不能修改"
TextBox1.Enabled = CheckBox1.Value
End If
End Sub
CheckBox2代碼
Private Sub CheckBox2_Change()
If Me.CheckBox2 Then
TextBox2.Text = "鎖定：不可修改內容"
TextBox1.Locked = CheckBox2.Value
Else
TextBox2.Text = "解鎖：可修改內容"
TextBox1.Locked = CheckBox2.Value
End If
End Sub
Enabled和Locked屬性在很多控件中可以使用，并不一定是這兩種控件，所以在編程過程有條件地使用還是可以達到想的結果的。
END
拓展知識：
前沿拓展：
文本框
文本框設置透明步驟如下：
工具：APPLEM味護著布acBook Air、IOS10.14.6、WPS Office13.18.0。
1、打開要編輯的Word文檔，如圖所示，該文檔設置了背的效果。
VBA編程中的一些對象，有一個功能需要我們進行設置，比如，不想讓某個控件選擇或者讓這個控件失效。
這個功能還是很實用的，本文介紹兩個屬性，可以實現(xiàn)這樣的功能。
一個是Enabled屬性，另一個是Locked屬性。
英文翻譯，Enabled為"使能"，也是大多工業(yè)設備中經常用到的一個英文單詞。
Locked為"鎖定"。
理解其含義之后，使用就簡單多了。
如下圖示例：
我們利用兩個選擇框來控制第一個文本框的Enabled，和Locked狀態(tài)。第二個文本框為說明文本。
也就是當要選擇Enabled"使能"的時候，就可以編輯文本，當不選擇的時候文本框失去編輯功能。
失去編輯功能字體顏色會變成灰色，文本框內容也不能選擇。
當我們選擇Locked的時候，實現(xiàn)鎖定文本，文本框顏色不變，可以選擇也可以通過鍵盤**作**(Ctrl+C)，但不能進行刪除、修改、添加、插入等編輯**作。
具體我們看代碼來時行理解。
第一在VBE中新建一個窗體，并添加2個CheckBox控件，2個TextBox控件。
窗體代碼：
Private Sub UserForm_Initialize()
TextBox1.Text = "可變屬性"
TextBox1.Enabled = True
TextBox1.Locked = False
CheckBox1.Caption = "Enabled 屬性"
CheckBox1.Value = False
CheckBox2.Caption = "Locked 屬性"
CheckBox2.Value = False
TextBox2.Text = "TextBox2"
End Sub
CheckBox1代碼
Private Sub CheckBox1_Change()
If Me.CheckBox1.Value Then
TextBox2.Text = "有效：可以修改"
TextBox1.Enabled = CheckBox1.Value
Else
TextBox2.Text = "無效：不能修改"
TextBox1.Enabled = CheckBox1.Value
End If
End Sub
CheckBox2代碼
Private Sub CheckBox2_Change()
If Me.CheckBox2 Then
TextBox2.Text = "鎖定：不可修改內容"
TextBox1.Locked = CheckBox2.Value
Else
TextBox2.Text = "解鎖：可修改內容"
TextBox1.Locked = CheckBox2.Value
End If
End Sub
Enabled和Locked屬性在很多控件中可以使用，并不一定是這兩種控件，所以在編程過程有條件地使用還是可以達到想的結果的。
END
拓展知識：
原創(chuàng)文章，作者：九賢生活小編，如若轉載，請注明出處：http://xiesong.cn/31367.html
相關推薦
-
筆記本論壇(筆記本論壇)
準備做筆記本維修工程師，有不錯的論壇和網站嗎？謝謝？ 維修工程師，那不是短時間就能做出來的。長時間的積累，時間的洗禮，知識的疊加，手工達到爐火純青，沒個三五年以上，那都不能叫工程師…
-
戴爾臺式機bios設置圖解(戴爾臺式機bios設置圖解教程)
戴爾臺式機bios設置圖解(戴爾臺式機bios設置圖解教程) 老鐵們好啊，很多朋友對于手機使用都有很多問題。今天小編給大家分享下我們在使用手機過程中會遇到的一些問題故障該如何處理，…
-
office2013中文版(office 2013版)
前沿拓展： office2013中文版 1、啟動Excel2013，新建一文檔，單擊“文件”。 2、打開如下圖所示界面，單擊“選項”。 3、打開“Excel選項”對話框，在“語言”…
-
飛利浦顯示器裝主機(飛利浦顯示器電源線)
選擇一款適合自己的飛利浦顯示器 在選擇飛利浦顯示器時，我們需要考慮到自己的使用需求，例如想要用于游戲、辦公還是觀影等。飛利浦顯示器有多款系列，例如21:9寬屏、4K高清、144Hz…
-
i7 980配什么顯卡，適合i7980的顯卡有哪些
i7980是怎樣的一款處理器？ i7980是英特爾推出的一款六核心處理器，采用LGA1366接口，支持超線程技術，主頻3.33GHz，擁有12MB的**緩存。 選擇哪些顯卡能充分發(fā)…
-
戴爾筆記本官網報價及圖片：戴爾筆記本鍵盤圖片
1、暢享科技生活， 根據戴爾官網信息，其他方面變化不大。 2、新款XPS15可選1920×1200IPS/100%P3/500nits和3456×2160OLED/100%P3/4…
-
神舟臺式機怎么樣-神舟主機怎么樣
神州電腦公司從前到后生產了很多系列的臺式機，最為著名的是從以前的新瑞、新夢系列到現(xiàn)在的戰(zhàn)神系列，一路走來實屬不易，當然已經有不少的型號已經停產了，但是它們給消費者帶來的那份踏實卻一直都在，當然現(xiàn)在又推出了戰(zhàn)神，它在配置、性能、價格等方面都比以前更有優(yōu)勢了，而且也深受人們的喜愛。
-
聯(lián)想圖片大全(形狀聯(lián)想圖片大全)
聯(lián)想圖片大全(形狀聯(lián)想圖片大全) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用的一些小技巧 介紹 Intel …
-
聯(lián)想s410屬于什么檔次(聯(lián)想s410二手賣多少錢)
聯(lián)想s410屬于什么檔次(聯(lián)想s410二手賣多少錢) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用的一些小技巧…
-
7870k顯卡性能(7870k配什么顯卡)
介紹 AMD的A10-7870K處于市場中高端產品陣營中，將追求更高性能和更良好續(xù)航時間的玩家們的需求進行了深刻理解，擁有出色的處理器性價比以及強大的顯卡性能。A10-7870K作…