VB教程:標(biāo)簽(Label)

字號(hào):

1、標(biāo)簽(Label)
    作用:提供在窗體上相對(duì)固定的位置顯示文本的區(qū)域,該文本區(qū)域不能編輯,主要用來(lái)顯示提示信息,可以用作標(biāo)題、欄目名或輸入、輸出區(qū)域的標(biāo)識(shí),也可作為結(jié)果信息的輸出區(qū)域,常和Text控件一起使用。
    注意:標(biāo)簽的內(nèi)容是只讀的,Label控件不接受用戶的任何輸入操作。
    (1)常用屬性
    屬性
     描述
    Alignment 設(shè)置文本中文本的對(duì)齊方式,有三種方式,0—左對(duì)齊、1—右對(duì)齊、2—居中
    Caption 設(shè)置標(biāo)簽的內(nèi)容。其值是一個(gè)任意的字符串
    Font 指定標(biāo)簽的字體,包括字體、字體祥式、字號(hào)、效果等等
    ForColor 設(shè)置標(biāo)簽的前景色
    BackColor 設(shè)置標(biāo)簽的背景色
    BackStyle 設(shè)置標(biāo)簽的背景的模式。0—將標(biāo)簽重疊顯示在背景上,不覆蓋原來(lái)的背景;1—顯示標(biāo)簽時(shí)將背景覆蓋掉,此為系統(tǒng)缺省值
    BorderStyle 用于設(shè)置標(biāo)簽的加框形式。0—無(wú)邊框;1—單線邊框,缺省值為0
    Enabled 表示控件是否能使用。True—表示能使用;Fasl—表示禁止使用(控件顯示為灰色)
    Visible 表示控件是否可見(jiàn)。True—表示控件可見(jiàn);Fasl—表示控件不可見(jiàn)
    Left 指定其離開(kāi)容器左邊線的距離
    Top 指定其離開(kāi)容器上邊線的距離
    Height 指定其本身的高度
    Width 指定其本身的寬度
    (2)常用事件
    事件
     描述
    change 當(dāng)標(biāo)簽的內(nèi)容更改時(shí)觸發(fā),即為change事件編寫(xiě)的事件處理程序?qū)⒈粓?zhí)行
    click 單擊事件 ,點(diǎn)擊標(biāo)簽時(shí)觸發(fā)該事件
    dbclick 雙擊事件 ,雙擊標(biāo)簽時(shí)觸發(fā)該事件
    但Label 控件的主要作用是顯示文本,一般不需要編寫(xiě)事件過(guò)程代碼。
    (3)其它用法
    標(biāo)簽除了直接在設(shè)計(jì)階段設(shè)置之外,也常常在運(yùn)行階段用程序的方式來(lái)顯示時(shí)間。time$是一個(gè)與時(shí)間有關(guān)的函數(shù),由于它的返回值是字符串,因此可以把它賦值給標(biāo)簽的標(biāo)題,這樣就可以用標(biāo)簽來(lái)顯示時(shí)間,例如:
     label1.caption=time$
    如果要在標(biāo)簽中同時(shí)顯示2行以上的字符串,就一定要靠程序,即在字符串與字符串之間加上chr$(13)+chr$(10)(回車(chē)換行)控制碼,例如:
    label1.caption=time$+chr$(13)+chr$(10)+date$
    (4)例子
    設(shè)置界面如下:
    控件的屬性設(shè)置及代碼為:
    對(duì)象屬性
     對(duì)應(yīng)代碼
     Private Sub Label1_Click()
    Text1.SetFocus '單擊標(biāo)簽Label1后,文本框text1獲得焦點(diǎn)(激活狀態(tài))。
    End Sub
     Private Sub Label2_Click()
    Text2.SetFocus
    End Sub
     Private Sub Label3_Click()
    Text3.SetFocus
    End Sub
     Private Sub Label4_Click()
    End Sub
     Private Sub Command1_Click()
    Text1.Text = "" '清空文本框。
    Text2.Text = ""
    Text3.Text = ""
    End Sub
     Private Sub Command2_Click()
    Label4.Caption = Label4.Caption + Label1.Caption & Text1.Text & Label2.Caption & Text2.Text & Label3.Caption & Text3.Text + Chr(13)
    End Sub
     Private Sub Command3_Click()
    End
    End Sub