前沿拓展:
文本框
文本框設(shè)置透明步驟如下:
工具:APPLEM味護(hù)著布acBook Air、IOS10.14.6、WPS Office13.18.0。
1、打開要編輯的Word文檔,如圖所示,該文檔設(shè)置了背的效果。
VBA編程中的一些對象,有一個(gè)功能需要我們進(jìn)行設(shè)置,比如,不想讓某個(gè)控件選擇或者讓這個(gè)控件失效。
這個(gè)功能還是很實(shí)用的,本文介紹兩個(gè)屬性,可以實(shí)現(xiàn)這樣的功能。
一個(gè)是Enabled屬性,另一個(gè)是Locked屬性。
英文翻譯,Enabled為"使能",也是大多工業(yè)設(shè)備中經(jīng)常用到的一個(gè)英文單詞。
Locked為"鎖定"。
理解其含義之后,使用就簡單多了。
如下圖示例:
我們利用兩個(gè)選擇框來控制第一個(gè)文本框的Enabled,和Locked狀態(tài)。第二個(gè)文本框?yàn)檎f明文本。
也就是當(dāng)要選擇Enabled"使能"的時(shí)候,就可以編輯文本,當(dāng)不選擇的時(shí)候文本框失去編輯功能。
失去編輯功能字體顏色會變成灰色,文本框內(nèi)容也不能選擇。
當(dāng)我們選擇Locked的時(shí)候,實(shí)現(xiàn)鎖定文本,文本框顏色不變,可以選擇也可以通過鍵盤**作**(Ctrl+C),但不能進(jìn)行刪除、修改、添加、插入等編輯**作。
具體我們看代碼來時(shí)行理解。
第一在VBE中新建一個(gè)窗體,并添加2個(gè)CheckBox控件,2個(gè)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 = "鎖定:不可修改內(nèi)容"
TextBox1.Locked = CheckBox2.Value
Else
TextBox2.Text = "解鎖:可修改內(nèi)容"
TextBox1.Locked = CheckBox2.Value
End If
End Sub
Enabled和Locked屬性在很多控件中可以使用,并不一定是這兩種控件,所以在編程過程有條件地使用還是可以達(dá)到想的結(jié)果的。
END
拓展知識:
前沿拓展:
文本框
文本框設(shè)置透明步驟如下:
工具:APPLEM味護(hù)著布acBook Air、IOS10.14.6、WPS Office13.18.0。
1、打開要編輯的Word文檔,如圖所示,該文檔設(shè)置了背的效果。
VBA編程中的一些對象,有一個(gè)功能需要我們進(jìn)行設(shè)置,比如,不想讓某個(gè)控件選擇或者讓這個(gè)控件失效。
這個(gè)功能還是很實(shí)用的,本文介紹兩個(gè)屬性,可以實(shí)現(xiàn)這樣的功能。
一個(gè)是Enabled屬性,另一個(gè)是Locked屬性。
英文翻譯,Enabled為"使能",也是大多工業(yè)設(shè)備中經(jīng)常用到的一個(gè)英文單詞。
Locked為"鎖定"。
理解其含義之后,使用就簡單多了。
如下圖示例:
我們利用兩個(gè)選擇框來控制第一個(gè)文本框的Enabled,和Locked狀態(tài)。第二個(gè)文本框?yàn)檎f明文本。
也就是當(dāng)要選擇Enabled"使能"的時(shí)候,就可以編輯文本,當(dāng)不選擇的時(shí)候文本框失去編輯功能。
失去編輯功能字體顏色會變成灰色,文本框內(nèi)容也不能選擇。
當(dāng)我們選擇Locked的時(shí)候,實(shí)現(xiàn)鎖定文本,文本框顏色不變,可以選擇也可以通過鍵盤**作**(Ctrl+C),但不能進(jìn)行刪除、修改、添加、插入等編輯**作。
具體我們看代碼來時(shí)行理解。
第一在VBE中新建一個(gè)窗體,并添加2個(gè)CheckBox控件,2個(gè)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 = "鎖定:不可修改內(nèi)容"
TextBox1.Locked = CheckBox2.Value
Else
TextBox2.Text = "解鎖:可修改內(nèi)容"
TextBox1.Locked = CheckBox2.Value
End If
End Sub
Enabled和Locked屬性在很多控件中可以使用,并不一定是這兩種控件,所以在編程過程有條件地使用還是可以達(dá)到想的結(jié)果的。
END
拓展知識:
原創(chuàng)文章,作者:九賢生活小編,如若轉(zhuǎn)載,請注明出處:http://www.cddhlm.com/31367.html