《《Visual Basic.NET程序设计教程》-陈语林-电子教案 p07》由会员分享，可在线阅读，更多相关《《Visual Basic.NET程序设计教程》-陈语林-电子教案 p07（51页珍藏版）》请在金锄头文库上搜索。
1、第七章 常用控件,控件是重要的可视化编程工具，是构成用户界面的基本元素，只有掌握了控件的属性、事件和方法，才能编写具有实用价值的应用程序。Visual Basic.NET中的控件可以出现在Windows窗体中，也可以出现在Web窗体中。其中在Windows窗体中使用的控件称为Windows窗体控件 。,7.1 文本控件,与文本有关的控件有两个，即标签（Label）和文本框（TextBox）。在标签中只能显示文本，不能进行编辑，而文本框中既可显示文本，又可在文本框中输入文本。 7.1.1 标签 标签主要用来显示文本信息，所显示的文本只能用Text属性来设置或修改，不能直接编辑。, 标签的属性 标
2、签的部分属性和窗体及其他控件相同，包括BackColor、ForeColor、Font、Height、Left、Name、Top、Visible、Width等。其他属性如下： Text TextAlign Autosize BorderStyle Enabled Image 标签的事件和方法 标签可触发Click和DblClick事件。此外，标签主要用来显示一小段文本，通过Text属性定义，一般不需要使用其他方法。,7.1.2 文本框, 文本框属性 MaxLength Multiline PassWordChar ScrollBars Text Locked TextAlign ReadOnl
3、y WordWrap 文本框事件 TextChanged事件 LostFocus事件, GotFocus事件 文本框方法 Focus是文本框中常用的方法，格式如下： 对象.Focus 【例7-3】 编写程序，用文本框检查口令输入。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Show() Text = “输入口令“ Button1.Text = “检查口令“ TextBox1.Text = “ TextBox1.PasswordCha
4、r = “*“ TextBox1.Focus() End Sub,Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = “123456“ Then MsgBox(“口令正确，继续执行“, , “) End Else MsgBox(“口令不对，请重新输入“, , “) TextBox1.Text = “ TextBox1.Focus() End If End Sub,7.2 图形控件,7.2.1 图片框的主要属性
5、 与窗体属性相同的属性 Image属性 BorderStyle属性 SizeMode属性,7.2.2 图形文件的装入, 在设置阶段装入图形文件 用属性窗口中的Image属性装入。 利用剪贴板把图形粘贴（Paste）到图片框中。 在运行期间装入图形文件 可以用Image.FromFile方法把图形装入图片框中。Image.FromFile方法的功能与Image属性基本相同，即用来把图形文件装入图片框，其一般格式为： 图片框名.Image=Image.FromFile（文件名）,【例7-4】编写程序，交换两个图片框中的图形。 Private Sub Form1_Load(ByVal sender
6、As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage PictureBox1.Image = Image.FromFile(“f:vb.appch07fll.jpg“) PictureBox
7、2.Image = Image.FromFile(“f:vb.appch07mll.jpg“) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBox3.Image = PictureBox1.Image PictureBox1.Image = PictureBox2.Image PictureBox2.Image = PictureBox3.Image 隐藏第三个图片框 PictureBox3.Visible
8、= False End Sub,7.3 按钮控件,7.3.1 属性和事件 Text属性 FlatStyle属性 Image属性 BackGroundlmage属性 ImageAlign属性 TextAlign属性,7.3.2 应用举例,【例7-5】编写程序，模拟交通信号灯的切换。,Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PictureBox2.Visible = False PictureBox3.Visible = False
9、End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If PictureBox1.Visible = True Then PictureBox1.Visible = False PictureBox2.Visible = True ElseIf PictureBox2.Visible = True Then PictureBox2.Visible = False PictureBox3.Visible = True Else Pi
10、ctureBox3.Visible = False PictureBox1.Visible = True End If End Sub,7.4 选择控件复选框和单选按钮,在应用程序中，复选框和单选按钮用来表示状态，可以在运行期间改变其状态。 7.4.1 复选框和单选按钮的属性和事件 属性 CheckedState属性（用于复选框） Checked属性（用于复选框和单选按钮）, Apperence属性（用于复选框和单选按钮） Normal 常规外观 Button 按钮式外观 FlatStyle属性（用于复选框和单选按钮） 复选框和单选按钮都可以接收Click事件，但通常不对复选框的单选按钮的Cl
11、ick事件进行处理。当单击复选框或单选按钮时，将自动变换其状态，一般不需要编写Click事件过程。,7.4.2 应用举例,【例7-6】在窗体建立一个文本框和两个复选框，其标题分别为“体育”和“音乐” 。 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click If CheckBox1.Checked And CheckBox2.Checked = False Then TextBox1.Text = “我的爱好是体育“ End If If CheckBox
12、2.Checked And CheckBox1.Checked = False Then TextBox1.Text = “我的爱好是音乐“ End If If CheckBox1.Checked And CheckBox2.Checked Then,TextBox1.Text = “我的爱好是体育和音乐“ End If If CheckBox1.Checked = False And CheckBox2.Checked = False Then TextBox1.Text = “ End If End Sub,7.5 选择控件列表框和组合框,7.5.1 列表框 属性 Items：该属性用来列
13、出表项的内容。 Items.Count：该属性列出列表框中表项的数量。 SelectedIndex：该属性的设置值是已选中的表项的位置。 SelectionMode：该属性用来设置一次可以选择的表项数。, GetSelected：当一个元素的值为True时，表明选择了该项；如果为False则表明未选择。 Sorted：该属性用来确定列表框中的项目是否按字母数字升序排列。 Text：该属性的值为最后一次选中的表项的文本，不能直接修改Text属性。 MultiColumn：该属性用来设定列表框中项目的显示方式，即以多列方式显示或以单列方式显示。 ColumnWidth：当MultiColumn属性
14、被设置为True时，可以用该属性设定列表框的列宽度，以像素为单位。, 列表框事件 列表框接收Click、DblClick、GotFocus和LostFocus事件。 列表框方法 列表框可以使用Items.Add、Items.Clear和Items.Remove等三种方法，用来在运行期间修改列表框的内容。 Items.Add。该方法用来在列表框中插入一行文本。 Items.Clear。该方法用来清除列表框的全部内容 。 Items.Remove。用该方法可以删除列表框中指定的项目。, Items.RemoveAt。该方法用来删除列表框中指定的项目。 【例7-8】交换两个列表框中的项目。其中一个列
15、表框中的项目按字母升序排列，另一个列表框中的项目按加入的先后顺序排列。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim a As Integer ListBox1.Items.Add(“IBM“) ListBox1.Items.Add(“Compaq“) ListBox1.Items.Add(“HP“) ListBox1.Items.Add(“FUJI“) ListBox1.Items.Add(“Digital“) ListBox
16、1.Items.Add(“长城“) ListBox1.Items.Add(“联想“) ListBox1.Items.Add(“Canon“),ListBox1.Items.Add(“四通“) ListBox1.Items.Add(“Acer“) ListBox1.Items.Add(“Nec“) ListBox1.Items.Add(“NCR“) End Sub Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick ListBox2.Items.Ad
