南邮VisualBasic程序设计课件ch2VB语言基础.pptVIP

图4.1使用Print方法图4.2建立程序界面表4-1属性设置与Print方法有关的函数为了使数据按指定的位置输出，VB提供了几个与Print相配合的函数。Tab函数在Print方法中，可以使用Tab函数来对输出进行定位。Spc函数在Print方法中，还可以使用Spc函数来对输出进行定位。【例4-2】使用Tab和Spc函数进行对齐输出，如图4.3所示。图4.3使用Tab和Spc函数进行对齐输出PrivateSubForm_Click()PrintPrintTab(5);学号;Tab(20);姓名;Tab(30);性别;Tab(40);入学成绩PrintPrintTab(5);2000101;Tab(20);丁叮;Tab(30);女;Tab(40);650PrintTab(5);2000102;Tab(20);柳洋洋;Tab(30);男;Tab(40);668PrintTab(5);2000103;Spc(8);李骊;Spc(6);女;Spc(8);640PrintTab(5);2000132;Spc(8);杜小红;Spc(4);女;Spc(8);635;EndSub使用位置属性要精确地把文本输出到窗体、图片框或打印页上，可以用位置属性CurrentX和CurrentY。这两个属性分别表示当前输出位置的横坐标与纵坐标。如果要控制所显示或打印文本的大小和外观，可以用VB中的字体属性，各字体属性及其名称如表4-2所示。表4-2字体属性及名称【例4-3】如图4.4所示，按指定尺寸、颜色和外观，把字符串“风光无限好”输出到窗体的中间。设计步骤如下：建立应用程序用户界面与对象属性的设置参见例4-1。编写命令按钮的Click事件代码：图4.4使用位置属性CurrentX和CurrentY示例PrivateSubCommand1_Click()DimaAsString,textWAsInteger,textHAsIntegerFontName=隶书 设置输出文本的字体FontSize=30 设置输出字体的大小ForeColor=QBColor(15) 设置输出文本的前景色，即字体的颜色BackColor=QBColor(8) 设置输出文本的背景色，即窗体的颜色a=风光无限好textW=TextWidth(a)/2 TextWidth(a)表示字符串a的宽度textH=(TextHeight(a)+Command1.Height)/2 TextHeight(a)表示字符串a的高度1CurrentX=ScaleWidth/2-textW 设置输出的水平位置2CurrentY=ScaleHeight/2-textH 设置输出的垂直位置3Printa 输出文本4EndSub清除方法ClsCls方法可以清除Form或PictureBox中由Print方法和图形方法在运行时所生成的文本或图形，清除后的区域以背景色填充。设计时使用Picture属性设置的背景位图和放置的控件不受Cls影响。Cls方法的语法为[〈对象名称〉.]Cls123图4.5Cls方法示例【例4-4】在例4-3中使用Cls方法清除窗体中由Print方法所生成的文本，如图4.5所示。【例4-5】使用Print方法在图片框中输出字符串或数值表达式的值。设计步骤如下：01建立应用程序用户界面。02按表4-3设置对象属性。03(3)设计代码。命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()Picture1.PrintPicture1.Print6+10=;6+10Picture1.PrintPicture1.Print山重水复,Picture1.Print疑无路Picture1.PrintPicture1.Print柳暗花明又一村EndSub程序运行结果如图4.6右所示。A【例4-6】如图4.7所示，在图片框中使用位置函数。设计步骤如下：B建立应用程序用户界面并按例4-5的方法设置对象属性，结果如图4.7左所示。C编写事件代码。“击我”命令按