第七講、常用基本控件

1、1Visual Basic程序設(shè)計(jì)基礎(chǔ)12計(jì)時(shí)器（timer） 3基本控件定時(shí)器復(fù)選框與單選按鈕列表框和組合框圖片框4計(jì)時(shí)器（timer）5示例設(shè)計(jì)一個(gè)應(yīng)用程序，標(biāo)簽?zāi)軌蜃詣?dòng)顯示當(dāng)前時(shí)間示例6在 Timer1 的 Timer 事件中輸入以下代碼：Private Sub Timer1_Tick()LblShow.text = 當(dāng)前時(shí)間為：當(dāng)前時(shí)間為： & now()End Sub7復(fù)選框(checkbox) 8例題9Private Sub button1_Click()Textbox1.Text = If Checkbox1. Checked Then Textbox1.Text = C

2、heckbox1.text + ，一枝紅杏出墻來(lái) End If If Checkbox2. Checked Then Textbox1.Text = Checkbox2.text + ，一枝紅杏出墻來(lái) End If If Checkbox3. Checked Then Textbox1.Text = Checkbox3.text + ，一枝紅杏出墻來(lái) End If If Checkbox4. Checked Then Textbox1.Text = Checkbox4.text + ，一枝紅杏出墻來(lái) End IfEnd Sub10單選按鈕（RadioButton）11例題12代碼1314列表框

3、（ListBox）15列表框（ListBox）16列表框（ListBox）17列表框（ListBox）18列表框（ListBox）19例題20代碼2122組合框（ComboBox）23例題24Private Sub button1_Click()ComboBox1.DataSource = dsComboBox1.DisplayMember = mystudent.sname End Sub25增加三號(hào)學(xué)生Private Sub button2_Click() ListBox1.Items.Add(ComboBox1.Text)End Sub減少三號(hào)學(xué)生Private Sub button3_

4、Click() ListBox1.Items.removeat(ListBox1.selectedindex) End Sub26全體三好學(xué)生Private Sub button4_Click() Dim i% For i = 0 To ComboBox1.Items.Count - 1 ListBox1.Items.Add(ds.Rows(i)(sname) NextEnd Sub全體刪除Private Sub button5_Click()Listbox1.Items .ClearEnd Sub27圖形控件(PictureBox)Image:基本格式為：PictureBox1.Load(

5、文件路徑及名稱 )28我們要實(shí)現(xiàn)兩張不同圖片在同一個(gè)圖形框內(nèi)的切換，同時(shí)可以啟用與禁用圖形框的自動(dòng)適應(yīng)功能。例題29顯示標(biāo)簽：顯示標(biāo)簽：Name：LblShowtext：現(xiàn)在顯示的是第現(xiàn)在顯示的是第一張圖一張圖圖形框控件：圖形框控件：Name：PicShow圖片切換按鈕：圖片切換按鈕：Name：CmdShowtext：圖片二圖片二1、創(chuàng)建如圖的界面：302、程序打開(kāi)時(shí)自動(dòng)載入圖片一：Private Sub Form_Load()PicShow.Picture = LoadPicture(“f:照片zn1.jpg)X = 1End Sub313、自動(dòng)適應(yīng)功能的實(shí)現(xiàn)：自動(dòng)適應(yīng)功能的實(shí)現(xiàn)：Private Sub CheckBox1_CheckedChanged（）If Checkbox1.checked Then Picshow.SizeMode = PictureBoxSizeMode.AutoSize Else Picshow.SizeMode = PictureBoxSizeMode.NormalEnd IfEnd Sub32Private Sub button1_Click()If X = 1 ThenPicShow.Load(“f:照片zn2.jpg)LblShow.text = 現(xiàn)在顯