Visual Basic.NET程序设计教程 陈语林 p07

《Visual Basic.NET程序设计教程 陈语林 p07》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第七章常用控件控件是重要的可视化编程工具，是构成用户界面的基本元素，只有掌握了控件的属性、事件和方法，才能编写具有实用价值的应用程序。VisualBasic.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⑺TextA

3、lign⑻ReadOnly⑼WordWrap⒉文本框事件⑴TextChanged事件⑵LostFocus事件⑶GotFocus事件⒊文本框方法Focus是文本框中常用的方法，格式如下：[对象.]Focus【例7-3】编写程序，用文本框检查口令输入。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadShow()Text="输入口令"Button1.Text="检查口令"TextBox1.Text=""TextBox1.PasswordCh

4、ar="*"TextBox1.Focus()EndSubPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfTextBox1.Text="123456"ThenMsgBox("口令正确，继续执行",,"")EndElseMsgBox("口令不对，请重新输入",,"")TextBox1.Text="“TextBox1.Focus()EndIfEndSub7.2图形控件7.2.1图片框的主要属性⒈与窗体属性相同的属性⒉Image属性⒊Bord

5、erStyle属性⒋SizeMode属性7.2.2图形文件的装入⒈在设置阶段装入图形文件⑴用属性窗口中的Image属性装入。⑵利用剪贴板把图形粘贴（Paste）到图片框中。⒉在运行期间装入图形文件可以用Image.FromFile方法把图形装入图片框中。Image.FromFile方法的功能与Image属性基本相同，即用来把图形文件装入图片框，其一般格式为：图片框名.Image=Image.FromFile（″文件名″）【例7-4】编写程序，交换两个图片框中的图形。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByV

6、aleAsSystem.EventArgs)HandlesMyBase.LoadPictureBox1.SizeMode=PictureBoxSizeMode.StretchImagePictureBox2.SizeMode=PictureBoxSizeMode.StretchImagePictureBox3.SizeMode=PictureBoxSizeMode.StretchImagePictureBox1.Image=Image.FromFile("f:vb.appch07fll.jpg")PictureBox2.Image=Image.FromFile

7、("f:vb.appch07mll.jpg")EndSubPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.ClickPictureBox3.Image=PictureBox1.ImagePictureBox1.Image=PictureBox2.ImagePictureBox2.Image=PictureBox3.Image'隐藏第三个图片框PictureBox3.Visible=FalseEndSub7.3按钮控件7.3.1属性和事件⒈