VisualBasic清华大学vb编程语言基础第13讲.ppt

第十三讲 图形操作 内容提要 坐标系 自定义坐标系 使用Scale方法设置坐标系 绘图属性 绘图属性 颜色的表示 颜色的表示 图形控件 图形控件 图形控件 图形控件 图形控件 图形文件的装入与保存 图形文件的装入与保存 绘图方法 绘图方法 绘图方法 绘图方法 绘图方法 绘图方法 绘图方法 绘图方法 Point方法-例 Point方法-例 绘图方法－例1 绘图方法－例1 绘图方法－例2 图形滚动浏览 图形滚动浏览 图形滚动浏览 图像处理命令-PaintPicture 图像处理命令-PaintPicture 图像处理命令-PaintPicture PaintPicture-例1 PaintPicture-例1 PaintPicture-例2 PaintPicture-例2 PaintPicture-例2 使用DrawMode属性绘制图形 当图形尺寸大于窗体时，窗体不能显示图形的全部，可通过滚动条控件滚动浏览 Private Sub Form_Load() Picture1.Move 0, 0 移图形框到坐标原点 HVScroll HScroll1.ZOrder 0 放在图形框前 VScroll1.ZOrder 0 End Sub Private Sub Form_Resize() HVScroll End Sub Private Sub HVScroll() 定义水平滚动条HScroll1的位置和宽度、最大、最小属性及可见性 HScroll1.Left = 0: HScroll1.Top = Form1.ScaleHeight - HScroll1.Height HScroll1.Width = Form1.ScaleWidth - VScroll1.Width HScroll1.Max = Picture1.Width - Form1.ScaleWidth 滚动条卷动值 HScroll1.Visible = (Picture1.Width Form1.ScaleWidth) 定义垂直滚动条 VScroll1的位置和高度、最大、最小属性及可见性 VScroll1.Top = 0: VScroll1.Left = Form1.ScaleWidth - VScroll1.Width VScroll1.Height = Form1.ScaleHeight - HScroll1.Height VScroll1.Max = (Picture1.Height - Form1.ScaleHeight) VScroll1.Visible = (Picture1.Height Form1.ScaleHeight) End Sub Private Sub HScroll1_Change() Picture1.Left = -HScroll1.Value End Sub Private Sub HScroll1_Scroll() Picture1.Left = -HScroll1.Value End Sub Private Sub VScroll1_Change() Picture1.Top = -VScroll1.Value End Sub Private Sub VScroll1_Scroll() Picture1.Top = -VScroll1.Value End Sub dpic.PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop 访问内置在操作系统中的BitBlt服务程序,完成图像的特殊处理工作 dpic为目标图形对象，spic为传送源 dx、dy是传送目标矩形区域左上角坐标（目标控件内任一位置） dw、dh是目标形矩形区域的宽和高 sx、sy是要传送图形矩形区域左上角坐标 sw、sh是要传送图形矩形区域的大小 rop指定传送的象素与目标中现有的象素组合模式 常用像素组合模式 功能 把一个源图像资源任意复制到指定的区域 通过改变参数dw与dh值, 改变复制后的图像的尺寸实现放大或缩小图像显示 置这两个属性为负值, 实现特殊效果的图像显示 dpic.PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop （sx,sy） （dx,dy） dw dh 传送源spic 目标dpic PaintPicture方法 sw sh 图像处理命令-PaintPicture 复制图形 设置目标区域左上角坐标和大小与源矩形区域相同 翻转图形 设置图形宽为负数，则水平