程序设计基础——Visual Basic教程 第2版 周黎 钱瑛 周阳花 第2章 窗体新.pptVIP

第2章 窗 体 7. Move方法 [对象名.]Move Left,[Top],[Width],[Height] 格式说明：Left、Top、Width和Height 4个参数分别可以设置对象移动后其左上顶点的位置坐标，以及改变大小后的宽度和高度。除了Left参数是必选的，其他参数都是可选的。 Form1.Move 2000, 2000, Form1.Width - 300, Form1.Height – 300 8．Scale方法 [对象名.]Scale [(x1,y1)－(x2,y2)] 格式说明：(x1,y1)表示容器对象左上角坐标，（x2,y2）表示容器对象右下角坐标 。 Form1.Scale(-10,-10)-(20,-10) 9．Paintpicture方法 [对象名.] PaintPicture 传送源 ,x1,y1,w1,h1,x2,y2,w2,h2 [,组合模式] ③ w1，h1参数是目标区域的宽和高；w2，h2参数是要复制的矩形区域的宽与高。 ② （x1,y1）是目标区域某顶点坐标；（x2,y2）是要复制的矩形区域的某顶点坐标。 ④ 组合模式参数表示对传送像素和现有像素进行逻辑与、逻辑或和逻辑非等操作。若省略，则将现有的像素替换成传送的像素。 ① 传送源参数可以是图片框或窗体，也可以是窗体的Picture属性。 ⑤ 水平翻转:则(x2,y2)为复制区域的右上角坐标，要传送的矩形区域宽w2为负值；垂直翻转:则(x2,y2)为复制区域的左下角坐标，要传送的矩形区域高h2为负值。 Dim w As Integer, h As Integer Private Sub Form_Load() Picture1.Picture = LoadPicture(App. Path + \汽车.jpg) w = Picture1.Width h = Picture1.Height End Sub Private Sub Command1_Click() 图片缩小一半并水平翻转 Picture2.PaintPicture Picture1, 0, 0, w / 2, h / 2, w, 0, -w, h End Sub Private Sub Command2_Click() 图片缩小一半并垂直翻转 Picture3.PaintPicture Picture1, 0, 0, w / 2, h / 2, 0, h, w, -h End Sub 例2-6 10．TextWidth方法/TextHeight方法 TextWidth(s)和TextHeight(s) 格式说明：参数s是一个字符串，该组方法返回s的宽度和高度，若s含有嵌入的回车返回符，则TextWidth方法将返回最长行的宽度。 Private Sub Form_ Click() Dim w As Integer, h As Integer, t As String FontSize = 12 : t = 物联网 : Print t; w = TextWidth(t) : h = TextHeight(t) Line (CurrentX, CurrentY)-(CurrentX + w, CurrentY + h), vbBlue, BF CurrentX = 0 : CurrentY = h Line (CurrentX, CurrentY)-(CurrentX + w, CurrentY + h), vbBlue, BF CurrentY = h : Print t; End Sub 例2-7 2.3 窗体的事件 一、基本事件分类 ① 程序事件 ② 鼠标事件 ③ 键盘事件 二、窗体事件过程的书写格式 Private Sub Form_事件名([参数列表]) [程序代码] End Sub 事件过程名由“Form”、“_”和具体的事件名组成。 其他控件对象的事件过程名由对象具体的Name属性值、“_”和具体的事件名组成。 简单划分 事 件 名 功 能 说 明 启动 Initialize 初始化事件 Load 载入事件 卸载 QueryUnload 卸载前触发 Unload 卸载时触发 鼠标操作 Click 单击事件 DblClick 双击事件 活动状态 Activate 激活事件 Deactivate 失去激活事件 焦点 GotFocus 获得焦点事件 LostFocus 失去焦点事件 其他 Resize 改变窗体大小事件 三．窗体事件 鼠标事件