設(shè)計(jì)題匯編資料第1頁(yè)/共77頁(yè)VB設(shè)計(jì)題分類時(shí)鐘控件應(yīng)用列表框&組合框控件應(yīng)用圖形框&圖像框&繪圖&圖片加載滾動(dòng)條的應(yīng)用文本框&按鈕&標(biāo)簽控件單選框&復(fù)選框&框架控件應(yīng)用菜單設(shè)計(jì)第2頁(yè)/共77頁(yè)時(shí)鐘控件應(yīng)用相關(guān)時(shí)鐘控件主要包括2個(gè)屬性：Interval、Enable時(shí)鐘控件的Timer事件是控制在頻率內(nèi)執(zhí)行相關(guān)控件的屬性變化第3頁(yè)/共77頁(yè)第4頁(yè)/共77頁(yè)第5頁(yè)/共77頁(yè)第6頁(yè)/共77頁(yè)P(yáng)rivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Label1.Caption="00:00:00"Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Label1.Caption=Format(Time,"hh:mm:ss")EndSub第7頁(yè)/共77頁(yè)第8頁(yè)/共77頁(yè)第9頁(yè)/共77頁(yè)第10頁(yè)/共77頁(yè)第11頁(yè)/共77頁(yè)第12頁(yè)/共77頁(yè)列表框&組合框控件應(yīng)用列表框&組合框共有重要屬性：Style、List、ListIndex、ListCount（如果未選定項(xiàng)目，則ListIndex

屬性值是-1。列表的第一項(xiàng)是ListIndex0，ListCount

屬性值總是比最大的ListIndex

值大1；對(duì)List、ListCount和ListIndex

屬性進(jìn)行設(shè)置就可以訪問ListBox

中的項(xiàng)目。也可以在設(shè)計(jì)時(shí)使用List

屬性在列表中增加項(xiàng)目。）方法：RemoveItem方法：用以從ListBox或

ComboBox控件中刪除一項(xiàng)。語法：object.RemoveItem

index；其中的index是必需的。一個(gè)整數(shù)，它表示要?jiǎng)h除的項(xiàng)或行在對(duì)象中的位置。對(duì)于ListBox或ComboBox中的首項(xiàng)，index=0。AddItem方法：用于將項(xiàng)目添加到ListBox或ComboBox控件。語法：object.AddItem

item,index其中Item是必需的。字符串表達(dá)式，它用來指定添加到該對(duì)象的項(xiàng)目。Index可選。是整數(shù)，它用來指定新項(xiàng)目或行在該對(duì)象中的位置。如果所給出的index值有效，則item將放置在object中相應(yīng)的位置。如果省略index，當(dāng)Sorted屬性（返回一個(gè)值，指定控件的元素是否自動(dòng)按字母表順序排序）設(shè)置為True時(shí)，item將添加到恰當(dāng)?shù)呐判蛭恢?，?dāng)Sorted屬性設(shè)置為False時(shí)，item將添加到列表的結(jié)尾。Clear方法用于清除ListBox，ComboBox內(nèi)的項(xiàng)目

第13頁(yè)/共77頁(yè)第14頁(yè)/共77頁(yè)第15頁(yè)/共77頁(yè)第16頁(yè)/共77頁(yè)第17頁(yè)/共77頁(yè)第18頁(yè)/共77頁(yè)第19頁(yè)/共77頁(yè)第20頁(yè)/共77頁(yè)添加兩個(gè)list控件和一個(gè)Caption屬性為剪切的按鈕.PrivateSubCommand1_Click()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSubPrivateSubForm_Load()List1.AddItem"AAA"List1.AddItem"BBB"List1.AddItem"CCC"List1.AddItem"DDD"List1.AddItem"EEE"EndSub第21頁(yè)/共77頁(yè)第22頁(yè)/共77頁(yè)第23頁(yè)/共77頁(yè)第24頁(yè)/共77頁(yè)第25頁(yè)/共77頁(yè)第26頁(yè)/共77頁(yè)第27頁(yè)/共77頁(yè)第28頁(yè)/共77頁(yè)圖片框&圖像框&圖形控件&繪圖第29頁(yè)/共77頁(yè)第30頁(yè)/共77頁(yè)第31頁(yè)/共77頁(yè)第32頁(yè)/共77頁(yè)第33頁(yè)/共77頁(yè)第34頁(yè)/共77頁(yè)第35頁(yè)/共77頁(yè)第36頁(yè)/共77頁(yè)在工具欄的“添加窗體”添加form2窗體.在工程資源管理器窗口中的“工程屬性”對(duì)話框指定form1為啟動(dòng)窗體.在Form1中添加一個(gè)命令按鈕.PrivateSubCommand1_Click()UnloadMeForm2.Showform2.picture=Loadpicture(“K:\Fjexam95\ravmon.jpg”)EndSub第37頁(yè)/共77頁(yè)第38頁(yè)/共77頁(yè)第39頁(yè)/共77頁(yè)控件屬性設(shè)置如題PrivateSubForm_Load()Image1.Picture=LoadPicture("k:\fjexam95\Tree.jpg")Image2.Picture=LoadPicture("k:\fjexam95\dog.jpg")Image3.Visible=FalseEndSubPrivateSubCommand1_Click()Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Picture=Image3.PictureImage3.Visible=FalseEndSub第40頁(yè)/共77頁(yè)第41頁(yè)/共77頁(yè)相關(guān)代碼如下：PrivateSubC1_Click()Form1.Picture=LoadPicture("k:\fjexam95\jztx.bmp")EndSubPrivateSubC2_Click()Form1.Picture=LoadPicture("")EndSub第42頁(yè)/共77頁(yè)第43頁(yè)/共77頁(yè)第44頁(yè)/共77頁(yè)第45頁(yè)/共77頁(yè)第46頁(yè)/共77頁(yè)滾動(dòng)條的應(yīng)用第47頁(yè)/共77頁(yè)第48頁(yè)/共77頁(yè)添加Label2，Label3，Label4，Label5.其Caption分為”調(diào)出顏色”,”紅(R)”,”綠(G)”,”藍(lán)(B)”的標(biāo)簽控件，Label1的Caption為空，和添加三個(gè)水平滾動(dòng)條(名稱為hs1,hs2,hs3)，且min,max屬性值均為0，255。PrivateSubHS1_Change()Label1.BackColor=RGB(HS1.Value,HS2.Value,HS3.Value)EndSubPrivateSubHS2_Change()Label1.BackColor=RGB(HS1.Value,HS2.Value,HS3.Value)EndSubPrivateSubHS3_Change()Label1.BackColor=RGB(HS1.Value,HS2.Value,HS3.Value)EndSub第49頁(yè)/共77頁(yè)第50頁(yè)/共77頁(yè)文本框&按鈕&標(biāo)簽控件第51頁(yè)/共77頁(yè)第52頁(yè)/共77頁(yè)第53頁(yè)/共77頁(yè)相關(guān)代碼如下：PrivateSubCommand1_Click()Text1.Visible=FalseEndSubPrivateSubCommand2_Click()Text1.Visible=TrueText1.Text="VB程序設(shè)計(jì)"EndSub第54頁(yè)/共77頁(yè)第55頁(yè)/共77頁(yè)第56頁(yè)/共77頁(yè)第57頁(yè)/共77頁(yè)第58頁(yè)/共77頁(yè)第59頁(yè)/共77頁(yè)P(yáng)rivateSubCommand1_Click()IfText1.Text="student"ThenLabel2.Caption="歡迎使用本系統(tǒng)"ElseLabel2.Caption="口令錯(cuò)，請(qǐng)重新輸入“Text1.SelStart=0Text1.SelLength=Len(Text1.Text)Text1.SetFocusEndIfEndSubText1屬性：PassWordChar---*第60頁(yè)/共77頁(yè)第61頁(yè)/共77頁(yè)第62頁(yè)/共77頁(yè)第63頁(yè)/共77頁(yè)第64頁(yè)/共77頁(yè)添加標(biāo)簽caption屬性為“請(qǐng)您輸入您的昵稱”的label控件；添加一個(gè)文本框和一個(gè)caption屬性為“下一步”的命令按鈕，其enabled屬性為false.PrivateSubText1_Change()Command1.Enabled=TrueForm1.Caption=Text1.TextEndSub第65頁(yè)/共77頁(yè)第66頁(yè)/共77頁(yè)單選框&復(fù)選框&框架控件應(yīng)用第67頁(yè)/共77頁(yè)第68頁(yè)/共77頁(yè)P(yáng)rivateSubc1_Click()Ifch1Andch2ThenText1.Text="報(bào)名參加籃球和排球比賽"ElseIfch1ThenText1.Text="報(bào)名參加籃球比賽"ElseIfch2ThenText1.Text="報(bào)名參加排球比賽"ElseText1.Text=""EndIfEndSub第69頁(yè)/共77頁(yè)第70頁(yè)/共77頁(yè)菜單設(shè)計(jì)第71頁(yè)/共77頁(yè)第72頁(yè)/共77頁(yè)第73頁(yè)/共77頁(yè)第74頁(yè)/共77頁(yè)添加一個(gè)文本框,其text屬性為“歡迎使用vb”添加菜單：選擇工具菜單下的菜單編輯器，添加如圖菜單,編輯器中的可見屬性不選(即菜單不可見).PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle