設(shè)置為label

在上次的短圖文里,咱們給大家介紹了窗體(userform)的一些基礎(chǔ)知識(shí),這一次咱們給大家介紹另外一個(gè)ActiveX控件Label.

1.label控件.

標(biāo)簽控件控件是VBA里最簡(jiǎn)單也是最重要的一個(gè)控件.說(shuō)它最簡(jiǎn)單,是因?yàn)闃?biāo)簽控件的編程的內(nèi)容是最少的,同時(shí)也是屬性設(shè)置最少的控件.

但是,標(biāo)簽控件又是最重要的.如圖所示,在咱們所設(shè)計(jì)的窗體里,那些錄入數(shù)據(jù)的文本框(或者叫做文字框)如果前面沒(méi)有標(biāo)簽進(jìn)行說(shuō)明的話,我們是根本不可能知道這個(gè)文本框與復(fù)選框是錄入什么內(nèi)容的.

標(biāo)簽的作用其實(shí)也是非常精簡(jiǎn)的,就一個(gè)最重要的起到"說(shuō)明注釋"的作用,標(biāo)簽一般是對(duì)文本框與復(fù)選框起到說(shuō)明的作用,告訴我們這個(gè)數(shù)據(jù)錄入框是干什么用的.

2.label的屬性設(shè)置.

標(biāo)簽控件的屬性設(shè)置一般也就是字體與caption的設(shè)置了,再有就是前景色(forecolor)的設(shè)置.

字體的話,一般設(shè)置字型字號(hào)與字體的名稱,在一般的窗體里,設(shè)置成小五號(hào)就可以了,caption屬性是最常用的屬性設(shè)置,一般通過(guò)修改caption屬性來(lái)改變label所顯示的文本,這也是標(biāo)簽的最大的功能與作用了.forcolor一般是黑色,當(dāng)然不排除修改成其它的顏色.

另外,label的屬性設(shè)置里,height與width修改的也比較多.

3.與label相關(guān)的VBA代碼.

label本身也是click事件的,但幾乎很少用,也就是說(shuō)通過(guò)label來(lái)實(shí)現(xiàn)對(duì)其它對(duì)象或者事件進(jìn)行編程的很少,幾乎為0,同樣的,通過(guò)單擊的方式來(lái)實(shí)現(xiàn)相應(yīng)功能的作一般也是用命令按鈕(commandbutton)來(lái)實(shí)現(xiàn)的.

但是通過(guò)別的事件或是對(duì)象來(lái)實(shí)現(xiàn)對(duì)label來(lái)進(jìn)行作或修改屬性的方式還是有的.最常見(jiàn)的是通過(guò)命令按鈕對(duì)標(biāo)簽進(jìn)行設(shè)定,還有一個(gè)就是通過(guò)窗體初始化事件來(lái)進(jìn)行設(shè)定.

(1),通過(guò)命令按鈕的方式一般是把代碼寫(xiě)在click事件里,如:

private sub commandbutton1_click()

label1.cation="單位名稱"

end sub

通過(guò)點(diǎn)擊命令按鈕1,可以使標(biāo)簽1的名稱修改為"單位名稱".

(2),通過(guò)窗體初始化事件來(lái)設(shè)定標(biāo)簽的屬性,如以下代碼:

private sub userform_initialize()

with userform1

label1.caption="修改成新的屬性名稱"

label1.height=24

end with

end sub

即窗體1加載完成后,標(biāo)簽1的名稱會(huì)修定為"修改成新的屬性名稱",同時(shí)標(biāo)簽的高度是24

簡(jiǎn)單一句話來(lái)說(shuō),標(biāo)簽在整個(gè)VBA的可視化面板的編程里最簡(jiǎn)單的,代碼的相關(guān)修定也是最少的,但標(biāo)簽的重要性卻是絕對(duì)少不了的.此短文首發(fā)頭條,由Excel小彭創(chuàng)作,感興趣的朋友不妨多了解一下.