計算機文化基礎(chǔ)德清學(xué)院方圓雨田工作室2002年第五章常用控件(二)VB程序設(shè)計2001計大基本內(nèi)容標(biāo)簽Label文本框Textbox命令按鈕CommandBox

復(fù)選框OptionBox單選框CheckBox列表框ListBox

德清學(xué)院方圓雨田工作室

組合框ComboBox滾動條Scroll框架Frame對話框CommonDialog圖片框PictureBox圖像框ImageBox5-4單選按鈕(OptionButton)Value屬性:設(shè)置一個單選按鈕控件所代表項的選中狀態(tài)Click事件:

PrivatesubObject_click([indexasInteger])實例:四則運算PrivateSubOption1_click(indexasinteger) case0 Label2.caption=56*89 case1 Label2.caption=56/89 case2 Label2.caption=56+89 case3 label2.caption=56-89endselectEndsub返回5-5復(fù)選框(CheckBox)Value屬性:設(shè)置復(fù)選框處于選中,未選中或禁止?fàn)顟B(tài)(暗淡的)中哪一種012復(fù)選框不支持雙擊事件例:試?yán)?結(jié)合標(biāo)簽框,演示字體效果相關(guān)屬性,fontBold\fontItalicfontUnderline,ontstrikethruPrivateSubcheck1_click()Label1.fontBold=check1.value EndsubPrivateSubcheck2_click()Label1.fontItalic=check2.value EndsubPrivateSubcheck3_click()Label1.fontUnderline=check3.value EndsubPrivateSubcheck4_click()Label1.fontstrikethru=check4.value Endsub返回5-7列表框列表框和組合框是Windows應(yīng)用程序常用的控件主要用于提供一些可供選擇的列表項目。列表框常用來顯示一個項目的列表，用戶可從中選擇一項或多項。組合框兼有文本框和列表框兩者的功能，既可以在控件的文本框部分輸入信息，也可在控件的列表部分選擇一項。

德清學(xué)院方圓雨田工作室

列表框基本屬性1)Columns屬性：設(shè)置或返回一個值，以決定列表框是水平還是垂直滾動，以及如何顯示列表框中的項目。

德清學(xué)院方圓雨田工作室

屬性值功能說明0(默認(rèn)值)1-n以單列的方式顯示列表項，豎直滾動列項以多列形式顯示列表項，水平滾動列表項該屬性用于設(shè)置或返回控件的列表項內(nèi)容。屬性值是一個字符型的數(shù)組，其下標(biāo)是列表項的順序號，從0開始。通過該屬性可讀出列表內(nèi)容或向列表框添加列表項。例：LIST1.LIST(2)=“服裝部”例：TEXT.TEXT=LIST1.LIST(2)

德清學(xué)院方圓雨田工作室

LIST屬性：列表框基本屬性該屬性返回當(dāng)前選定項目的索引。如果選定第一個項目，則屬性值為0，如果選定下一個項目，則為1，依次類推。如未選定項目，則值為-1

德清學(xué)院方圓雨田工作室

ListIndex屬性：列表框基本屬性Listcount屬性：返回列表框項目的數(shù)目例：Text1.text=“youhave”&list1.listcout&”listed”通過TEXT屬性獲取列表內(nèi)容、TEXT屬性總是對應(yīng)用戶在運行時選定的列表項目。例：TEXT1.TEXT=LIST1.TEXT

德清學(xué)院方圓雨田工作室

Text屬性：列表框基本屬性語法：box.Additemitem[,index]Box為列表框名稱，若item內(nèi)容，index指定在列表中插入新項目的位置，默認(rèn)為追加。

德清學(xué)院方圓雨田工作室

1、向列表框添加項目：Additem列表框主要使用方法

實例：試在窗體中繪制一列表框，并設(shè)置Columns屬性為2，內(nèi)容為屏幕字體名清單PrivateSubform_Load()DimIasintegerforI=0toscreen.fontcount-1list.additemscreen.fonts(I)nextIEndsub

德清學(xué)院方圓雨田工作室

實例：試在窗體中逐項添加德清學(xué)院計算機專業(yè)相關(guān)班級PrivateSubform_Load()list1.additem“99計大”

list1.additem“00計大”

list1.additem“01計大”Endsub若在指定位置添加，例：List.additem“02計大”，0

德清學(xué)院方圓雨田工作室

語法：box.Additemindex

德清學(xué)院方圓雨田工作室

2、從列表中刪除項目：1)RemoveItem列表框主要使用方法2)clear例：list1.clear實例：試用列表框編寫字體設(shè)置

德清學(xué)院方圓雨田工作室

控件類別屬性名稱屬性值說明Form1Borderstyle3List1List2list3StyleColumns12復(fù)選框Label5Command1command2Borderstylecaption1“清除字體”PrivateSubform1_load() dimIasinteger ForI=0toscreen.fontcount-1 List1.additemscreen.fonts(I) NextI ForI=8to12 List3.additemtrim(str(I)) NextI ForI=14to72setp2 List3.additemtrim(str(I)) NextEndsub1.窗體啟動

PrivateSublist1_itemcheck(itemasinteger) list2.additemlist1.textEndsubPrivateSublist2_click() label1.fontname=list2.textEndsubPrivateSublist3_click()

label1.fontsize=val(list3.text)Endsub

德清學(xué)院方圓雨田工作室

2.PrivateSubcommand1_click() list2.clearEndsubPrivateSubcommand2_click() list2.removeitemlist2.listindexEndsub

德清學(xué)院方圓雨田工作室

3組合框(ComboBox)組合框適用于建議性的選項列表。組合框包含編輯區(qū)域，因此可將不在列表中選項輸入列區(qū)域中。

德清學(xué)院方圓雨田工作室

組合框基本屬性

德清學(xué)院方圓雨田工作室

1.Style屬性設(shè)置值樣式0-vbcombodropDown1–vbcombsimple2=vbcombodropdownlist下拉式組合框簡單組合框下拉式列表框PrivateSubform1_load() combo1.additem“北京”