第七讲、常用基本控件

1、1Visual Basic程序设计基础12计时器（timer） 3基本控件定时器复选框与单选按钮列表框和组合框图片框4计时器（timer）5示例设计一个应用程序，标签能够自动显示当前时间示例6在 Timer1 的 Timer 事件中输入以下代码：Private Sub Timer1_Tick()LblShow.text = 当前时间为：当前时间为： & now()End Sub7复选框(checkbox) 8例题9Private Sub button1_Click()Textbox1.Text = If Checkbox1. Checked Then Textbox1.Text = C

2、heckbox1.text + ，一枝红杏出墙来 End If If Checkbox2. Checked Then Textbox1.Text = Checkbox2.text + ，一枝红杏出墙来 End If If Checkbox3. Checked Then Textbox1.Text = Checkbox3.text + ，一枝红杏出墙来 End If If Checkbox4. Checked Then Textbox1.Text = Checkbox4.text + ，一枝红杏出墙来 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增加三号学生Private Sub button2_Click() ListBox1.Items.Add(ComboBox1.Text)End Sub减少三号学生Private Sub button3_

4、Click() ListBox1.Items.removeat(ListBox1.selectedindex) End Sub26全体三好学生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我们要实现两张不同图片在同一个图形框内的切换，同时可以启用与禁用图形框的自动适应功能。例题29显示标签：显示标签：Name：LblShowtext：现在显示的是第现在显示的是第一张图一张图图形框控件：图形框控件：Name：PicShow图片切换按钮：图片切换按钮：Name：CmdShowtext：图片二图片二1、创建如图的界面：302、程序打开时自动载入图片一：Private Sub Form_Load()PicShow.Picture = LoadPicture(“f:照片zn1.jpg)X = 1End Sub313、自动适应功能的实现：自动适应功能的实现：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 = 现在显