利用VB實(shí)現(xiàn)文框文本格式設(shè)置

1、利用VB實(shí)現(xiàn)文框文本格式設(shè)置作者:日期:【例2.3】設(shè)計(jì)程序?qū)崿F(xiàn)文本框文本的格式設(shè)置。要求程序能通過一組單選按鈕設(shè)置文本框的字體顏色黑色、藍(lán)色、紅色，默認(rèn)為黑色；通過另一組單選按鈕設(shè)置文本框背景色一一綠色、白色，默認(rèn)為白色，兩組單選按鈕使用不同的風(fēng)格；能通過復(fù)選框設(shè)置文本框的字形一一粗體、斜體、下劃線；文本框字號為20。運(yùn)行界面如圖2.11所示。圖2.11程序界面圖2.12界面設(shè)計(jì)（添加才$件）圖2.13界面設(shè)計(jì)（屬性設(shè)置效果）程序界面設(shè)計(jì)：如圖2.12所示，向窗體上添加三個(gè)框架（Frame）、一個(gè)文本框（TextBox）,在框架Frame1、Frame2和Frame3中分別添加三個(gè)單選按鈕（

2、OptionButton）、兩個(gè)單選按鈕、三個(gè)復(fù)選按鈕（CheckBox）。參照表2.4設(shè)置對象屬性，效果如圖2.13所示。表2.4對象屬性設(shè)置清單控件屬性取值控件屬性取值Form1Caption格式設(shè)置Option4Style1Frame1Caption字體顏色Option5Style1Frame2Caption背景Check1Caption粗體Frame3Caption字形Check2Caption斜體Option1Caption黑Check3Caption下劃線ValueTrueText1TextVB常用控件使用實(shí)例Option2Caption藍(lán)FontSize20Option3Capt

3、ion紅代碼設(shè)計(jì):PrivateSubForm_Load()該過程中的屬性也可在屬性窗口中設(shè)置Option4.Caption="Option4.BackColor=vbGreenOption5.Caption="白"Option5.BackColor=vbWhiteOption5.Value=TrueEndSubPrivateSubOption1_Click()Text1.ForeColor=vbBlackEndSubPrivateSubOption2_Click()Text1.ForeColor=vbBlueEndSubPrivateSubOption3_Cli

4、ck()Text1.ForeColor=vbRedEndSubPrivateSubOption4_Click()Textl.BackColor=vbGreenEndSubPrivateSubOption5_Click()Textl.BackColor=vbWhiteEndSub注：Textl.FontBold 為邏輯型，Checkl.Value 為 數(shù)值型，賦值時(shí)必須類型轉(zhuǎn)換，非零轉(zhuǎn)換成 True, 零轉(zhuǎn)換成False 。下面兩處與之類似。PrivateSubCheck1_Click()Textl.FontBold=Checkl.ValueEndSubPrivateSubCheck2_Click()Textl.Fontltalic=Check2.ValueEndSubPrivateSubCheck3_Click()Text1.