VB語言程序設(shè)計窗體控件標簽文本框列表框和組合框滾動條和定時器VB語言程序設(shè)計窗體1列表框列表框（ListBox）控件將一系列的選項組合成一個列表，用戶可以選擇其中的一個或幾個選項列表框有兩種風格：標準和復(fù)選列表框Style=0標準Style=1復(fù)選列表框列表框列表框（ListBox）控件將一系列的選項組合成一個列2列表框添加新項目列表框添加新項目3列表框列表框主要屬性List、ListCount和ListIndex屬性List：字符型數(shù)組，存放列表框的項目數(shù)據(jù)，下標是從0開始的。ListIndex：為整型值，選中的項目的序號，沒有項目選中時為-1。ListCount：為整型值，表示項目的數(shù)量，ListCount-1是最后一項的下標。列表框列表框主要屬性4列表框列表框（ListBox）List、ListCount和ListIndex屬性列表框列表框（ListBox）5列表框列表框（ListBox）PrivateSubForm_Load()DimiAsIntegerLabel1.Caption=""Fori=0ToList1.ListCount-1Label1.Caption=Label1.Caption+List1.List(i)NextEndSub列表框列表框（ListBox）PrivateSubFor6列表框列表框主要屬性text屬性：用于存放被選中列表項的文本內(nèi)容。PrivateSubCommand1_Click()Label1.Caption=List1.TextEndSub列表框列表框主要屬性PrivateSubCommand17列表框列表框常用方法AddItem：用于將項目添加到列表框控件語法格式：〈對象名〉.AddItemitem[,index]其中：item:為字符串表達式，表示要加入的項目。Index:決定新增項目的位置，缺省，則添加在最后。列表框列表框常用方法語法格式：8列表框列表框常用方法Clear方法：用于清除列表框控件或組合框控件中的所有項目。語法格式：〈對象名〉.Clear列表框列表框常用方法語法格式：9列表框主要事件：Click事件：單擊某一列表項目時觸發(fā)DblClick事件：雙擊某一列表項目時觸發(fā)列表框主要事件：10列表框范例:設(shè)計以下界面列表框list1列表框范例:設(shè)計以下界面列表框list111列表框功能一先把庫存水果:蘋果,梨,桃子,信息錄入到列表框中功能二選中不同水果,在label3中報告水果名列表框功能一12列表框功能三實現(xiàn)添加新項目功能功能四實現(xiàn)刪除單項功能,若沒有列表內(nèi)容，則報出信息功能五:報告共有多少種水果,注意添加和刪除時要修改數(shù)目列表框功能三13組合框組合框控件（ComboBox）將文本框和列表框的功能結(jié)合在一起組合框共三種風格：下拉式組合框(允許輸入)簡單組合框和下拉式列表框(不允許輸入)組合框組合框控件（ComboBox）組合框共三種風格：14組合框基本事件與列表框類似范例combo1combo2combo3label4組合框基本事件與列表框類似combo1combo2combo15組合框Combo1:List宋體、黑體、隸書、幼圓Combo2:List常規(guī)、粗體、斜體、粗斜體Combo3:List:一號、二號、三號、四號、五號Itemdata:26、22、16、14、10組合框Combo1:16組合框初始化設(shè)置PrivateSubForm_Load()Combo1.ListIndex=0Combo2.ListIndex=0Combo3.ListIndex=4Label4.FontName=Combo1.TextLabel4.FontSize=Combo3.ItemData(4)Label4.FontBold=FalseLabel4.FontItalic=FalseEndSub組合框初始化設(shè)置PrivateSubForm_Load(17組合框選擇不同組合框時:PrivateSubCombo3_Click()DimaasintegerA=Combo3.ListIndexLabel4.FontSize=Combo3.ItemData(a)EndSubPrivateSubCombo1_Click()Label4.FontName=Combo1.TextEndSub組合框選擇不同組合框時:PrivateSubCombo318組合框選擇不同組合框時:PrivateSubCombo2_Click()DimaAsIntegera=Combo2.ListIndexSelectCaseaCase0:Label4.FontBold=FalseLabel4.FontItalic=FalseCase1:Label4.FontBold=TrueLabel4.FontItalic=FalseCase2:Label4.FontBold=FalseLabel4.FontItalic=TrueCase3:Label4.FontBold=TrueLabel4.FontItalic=TrueEndSelectEndSub組合框選擇不同組合框時:PrivateSubCombo219組合框P105例4-8組合框P105例4-820包含水平滾動條（HscrollBar)和垂直滾動條(VscrollBar)屬性（均以整數(shù)表示）(1)Value 滑塊所處位置所代表的值。(2)Max：最大值 -32,768~32,767(3)Min：最小值 -32,768~32,767(4)SmallChange 最小變動值，單擊箭頭移動增量值。(5)LargeChange 最大變動值，單擊空白處移動增量值。滾動條(ScrollBar)包含水平滾動條（HscrollBar)和垂直滾動條(Vscr21（1）Change事件滾動條的Change事件在移動滾動框或通過代碼改變其Value屬性值時發(fā)生。單擊滾動條兩端的箭頭或空白處將引發(fā)Change事件。（2）Scroll事件當滾動框被重新定位，或按水平方向或垂直方向滾動時，Scroll事件發(fā)生。拖動滑塊時會觸發(fā)Scroll事件。滾動條-事件Scroll事件與Change事件的區(qū)別在于：當滾動條控件滾動時Scroll事件一直發(fā)生，而Change事件只是在滾動結(jié)束之后才發(fā)生一次。（1）Change事件滾動條-事件Scroll事件與Chan22【例】利用滾動條改變文本框中所顯示文本的字號大小。程序代碼如下：PrivateSubHScroll1_Change（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEndSub舉例【例】利用滾動條改變文本框中所顯示文本的字號大小。程序代碼如23滾動條示例設(shè)計一個用于設(shè)置字體顏色的程序滾動條示例設(shè)計一個用于設(shè)置字體顏色的程序24計時器用于間隔一定時間觸發(fā)事件常用屬性Interval：取值范圍在0-64767之間（包括這兩個數(shù)值）,單位為毫秒（0.001秒),表示計時間隔。Interval為0或負數(shù),則計時器停止工作常用事件Timer：當Enabled屬性值為True且Interval屬性值大于0時，該事件以Interval屬性指定的時間間隔發(fā)生，需要定時執(zhí)行的操作即放在該事件過程中完成。計時器用于間隔一定時間觸發(fā)事件25計時器范例：實現(xiàn)向右擦除的圖片顯示效果設(shè)計界面HscrollBar:Min:1max:4110Visible:false(可改變)Timer:Interval:100Enable:false計時器范例：實現(xiàn)向右擦除的圖片顯示效果HscrollBar:26計時器功能：實現(xiàn)向右擦除的圖片顯示效果使用水平滾動條控制圖片寬度使用計時器每隔100毫秒自動更新滾動條的值。計時器功能：實現(xiàn)向右擦除的圖片顯示效果27【例】建立數(shù)字計時器，要求每秒鐘時間變化一次。PrivateSubTimer1_Timer（）Label1.FontSize=48Label1.Caption=Tim