VB程序设计第四章数据输入输出.ppt

VisualBasic程序设计教程,内蒙古科技大学实践训练中心,第四章数据输入输出,4.1数据输入输出控件,4.1.1用标签输出数据标签主要用于显示文本信息。它所显示的内容只能用Caption属性来设置或修改。例【4-1】利用两个标签显示具有浮雕效果的文字。解题思路：所谓浮雕效果就是使显示的文字利用黑色和白色的错位叠加来实现，第一个标签的背景必须为透明的，两个标签的文字、字体大小必须一致。,4.1数据输入输出控件,4.1.2用文本框输入输出数据文本框是一个文本编辑区域，常用于在程序运行时接收用户输入的数据。例【4-2】在一个文本框中输入字符，另一文本框输出其ASCII码值。解题思路：利用文本框的KeyPress事件输出字符的ASCII码值。,Privatesubtext1_keypress(keyasciiasinteger)text2.text=keyasciiEndsub,4.1数据输入输出控件,4.1.2用文本框输入输出数据例【4-3】在利用文本框对输入的非数字数据进行字符串连接。解题思路：在文本框中输入数据，可通过回车表示输入结束，在KeyPress事件中对输入的键是否为回车符（ASCII码为13）进行判断；也可以通过按Tab键或单击其他对象不是输入结束，本题采用第二种方式表示输入结束。,4.2数据输出方法,4.2.1Print方法Print方法可以在窗体上显示文本字符串和表达式的值，也可在其他图形对象或打印机上输出信息。格式：对象名.Print表达式表,|;说明：“对象名”可以是窗体(Form)、立即窗口(Debug)、图片框(PictureBox)、打印机(Printer)，若省略，则在当前窗体上输出。例如：Print“GoodMorning”将字符串GoodMorning显示在窗体上Picture1.print“GoodMorning”把字符串GoodMorning显示在图片Picture1上Printer.Print“GoodMorning”将“GoodMorning”输出到打印机,4.2数据输出方法,4.2.1Print方法“表达式表”是一个或多个表达式。对于数值表达式，先计算出表达式的值，再输出；而字符串则原样输出；若省略，则输出一个空行。例如：Print180/3输出表达式的值60Print输出一空行Print“X=180/3”输出字符串”X=180/3”表达式表中各表达式之间用分隔符（逗号或分号）隔开。用逗号分隔：按标准输出格式显示数据项，以14个字符位置为单位将输出行分成若干个区域，每区段输出一个表达式的值。用分号分隔：以紧凑格式输出。例如：a=10:b=15:c=30Printa,b,c,”ABCD”PrintPrint“X=“;a+b+c,4.2数据输出方法,4.2.1Print方法Print方法具有计算和输出的双重功能，对于表达式，则先计算后输出；例：x=5:y=10Print(x+y)/3结果为5分号或逗号为结尾符号。一般每执行一次Print方法要自动换行，而以逗号或分号作为结尾符号则不换行，仍按紧凑格式或标准格式显示下一个信息。例如：print1,2,print3;print4结果：1234,4.2数据输出方法,4.2.2与Print方法有关的函数1、Tab函数格式：Tab(n)与Print方法一起使用，在参数n指定的位置输出其后的表达式的值。例：PrintTab（25）；“ABC”将在第25个位置显示”ABC”说明：参数n为一整数，用来指定表达式输出的起始列数；若省略，则Tab将输出点移动到下一个输出区的起点；若n”;strx$fontsize=18fontname=“Terminal”print“Terminal”；strx$endsub,4.4字体、字形和颜色,4.4.3其他属性1、粗体字：由FontBold属性设置格式：FontBoldBoolean省略选项时，FontBold属性返回其当前值。参数Boolean取值为True时，FontBold属性为粗体，否则文本按正常字体输出，默认为False。2、斜体字：由FontItalic属性设置格式：FontItalicBoolean3、加中划线：由FontStrikethru属性设置格式：FontStrikethruBoolean4、加下划线：由FontUnderLine属性设置格式：FontUnderLineBoolean5、重叠显示：当以图形或文本为背景显示新的信息时，有时需要保留原来的背景，使新显示的信息与背景信息重合，可由FontTransparent属性设置。格式：FontTransparentBoolean,4.4字体、字形和颜色,4.4.3其他属性注意：除重叠显示属性（FontTrasparent）只适用于窗体和图片控件外，其他属性适用于各种控件及打印机。默认对象名为窗体，否则应加对象名：Printer.FontItalic=True设置一种属性后，该属性即开始起作用，只有再次设置该属性，才会改变其值。,4.4字体、字形和颜色,4.4.3其他属性例【4-11】字体风格的设定Privatesubform_click()sample$=“VB程序设计”fontsize=20字体大小为20printsample$fontbold=true字体加粗printsample$fontitatlic=true字体为斜体printsample$fontstrikethru=true加中划线printsample$fontunderline=true加下划线printsample$fonttransparent=true设置变量重叠printsamplecurrentx=1000设置当前光标的x、y坐标currenty=1500print“AAAAAAAAAA”在(x,y)处输出EndSub,4.4字体、字形和颜色,4.4.4颜色及颜色参数1、调色板从属性窗口中找到要设置的颜色属性；从“视图”“调色板”中设置颜色属性；2、颜色参数使用RGB函数格式：RGB(红色值，绿色值，蓝色值)3个参数均为整数，取值范围：0255；0亮度最低，255亮度最高例如，黄色RGB(255,255,0),其中0代表没有蓝色白色RGB(255,255,255)Form1.Backcolor=RGB(0,128,0)设定窗体背景色为绿色Form1.ForecolorRGB(255,255,0)设定窗体前景色为黄色,4.4字体、字形和颜色,4.4.4颜色及颜色参数2、颜色参数QBColor函数格式：QBColor(颜色值)“颜色值”的取值范围为：015例如：Forme1.BackColor=QBColor(3)设置窗体背景色为青色颜色常数VisualBasic定义了8种常用颜色和Windows控制面板使用的系统颜色。具体见教材列表。,4.4字体、字形和颜色,4.4.4颜色及颜色参数常用颜色常量,4.4字体、字形和颜色,4.4.4颜色及颜色参数2、颜色参数直接使用颜色设置值通常用十六进制表示颜色值：Printer.Page输出结果为9NewPage方法：用于结束对象中的当前页，实现换页操作格式：Printer.NewPage一般情况下，打印机打完一页后自动换页。若调用NewPage方法，则可强制打印机换页，将打印机位置重置到新页面的左上角，Page属性自动加1;EndDoc方法：用于结束文件打印，并将Page属性加1格式：Printer.EndDoc,4.5打印机输出,4.5.2窗体输出格式：窗体.PrintForm“窗体输出”是先将要输出的信息送到窗体上，然后用printform方法把窗体的内容打印出来。【例】通过窗体将指定信息输出打印机privatesubform_click()fontname=“courier”fontsize=24currentx=800currenty=500print“printtest”fontname=“黑体”currentx=800currenty=1000print“打印机测试”printformendsub,4.5打印机输出,4.5.2窗体输出说明：窗体打印可以先在屏幕上修改要输出的内容格式，满意后再在打印机上输出。为实现窗体打印，必须在属性窗口中把窗体的AutoRedraw属性设置为True，该属性可以保存窗体上的信息。用PrintForm方法不仅可以打印窗体上的文本，而且可以打印窗体上的任何可见控件和图形；,4.5打印机输出,4.5.3打印源程序代码1、直接打印菜单“文件”打印“命令实现。2、间接打印选用文本编辑器（Notepad、Word等）打印.frm、.bas等文件。,