最新数据的输入与输出教学讲义ppt课件.ppt

《最新数据的输入与输出教学讲义ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、数据的输入与输出第3章数据的输入与输出3.1数据输出3.2数据输入3.3打印机输出3.4使用框架控件2直接输出到窗体ch3-3.1.1Print方法[<对象名>.]Print[<表达式列表>][{,

2、;}]<对象名>可以是窗体、图片框或打印机如果省略表达式则输出一个空行表达式间的分隔符：,或;3“标签”控件ch3-3.1.3789“文本框”控件ch3-3.3.1(1)Text文本属性　　显示的正文内容存放在Text属性中。(2)Maxlength属性　　Maxlength属性指明文本框中能够

3、输入的正文内容的最大长度。　　注意：　　在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。(3)MultiLine多行属性　　当MultiLine属性为True时，文本框可以输入或显示多行正文(4)ScrollBars滚动条属性10“文本框”控件ch3-3.3.1(5)Locked属性　　指定文本控件是否可被编辑，默认值为False，表示可编辑，当设置为True时，文本控件相当于标签的作用。11“文本框”控件ch3-3.3.1(6)SelStart、SelLe

4、ngth和SelText属性◆SelStart：选定的正文的开始位置，第一个字符的位置是0。◆SelLength：选定的正文长度。◆SelText：选定的正文内容。见下页举例：12“文本框”控件举例ch3-3.3.1[例3-2]在文本框Text1中选定文本，通过命令按钮将选定的内容复制或剪切到文本框Text2中。13“文本框”控件举例ch3-3.3.1（1）设计界面及设置属性两个文本框Text1和Text2，MultiLine属性均设为True，ScrollBars属性均设为2，HideSele

5、ction属性均设为False。文本框Text1的Alignment属性设为2。文本框Text1的Text属性设为李白的诗“下江陵”。添加三个命令按钮，Caption属性分别为“复制到目标区”、“剪切到目标区”和“退出”。14“文本框”控件举例ch3-3.3.1（2）编写代码PrivateSubcmdCopy_Click()'将选中的文本复制到Text2中Text2.SelText=Text1.SelTextEndSubPrivateSubcmdCut_Click()'将选中的文本复制到Text

6、2中Text2.SelText=Text1.SelText'删除Text1中被选中的文本，完成剪切Text1.SelText=""EndSub15“文本框”控件举例ch3-3.3.1[例3-3]建立一个类似记事本的应用程序。运行结果如下图16“文本框”控件ch3-3.3.1(1)Change事件　当用户输入新内容或当程序将Text属性设置新值，会引发该事件。当用户输入一个字符时，就会引发一次Change事件。(2)KeyPress事件当用户按下并且释放键盘上的一个键时，就会引发焦点所在控件的

7、KeyPress事件，此事件会返回一个KeyAscii参数到该事件过程中。例如，当用户输入字符"a"，返回KeyAscii的值为97。17“文本框”控件ch3-3.3.118“文本框”控件ch3-3.3.1(3)LostFocus事件此事件是在一个对象失去焦点时发生，焦点的丢失或者是由于制表键(Tab)移动或单击另一个对象操作的结果。(4)GotFocus事件GotFocus事件与LostFocus事件相反，当一个对象获得焦点时发生。19“文本框”控件ch3-3.3.1文本框最有用的方法是S

8、etFocus，该方法是把光标移到指定的文本框中。形式如下：　　　　[对象.]SetFocus20“文本框”控件ch3-3.3.1[例3-4]输入两个数，然后计算两个数的和，将结果显示。要求对输入的非数字数据，清除文本框中的内容，并使焦点重新回到该文本框。21“文本框”控件ch3-3.3.1PrivateSubText1_LostFocus()　　IfNotIsNumeric(Text1.text)Then　　　Text1.Text=""　　　Text1.SetFocus'焦点重新回到输

9、入文本框　　EndIfEndSub22“文本框”控件ch3-3.3.1PrivateSubText2_LostFocus()　　IfNotIsNumeric(Text2.text)AndText2.text<>""Then　　　Text2.Text=""　　　Text2.SetFocus'焦点重新回到输入文本框　　EndIfEndSub23“文本框”控件ch3-3.3.1PrivateSubText3_GotFocus()　Text3=Val(Text1.text)+Val(Text