第3讲 vbnet基本控件

《第3讲 vbnet基本控件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第3讲基本控件(文本框,命令按钮),用户交互函数二、命令按钮一、文本框三、用户交互函数华中农业大学理学院计算机系1WangWei引例例利用属性实现对文本信息的拷贝华中农业大学理学院计算机系2WangWei一、文本框文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。华中农业大学理学院计算机系3WangWei文本框(1)Text显示或输入的正文内容(2)Maxlength文本框文字最大长度(3)MultiLine多行属性1、主要属性华中农业大学理学院计算机系4WangWei文本框(4)ScrollBars滚动条属性None无滚动条Hori

2、zontal水平滚动条Vertical垂直滚动条Both同时加水平和垂直滚动条当MultiLine为True时，ScrollBars才有效华中农业大学理学院计算机系5WangWei文本框(5)PassWordChar设置显示文本的替代符。(6)ReadOnly指定文本控件是否可被编辑。华中农业大学理学院计算机系6WangWei文本框(7)文本内容进行选择操作SelectionStart选定的正文开始位置SelectionLength选定的正文长度SelectedText选定的正文内容华中农业大学理学院计算机系7WangWei文本框(1)TextChang

3、ed事件(2)LostFocus事件(3)GotFocus事件(4)KeyPress事件所按键的值存放在参数e.KeyChar中2主要事件例对回车的判断Asc(e.KeyChar)=13华中农业大学理学院计算机系8WangWei文本框Focus把光标移到指定的文本框中。语法形式：[对象.]Focus3主要方法华中农业大学理学院计算机系9WangWei实例演示例对输入的数据进行合法性检验，过滤不合法的数据。华中农业大学理学院计算机系10WangWeiSubTextBox1_LostFocus(……)HandlesTextBox1.LostFocusIfNo

4、tIsNumeric(TextBox1.Text)ThenTextBox1.Text=""'清除输入文本框中的内容TextBox1.Focus()'焦点重新回到输入文本框EndIfEndSubSubTextBox2_LostFocus(……)HandlesTextBox2.LostFocusIfNotIsNumeric(TextBox2.Text)ThenTextBox2.Text=""'清除输入文本框中的内容TextBox2.Focus()'焦点重新回到输入文本框EndIfEndSub'文本框获得焦点，进行求和，并显示计算的和SubTextBox3_G

5、otFocus(……)HandlesTextBox3.GotFocusTextBox3.Text=Val(TextBox1.Text)+Val(TextBox2.Text)EndSub华中农业大学理学院计算机系11WangWei二、命令按钮1主要属性(1)Text(2)FlatStyle按钮的外观(3)BackGroundImage(4)TextAlign、ImageAlign华中农业大学理学院计算机系12WangWei命令按钮2主要事件命令按钮一般接收Click事件华中农业大学理学院计算机系13WangWei按钮控件（Button）按钮不可见属性设置窗

6、口运行结果按钮不可用华中农业大学理学院计算机系14WangWei综合应用例建立一个类似记事本的应用程序,实现：(1)剪切、复制和粘贴的编辑操作(2)字体大小的格式设置华中农业大学理学院计算机系15WangWei引例InputBox_P.sln华中农业大学理学院计算机系16WangWei图形框（PictureBox）常用属性描述Name控件名称的唯一标识，用于代码编写Image设置图形框上的图片SizeMode图片的大小及位置常用事件描述Click用鼠标单击图形框时触发华中农业大学理学院计算机系17WangWei定时器（Timer）常用属性描述Name控件

7、名称的唯一标识，用于代码编写Enabled有效性设置InterVal定时器时间间隔常用事件描述Tick时间间隔到触发华中农业大学理学院计算机系18WangWei三、用户交互函数字符串变量=InputBox（提示信息[,[标题][,[默认值][,Xpos,Ypos]]]）语法形式：1、Inputbox函数华中农业大学理学院计算机系19WangWeiInputbox函数标题提示信息默认值例要输入一个0到100之间的整数：DimtempAsStringTemp=InputBox(“输入一个0到100之间的整数”，“接受用户输入”，0”）华中农业大学理学院计算机

8、系20WangWei例:Dimx%x=Val(InputBox("请输入一个数"