电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

Visual-BASIC-语言程序设计-第4章[1]VIP免费

Visual-BASIC-语言程序设计-第4章[1]_第1页
1/80
Visual-BASIC-语言程序设计-第4章[1]_第2页
2/80
Visual-BASIC-语言程序设计-第4章[1]_第3页
3/80
4.1顺序结构4.2选择结构程序设计4.3循环结构第4章基本的控制结构退出4.4综合实例4.1顺序结构4.1.1数据输出4.1.2数据输入返回退出4.1.1数据输出1Print方法2与Print方法有关的函数3使用位置属性4清除方法CLS5使用“标签”控件的输出1Print方法Print方法的语法格式为:object.Print{Spc(n)|Tab(n)}expressioncharpos其中:object:窗体、图片框、打印机等对象。Expression:要打印的数值表达式或字符串表达式。Charpos:逗号或分号,指定下个字符的插入点。2.与Print方法有关的函数与Print相配合的函数:(1)Tab函数与Print#语句或Print方法一起使用,对输出进行定位。格式:Tab[(n)]当在一个Print方法中有多个Tab函数时,每个Tab函数对应一个输出项,各输入项之间用分号隔开。例题PrivateSubForm_Click()Print"12345678901234567890"PrintTab(5);"5";Tab(10-2);"8","'注意这里10-2>当前位置5,故同行显示"PrintTab(5);"5";Tab(10-6);"4";Tab(20-15);"5";"'注意这里10-6<当前位置5,故换行显示;20-15>当前位置4,故同行显示"EndSub程序执行结果见图4-1。程序中已经对程序显示特点做出解释。图4-1Print方法与Tab()函数结合(2)Spc函数格式:Spc(n)在显示或打印列表中的下一个表达式之前插入n个空白数,n为0~32767之间的整数。Spc函数与输出项之间用分号隔开。如果n小于输出行的宽度,则下一个打印位置将紧接在数个已打印的空白之后。如果n大于输出行的宽度,则Spc利用下列公式计算下一个打印位置:当前位置+(nMod行宽)Spc函数与Tab函数的作用类似,可以互相代替。但应注意,Tab函数从对象的左端开始记数,而Spc函数只表示两个输出项之间的间隔。3.使用位置属性位置属性CurrentX和CurrentY常用来把文本精确地输出到窗体、图片框或打印页上。这两个属性分别表示当前输出位置的横坐标与纵坐标。格式:[对象名称].CurrentX[=x][对象名称].CurrentY[=y]例如:下面程序将图片框相对于窗体居中显示,图片框中的文字居中显示。PrivateSubForm_Click()Dimstr1AsStringstr1="图片框相对窗体、文字相对图片框居中显示"Picture1.FontName="宋体"'图片框中文字的字体Picture1.FontSize=16'图片框中文字的字号Picture1.Left=(ScaleWidth-Picture1.Width)/2'图片框水平位置Picture1.Top=(ScaleHeight-Picture1.Height)/2'图片框垂直位置Picture1.CurrentX=Picture1.ScaleLeft+Picture1.Width/2-Picture1.TextWidth(str1)/2'输出水平位置Picture1.CurrentY=Picture1.ScaleTop+Picture1.Height/2-Picture1.TextHeight(str1)/2'输出垂直位置Picture1.Printstr1'在图片框中输出字符串str1EndSub各对象的其他参数保持默认值。程序设计时和运行结果见图4-2。无论怎样调整窗体,只要单击窗体,都会按题目要求调整图片框和文本的位置。TextWidth()为求文本宽度的函数。(a)设计时(b)运行时图4-2位置属性的应用4.清除方法CLSCls将清除图形和打印语句在运行时所产生的文本和图形,清除后的区域以背景色填充。但是设计时在Form中使用Picture属性设置的背景位图和放置的控件不受Cls影响。语法:[〈对象名称〉.]Cls例如,为了在运行时双击窗体时清除图片框中的文本,编写的程序为:PrivateSubForm_DblClick()Picture1.Cls'清除图片框中的文本EndSub如果将代码由Picture1.Cls改为.Cls,将无法清除图片框中的文本。5.使用“标签”控件的输出标签(Label)是VB中最常用的输出文本信息的工具,目前几乎完全取代了Print方法。例如:建立一个Label控件和Command控件,按表4-1设置设计时属性。加入如下代码,运行程序。PrivateSubCommand1_Click()Label1.WordWrap=TrueLabel1.AutoSize=TrueLabel1.BorderStyle=1Label1.BackColor=&H80000014EndSub由运行结果可知,单击命令按钮后,标签控件可以自动适用内容,并自动换行,且加上边框,背景色为白色以突出显示文字。•表4-1属性设置对象属性设计时属性值说明Command1Caption单击此按钮,令WordWrap=True,AutoSize=True命令按钮标题Label1Caption将WordWrap属性设置为True,则Caption属性的内容自动换行并垂直扩充;将AutoSize属性设置为True,控件自动适应内容标签控...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

Visual-BASIC-语言程序设计-第4章[1]

您可能关注的文档

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部