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

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

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

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

PrivatesubObject_click([indexasInteger])實(shí)例:四則運(yùn)算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)用程序常用的控件主要用于提供一些可供選擇的列表項(xiàng)目。列表框常用來顯示一個(gè)項(xiàng)目的列表，用戶可從中選擇一項(xiàng)或多項(xiàng)。組合框兼有文本框和列表框兩者的功能，既可以在控件的文本框部分輸入信息，也可在控件的列表部分選擇一項(xiàng)。

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

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

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

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

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

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

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

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

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

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

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

1、向列表框添加項(xiàng)目：Additem列表框主要使用方法

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

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

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

list1.additem“00計(jì)大”

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

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

語法：box.Additemindex

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

2、從列表中刪除項(xiàng)目：1)RemoveItem列表框主要使用方法2)clear例：list1.clear實(shí)例：試用列表框編寫字體設(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)組合框適用于建議性的選項(xiàng)列表。組合框包含編輯區(qū)域，因此可將不在列表中選項(xiàng)輸入列區(qū)域中。

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

組合框基本屬性

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

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