《8 多媒体编辑.ppt》由会员分享，可在线阅读，更多相关《8 多媒体编辑.ppt（51页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第八章 多媒体编辑,坐标系统 图形操作 多媒体控件应用,本章重点 ：,8. 1 图形编辑,8.1.1 坐标系统,知识讲解 VB中有两种方法用于坐标系的定义 ： 方法一：采用Scale方法来设置坐标系。其语法是：对象.Scale(xLeft，yTop)-(xRight，yBotton)，其中（xLeft，yTop)表示对象的左上角的坐标值，(xRight，yBotton)表示对象的右下角的坐标值。当Scale方法不带任何参数时，则采用缺省坐标系。,方法二：通过对象的ScaleTop，ScaleLeft，ScaleWidth和ScaleHeigh四项属性来实现。它们不仅可以用来设置标度系统，而且可
2、以用来获取当前标度系统的信息。2. 例题分析 【例8.1】在Form_ Click事件中用Scale方法定义窗体From1的坐标系。,Private Sub Form_Click() Form1.Scale (-200, 250)-(300, -150) Line (-200, 0)-(300, 0) Line (0, 250)-(0, -150) CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 280: CurrentY = 20: Print X CurrentX = 10: CurrentY = 240: Print Y End Sub,也可
3、以用方法二实现，代码如下： Private Sub Form_Click() Form1.Scale Left-200: From1.Scale Left=250 Form1.Scale Width-200: From1.Scale Height=250 Line (-200, 0)-(300, 0) Line (0, 250)-(0, -150) CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 280: CurrentY = 20: Print X CurrentX = 10: CurrentY = 240: Print Y End Sub,说明
4、：属性ScaleTop，ScaleLeft的值用于控制对象左上角坐标，它们的值为0时坐标原点在对象的左上角，改变ScaleLeft或ScaleTop的值后，坐标系的X轴或Y轴按此值平移形成新的坐标原点。右下角坐标值为（ScaleLeftScaleWidth，ScaleTopScaleHeight），根据左上角和右下角坐标值的大小自动设置坐标轴的正向。X轴与Y轴的度量单位分别为1 /ScaleWidth和1/ScaleHeight，如果和为负数，则表示坐标系统反向。,【例8.2】新建一窗体，在窗体上放置一个标签控件Label1，设置Label1控件的坐标，观察Label1控件在窗体中的位置，并在窗体的缺省坐标系下和自定义坐标系下观察Label1控件位置的变化。,Private Sub Command1_Click() Cls Form1.Scale 采用缺省坐标系 Label1.Top = 100: Label1.Left = 100 设置控件对象的坐标End Sub,