在窗體上放置四個(gè)標(biāo)簽控件、一個(gè)文本框控件和一個(gè)滾動(dòng)條控件,如圖5.68所示,其中各對(duì)象的屬性設(shè)置如表5.33所示。
雙擊滾動(dòng)條控件,打開【代碼】窗口,將下列代碼添加到HScrolll_Change事件過程中:
Private Sub HScrolll_Change()
Labzhe.Caption=HScrolll.Value & “折”
Labzhe.Caption=Text1.Text* HScorlll.Value/10 & “元”
End Sub
由于代碼在HScrolll_Change()事件過程中,因此,一旦滾動(dòng)條的值改變了,當(dāng)前的打折情況以及物品的現(xiàn)價(jià)即可被更新。為了使在拖動(dòng)滾動(dòng)框時(shí),打折和現(xiàn)價(jià)也會(huì)隨時(shí)更新,將上述代碼再添加到HScrolll_Scroll事件過程中。
Private Sub HScorlll_Scorll()
Labzhe.Caption=HScrolll.Value & “折”
Labzhe.Caption=Text1.Text * HScorlll.Value/10 & “元”
End Sub
運(yùn)行該程序,在文本框中輸入物品的原價(jià),拖動(dòng)滾動(dòng)條,則窗體上就會(huì)顯示出打折的多少和物品的現(xiàn)價(jià)。
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |