vb程序设计第3版第11章

vb程序设计第3版第11章

ID:40055469

大小:1.50 MB

页数:94页

时间:2019-07-18

vb程序设计第3版第11章_第1页
vb程序设计第3版第11章_第2页
vb程序设计第3版第11章_第3页
vb程序设计第3版第11章_第4页
vb程序设计第3版第11章_第5页
资源描述:

《vb程序设计第3版第11章》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、图形设计本章要点:图形设计基础图形控件绘图方法与绘图有关的常用属性、事件和方法保存绘图结果第11章111.1图形设计基础11.1.1坐标系统x轴y轴(0,0)缺省坐标系统:21.刻度单位:缺省刻度单位:缇(Twip)改变刻度单位:对象名.ScaleMode=属性值值常量说明0vbUser用户自定义。可设置ScaleHeight、ScaleWidth、ScaleTop、ScaleLeft属性1vbTwips缇(缺省值),1440缇等于一英寸2vbPoints点,72点等于一英寸3vbPixels像素,表示分辩率的

2、最小单位4vbCharacters字符5vbInches英寸6vbMillimeters毫米7vbCentimeters厘米例如:Form1.ScaleMode=332.改变坐标系1)ScaleLeft、ScaleTop属性重定义对象的左上角坐标,改变坐标系的原点位置。【例11-1】使用缺省的坐标系统:PrivateSubCommand1_Click()Label1.Left=0Label1.Top=0EndSub(0,0)Label1Command14使用自定义的坐标系统:PrivateSubCommand1

3、_Click()Form1.ScaleLeft=200Form1.ScaleTop=300Label1.Left=0Label1.Top=0EndSub(200,300)52)ScaleWidth和ScaleHeight属性表示容器对象的内部宽度与高度。用于自定义一个刻度单位。例:使用ScaleWidth和ScaleHeight改变窗体刻度单位设窗体高度是2000Twips,宽度是3000Twips。此时水平和垂直刻度单位均为1Twips。如果设置:ScaleHeight=500则将窗体的高度划分为500个单位

4、,每个单位为2000/500,即4Twips如果设置:ScaleWidth=1000则将窗体的宽度划分为1000个单位,每个单位为3000/1000,即3Twips6在使用以上方法定义了新的刻度单位后,如果容器对象的实际尺寸发生变化,这一刻度也不会改变。设置ScaleWidth和ScaleHeight属性为负数,将反转坐标轴的方向。将ScaleHeight、ScaleWidth、ScaleLeft与ScaleTop属性设置为任何值都自动将ScaleMode设置为0。7【例11-2】将一个图形(Shape1)的左

5、上角移动到窗体的中央位置。PrivateSubCommand1_Click()Form1.ScaleHeight=2Form1.ScaleWidth=2Shape1.Left=1Shape1.Top=1EndSub(1,1)(0,0)8【例11-3】定义窗体的左下角为原点(0,0),y坐标轴正方向向上。PrivateSubForm_Load()ScaleHeight=-4ScaleWidth=4ScaleTop=4EndSubPrivateSubCommand1_Click()Shape1.Left=1Shap

6、e1.Top=1EndSub(0,0)(1,1)9例:定义窗体的中央位置为原点(0,0),y坐标轴正方向向上。PrivateSubForm_Load()ScaleHeight=-4ScaleWidth=4ScaleTop=2ScaleLeft=-2EndSubPrivateSubCommand1_Click()Shape1.Left=1Shape1.Top=1EndSub(0,0)(1,1)103)Scale方法Scale方法用于将容器对象的左上角坐标定义为(x1,y1),右下角坐标定义为(x2,y2)。不带任

7、何参数调用Scale方法,可以将坐标系还原成系统缺省的坐标系。格式:[对象名.]Scale[(x1,y1)-(x2,y2)]其中:x1,y1:决定了ScaleLeft和ScaleTop属性的值;(x1,y1)与(x2,y2)两点x坐标的差值和y坐标的差值分别决定了ScaleWidth和ScaleHeight属性的值。使用Scale方法设置各种容器对象的坐标系统,更直观、更快捷。11例:在图片框Picture1中打印5行5列的单位矩阵。PrivateSubPicture1_Click()Dima(5,5)AsIn

8、tegerPicture1.Scale(0,0)-(6,6)Fori=1To5Picture1.CurrentY=iForj=1To5Ifi=jThena(i,j)=1Elsea(i,j)=0Picture1.CurrentX=jPicture1.Printa(i,j);Nextj,iEndSub123.当前坐标CurrentX属性:设置或返回的当前坐标的水平坐标CurrentY属性:

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。