1、华中农业大学理学院计算机系,Wang Wei,1,第3讲 基本控件(文本框,命令按钮),用户交互函数,二、命令按钮,一、文本框,三、用户交互函数,华中农业大学理学院计算机系,Wang Wei,2,引例,例 利用属性实现对文本信息的拷贝,华中农业大学理学院计算机系,Wang Wei,3,一、文本框,文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。,华中农业大学理学院计算机系,Wang Wei,4,文本框,(1) Text 显示或输入的正文内容 (2) Maxlength 文本框文字最大长度 (3) MultiLine 多行属性,1、主要属性,华中农业大学理学院计算机系,Wa
2、ng Wei,5,文本框,(4) ScrollBars 滚动条属性None 无滚动条 Horizontal 水平滚动条 Vertical 垂直滚动条 Both 同时加水平和垂直滚动条,当MultiLine为True时，ScrollBars才有效,华中农业大学理学院计算机系,Wang Wei,6,文本框,(5) PassWordChar 设置显示文本的替代符。(6) ReadOnly 指定文本控件是否可被编辑。,华中农业大学理学院计算机系,Wang Wei,7,文本框,(7) 文本内容进行选择操作SelectionStart 选定的正文开始位置SelectionLength 选定的正文长度Sel
3、ectedText 选定的正文内容,华中农业大学理学院计算机系,Wang Wei,8,文本框,(1) TextChanged 事件 (2) LostFocus 事件 (3) GotFocus 事件 (4) KeyPress 事件所按键的值存放在参数e.KeyChar中,2 主要事件,例 对回车的判断 Asc(e.KeyChar)=13,华中农业大学理学院计算机系,Wang Wei,9,文本框,Focus把光标移到指定的文本框中。语法形式： 对象. Focus,3 主要方法,华中农业大学理学院计算机系,Wang Wei,10,实例演示,例 对输入的数据进行合法性检验，过滤不合法的数据。,华中农业
4、大学理学院计算机系,Wang Wei,11,Sub TextBox1_LostFocus() Handles TextBox1.LostFocusIf Not IsNumeric(TextBox1.Text) ThenTextBox1.Text = “ 清除输入文本框中的内容TextBox1.Focus() 焦点重新回到输入文本框End IfEnd SubSub TextBox2_LostFocus() Handles TextBox2.LostFocusIf Not IsNumeric(TextBox2.Text) ThenTextBox2.Text = “ 清除输入文本框中的内容TextB
5、ox2.Focus() 焦点重新回到输入文本框End If End Sub 文本框获得焦点，进行求和，并显示计算的和 Sub TextBox3_GotFocus() Handles TextBox3.GotFocusTextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)End Sub,华中农业大学理学院计算机系,Wang Wei,12,二、命令按钮,1 主要属性 (1) Text (2) FlatStyle 按钮的外观 (3) BackGroundImage (4) TextAlign、ImageAlign,华中农业大学理学院计算机系,W
6、ang Wei,13,命令按钮,2 主要事件 命令按钮一般接收Click事件,华中农业大学理学院计算机系,Wang Wei,14,按钮控件（Button）,按钮不可见,属性设置窗口,运行结果,按钮不可用,华中农业大学理学院计算机系,Wang Wei,15,综合应用,例 建立一个类似记事本的应用程序,实现：(1) 剪切、复制和粘贴的编辑操作(2) 字体大小的格式设置,华中农业大学理学院计算机系,Wang Wei,16,引例 InputBox_P.sln,华中农业大学理学院计算机系,Wang Wei,17,图形框（PictureBox）,华中农业大学理学院计算机系,Wang Wei,18,定时器（
7、Timer）,华中农业大学理学院计算机系,Wang Wei,19,三、用户交互函数,字符串变量 = InputBox （提示信息, 标题, 默认值, Xpos, Ypos）,语法形式：,1、Inputbox函数,华中农业大学理学院计算机系,Wang Wei,20,Inputbox函数,例 要输入一个0到100之间的整数：,Dim temp As String Temp=InputBox(“输入一个0到100之间的整数”，“接受用户输入”，0”）,华中农业大学理学院计算机系,Wang Wei,21,例: Dim x%x = Val(InputBox(“请输入一个数“, “输入框“, 100),I
8、nputbox函数,华中农业大学理学院计算机系,Wang Wei,22,例: Dim s As Strings = InputBox(“Input“, “InputBox“, 100, 500, 5),InputBox函数,华中农业大学理学院计算机系,Wang Wei,23,引例 MsgBoxRes.sln,华中农业大学理学院计算机系,Wang Wei,24,2、MsgBox函数和MsgBox过程,1)函数形式:返回值 = MsgBox（信息, 响应按钮代码+警告图标代码, 标题）,华中农业大学理学院计算机系,Wang Wei,25,返回目录,MsgBox （P99-100）,Dim x As
9、 Integerx = MsgBox(“你确定要离开吗？“ , MsgBoxStyle.YesNo + MsgBoxStyle.Question, “离开操作“)x = MsgBox(“你确定要离开吗？“, 4 + 32, “离开操作“),华中农业大学理学院计算机系,Wang Wei,26,响应钮代码：,Msgbox函数,华中农业大学理学院计算机系,Wang Wei,27,MsgBox函数,警告图标代码：,华中农业大学理学院计算机系,Wang Wei,28,MsgBox函数,返回值：程序通过返回值判断用户到底按下哪种按钮，作为程序运行时的流程判断.,华中农业大学理学院计算机系,Wang Wei
10、,29,2)过程形式: MsgBox（信息, 响应按钮代码+警告图标代码, 标题）Dim x As IntegerMsgBox(“离开操作“, 4 + 16, “你确定要离开吗？“),华中农业大学理学院计算机系,Wang Wei,30,综合应用,例 简易计算器。要求能对输入的数据进行合法性检查。,华中农业大学理学院计算机系,Wang Wei,31,小 结,基本控件 文本框 命令按钮 交互函数 InputBox MsgBox,华中农业大学理学院计算机系,Wang Wei,32,标签（Label）,华中农业大学理学院计算机系,Wang Wei,33,文本框（TextBox）,华中农业大学理学院计算机系,Wang Wei,34,命令按钮（Button）,VB.NET程序设计,主讲人：王玮 副教授,,Thank You !,
