VB程序设计课件.pptVIP

例1：有如下介面，在Text1中輸入字元時，單擊添加，則會加到組合框的最後一項；當單擊刪除時，組合框中選定的項的內容會被刪除；單擊修改時，組合框中選擇的內容會賦給文本框；單擊修改確認，文本框中修改好的內容會添加到原來的位置上。 END 首頁 上頁 下頁 目錄 程式如下： Private Sub Form_Load() Combo1.AddItem 張立 Combo1.AddItem 李曉勇 Combo1.AddItem 王小丫 Combo1.AddItem 陳玲玲 Combo1.AddItem 李紅 End Sub Private Sub Command1_Click() Combo1.AddItem Text1.Text Text1.Text = End Sub END 首頁 上頁 下頁 目錄 Private Sub Command2_Click() Combo1.RemoveItem Combo1.ListIndex End Sub Private Sub Command3_Click() Text1.Text = Combo1.Text Command1.Enabled = False Command2.Enabled = False Command3.Enabled