浅议Visual Basic坐标系统.docVIP

浅议Visual Basic坐标系统 　　【摘要】Visual Basic的坐标系统作用至关重要。本文结合教学体会，谈谈这个问题。 　　【关键词】Visual Basic；坐标系统 　　 　　在诸多程序语言中，若论处理图形图像的功能，Visal Basic无疑是最强者之一。她能在其窗体中嵌入各种美丽的图片，与其他控件无缝地衔接在一起，展现出生动活泼、惹人喜爱的界面；她亦能提供基本的绘图工具，任由客户自由发挥，描绘出绚丽多彩的图形；她更能容你在掌握一定技巧之后，让图形（图像）展示闪烁、腾挪、复制、移动、放大、缩小、反相显示等令人叫绝的效果来。然而，在些这奇妙的令人着迷的功能背后，有一个因素发挥着非常重要的作用。如果有了它，上述一切才有了基础，得以实现；如果没有它，上述的一切即为无稽之谈，化为乌有。这个因素就是Visual Basic的坐标系统。 　　本文结合实例彰显坐标系统在Visual Basic中的重要作用。 　　一、改变坐标方向和原点 　　众所周知，一般坐标系统横轴（X）从左至右，逐渐增大；纵轴（Y）从下到上，逐渐增大。而在计算机荧屏上，默认的坐标系统，横轴依然向右增大；纵轴则是向下增大的。为了调整成我们习惯的格式，可编写示例1程序来实现。 　　示例1 自定义坐标系统。 　　Private Sub Form_Load() 　　Cls 　　Scale (-100, 100)－(100, -100) 　　Line (-100, 0)－(100, 0) 　　Line (0, -100)－(0, 100) 　　CurrentX = 0: CurrentY = 0: Print 0 　　CurrentX = 96: CurrentY = 0: Print X 　　CurrentX = 2: CurrentY = 100: Print Y 　　End Sub 　　执行结果见插图1。 　　可见，Scale命令可以定义坐标轴的方向和原点。其一般格式是 　　Scale (XLeft, YTop)－(XRight, YBotton) 　　我们可以归纳一个结论： 　　如果YBotton 大于YTop ，则纵轴（Y）从上到下，逐渐增大（即Y轴向下）。 　　如果YBotton 小于YTop ，则纵轴（Y）从下到上，逐渐增大（即Y轴向上）。 　　二、改变尺寸，适应图形 　　同一个窗体界面，只要改变一下Scale命令中的参数，就会影响绘图，得到大小不同的显示效果。请看示例2程序，命令按钮1（缺省坐标）和命令按钮2（用户定义）的代码中都有一条相同的画线命令，都是从坐标原点（0，0）画到坐标（1000，1000）位置的。但是，执行结果却大不一样，见插图2、插图3。 　　示例2 度量单位在不同坐标系统中灵活应用。 　　Private Sub Command1_Click()“缺省坐标”按钮的代码 　　Cls 　　Scale 恢复系统默认坐标 　　Line (0, 0)-(1000, 1000) 　　End Sub 　　Private Sub Command2_Click() “用户定义”按钮的代码 　　Cls 　　Scale (0, 2000)-(2000, 0)自定义坐标体系 　　Line (0, 0)-(1000, 1000) 　　End Sub 　　Private Sub Form_MouseMove(Button As Integer, _ 　　Shift As Integer, X As Single, Y As Single) 　　Text1.Text = X文本框1显示指针的水平坐标 　　Text2.Text = Y文本框2显示指针的垂直坐标 　　End Sub 　　这是什么原因？因为当单击命令按钮1（缺省坐标）后，执行默认坐标系统，单位是缇，坐标原点窗体左上角，纵坐标向下增大。此时窗体宽（ScaleHeight）约4850，窗体高（ScalleWidth）约3320，线是由上往下画的，如插图2。 　　而当单击命令按钮（用户定义）后，执行新坐标体系，坐标度量单位发生了改变。此刻，同一个窗体，宽（ScaleHeight）是2000，窗体高（ScalleWidth）是2000；且YBpttom =0小于YTop=2000，纵坐标向上增大；又因为坐标原点在左下角，因此线由下往上画的，如插图3。 　　由此给我们很大启发，Visual Basic的坐标系统十分灵活，使得用户有很大余地来修改窗体的坐标度量，以适应图形的需要，生成最佳效果。 　　三、缩放图片大小本无穷，坐标度量更改显神奇 　　示例3程序格外有趣，可实现对某个图象的随意放大或所缩小。具体操作是这样的