vb程序设计概述37372 PPT.ppt

例7 :制作程序,按下列要求完成： 要求在load事件中设置窗体的前景色；双击窗体后将一个图片放在窗体中(Picture属性、LoadPicture函数）； 程序如下： Private Sub Form_load() ForeColor = RGB(H0, H43, HCF) End Sub ------------------------ Private Sub Form_DblClick() picture=loadpicture(“e:\aa.jpg”) End Sub ------------------------ 窗体常用的方法有： 打印输出Print、移动Move、清除Cls、显示Show 、隐藏Hide等方法。 使用形式: [对象.]方法 参数列表 1.Print方法 形式: [对象.]Print [表达式列表];, 作用: 在对象上输出信息 对象：窗体、图片框或打印机(Pinter) ,省略对象在窗体上输出。 开始打印的位置是由对象的CurrentX和CurrentX属性决定，缺省为打印对象的左上角0，0。 Spc(n)函数：插入n个空格，允许重复使用。 Tab(n)函数：左端开始右移动n列，允许重复使用。 ；(分号)：光标定位上一个显示的字符后。 ，(逗号)：光标定位在下一个打印区的开始位置处。每个打印区占14列。 无 ；，换行。 4、常用方法 例　在窗体Form1的单击事件中写入如下代码： Private Sub Form_Click() a = 10: b = 3.14: c = 100 Print a=; a, b=; b Print a=; a, b=; b Print a=; a, b=; b Print 空一行 Print ; a=; a, b=; b Print a=; a, Tab(18); b=; b Print a=; a, Spc(18); b=; b Print Print a=; a, b=; b Print Tab(18); a=; a, b=; b 从第18列开始打印输出 Print Spc(18); a=; a, b=; b End Sub 2. Cls方法 形式 : [对象.]Cls 作用 : 清除运行时在窗体或图形框中显示的文本或图形。 注意 : 不清除在设计时的文本和图形。 清屏后坐标当前回到原点------对象的左上角0，0 。 3. Move方法 形式 : [对象.]Move 左边距离[，上边距离[，宽度[，高度]]] 作用 : 移动窗体或控件，并可改变其大小。 对象：可以是窗体及除时钟、菜单外的所有控件，省略代表窗体。 左边距离，上边距离，宽度，高度：数值表达式，单位twip。 如果是窗体对象，则“左边距”和“上边距”是以屏幕左边界和上边界为准。其它则是以窗体的左边和上边界为准。 例　使用Move方法移动一个窗体。双击窗体，窗体移动并定位在屏幕的左上角，同时窗体的宽高也缩小一倍。 为了实现这一功能，可以在窗体Forml的“代码”窗口中输入下列代码： Private Sub Form_DblClick() Form1.Move 0,0,Form1.Width/2,Form1.Height/2 End Sub 例 启动vb，设置form1的宽度为6000，高度为3000，编写适当的代码，使得运行时,窗体的顶边与屏幕顶边的距离为2000,窗体的左边与屏幕左边的距离为1000。 4．Show(显示)方法 Show方法用于在屏幕上显示一个窗体，调用 Show 方法与设置窗体 Visible 属性为 True 具有相同的效果。 其调用格式如下： 窗体名.Show [vbModal | vbModaless] 说明 它有两种可能值：vbModal（缺省）或vbModeless，参数表示从当前窗口切换到其他窗口之前用户必须采取的动作。当参数为vbModal时，要求用户必须对当前的窗口隐藏或卸载，才能切换到其他窗口。 试比较下面两个程序的结果。 ‘ Form2显示出来；在其关闭之前，后面的提示信息不会显示出来。只有关闭了form2时才会现实提示信息。 Private Sub Form_DblClick() Form2.Show vbModal MsgBox Test End Sub 5．