- 1、本文档共45页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
8.1常用的Windows窗体控件;3.TextBox控件
TextBox(文本框〉控件用于输入或显示文本信息。(参见第2章)
4.RichTextBox控件
RichTextBox(多格式文本框)控件用于显示、输入和操作带有格式的文本。RichTextBox控件除了执行TextBox控件的所有功能之外,它还可以显示字体、颜色和链接,从文件加载文本和嵌入的图像,撤消和重复编辑操作以及查找指定的字符。RichTextBox控件主要的属性、方法和事件如表8-2所示。;5.Button控件
Button(按钮)控件用于执行用户的单击操作。(参见第2章)
例8.1Label、TextBox、RichTextBox、Button应用示例。(见教材177页);例8.1的事件过程
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
RichTextBox1.Text=TextBox控件用于输入文本信息
RichTextBox1.Text=此控件具有标准Windows文本框控件所没有
RichTextBox1.Text=的附加功能,包括多行编辑和密码字符屏蔽。
TextBox1.Text=
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox1.Text+=RichTextBox1.SelectedText
RichTextBox1.SelectionFont=NewFont(Tahoma,12,FontStyle.Bold)
RichTextBox1.SelectionColor=System.Drawing.Color.Red
EndSub;8.1.2单选按钮、复选框和分组
1.RadioButton控件
RadioButton(单选按钮)控件用于选择同一组单选按钮中的一个单选按钮(不能同时选定多个)。使用Text属性可以设置其显示的文本。当单击RadioButton控件时,其Checked属性设置为True,并且调用Click事件处理程序。当Checked属性的值更改时,将引发CheckedChanged事件。;2.CheckBox控件
CheckBox(复选框)控件用于选择一项或多项选项(可以同时选定多个)。CheckBox控件主要的属性和事件如表8-6所示。;3.GroupBox控件
GroupBox(分组框)控件用于为其他控件提供可识别的分组。一般把相同类型的选项(RadioButton控件、CheckBox控件)分为一组,同一分组中的单选按钮只能选择一个。设计用户界面时,同一分组可以作为整体来处理。;例8.2RadioButton、CheckBox、GroupBox应用示例:创建Windows窗体应用程序Questionnaire调查个人信息,用户在填写了姓名、选择了性别和个人爱好后,单击“提交”按钮,页面显示用??所填写或者选择的数据信息。(见教材179页);例8.2程序代码如下:
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Label5.Text=TextBoxName.Text您好:vbCrLf
If(RadioButton1.Checked)Then
Label5.Text=您的性别是:RadioButton1.TextvbCrLf
ElseIf(RadioButton2.Checked)Then
Label5.Text=您的性别是:RadioButton2.TextvbCrLf
EndIf
Label5.Text=您的爱好是:
If(CheckBox1.Checked)Then
Label5.Text=CheckBox1.Text
EndIf
If(Ch
文档评论(0)