在窗體中放置一個(gè)列表框控件,一個(gè)文本框控件和三個(gè)按鈕控件。其中各對(duì)象的屬性設(shè)置如表5.31所示。
將下列代碼添加到ComAdd_Click事件過(guò)程中:
Private Sub ComAdd_Click()
Listl.AddItem TexAdd.Text
End Sub
將下列代碼添加到ComAdd_Click事件過(guò)程中:
Private Sub ComDel_Click()
If Listl.ListIndex >=0 Then
Listl.ReomoveItem Listl.ListIndex
Else
Print “您沒(méi)有選中任何項(xiàng)目”
End If
End Sub
將下列代碼添加到ComClear_Click事件過(guò)程中:
Private Sub ComClear_Click()
Listl.Clear
End Sub
運(yùn)行該程序,在文本框中輸入“學(xué)歷”,單擊【添加】按鈕,則項(xiàng)目“學(xué)歷”就被添加到了列表框中,如圖5.64所示。在列表框中選中“性別”項(xiàng)目,單擊【刪除】按鈕,則該項(xiàng)目就被刪除,如圖5.65所示。單擊【全部刪除】按鈕,則列表框中的所有項(xiàng)目都被刪除。
相關(guān)推薦:
2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢(xún)時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |