Visual Basic程序设计第11章.pptVIP

Heigh和Width属性所代表的是窗体的实际大小，包括了标题栏这类无法任意改变大小的部分。真正可以控制的显示区域（工作区），它的高度和宽度分别记录在ScaleHeigh和ScaleWidth这两个属性中，如图11-3所示。 图11-3 ScaleHeigh和ScaleWidth属性 例如，在设计阶段定义窗体Form1的坐标属性如下： Form1.ScaleWidth=640 Form1.ScaleHeigh=480 Form1.ScaleLeft=-320 Form1.ScaleTop=240 以上定义了窗体工作区宽为640，窗体工作区高为480，窗体左上角坐标是（?320，240） 2．重定义坐标轴方向 ScaleWidth，ScaleHeight属性的值可确定对象坐标系x轴与y轴的正向及最大坐标值。缺省时其值均大于0，此时，x轴的正向向右，y轴的正向向下。对象右下角坐标值为（ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight）。 如果ScaleWidth属性的值小于0，则x轴的正向向左，如果ScaleHeight属性的值小于0，则y轴的正向向上。 另外，VB还提供了一种方便高效地设置坐标系的办法，这就是利用Scale方法设置坐标系。该方法通过自定义左上角和右下角坐标来设置新的坐标系统。 语句格式如下： [对象 .]Scale[(xLeft,yTop)- (xRight,yBottom)] 其中，对象为容器对象，（xLeft，yTop）表示对象左上角的坐标值，（xRight，yBottom）表示对象右下角的坐标值。 例如： Scale (-320,240) - (320,-240) （?320，240）为左上角坐标，（320，?240）为右下角坐标，若窗体工作区是640×480，则该语句将坐标系的原点设在了工作区的中央，向右为x轴正方向，向上为y轴正方向。 若Scale不带参数，则取消用户自定义的坐标系，而采用缺省坐标系。 11.3 图 形 方 法 11.3.1 Pset方法画点 Pset方法是在屏幕上单纯的画一个点。 格式： [对象名.] Pset [Step] (x,y) [,颜色]例如，Pset（100，200），是在窗体上（100，200）处画一个点。 说明： （1）对象名： 指窗体或图片框，缺省时为窗体。 （2）（x，y）： 指画点的坐标位置。 （3）Step： 是关键字，当选用该参数时，则x，y是在当前光标所在点坐标的增量，例如，Pset Step(x,y)语句，是在（CurrentX+x，CurrentY+y）处画点。其中CurrentX，CurrentY是画图对象的一种属性，用于返回或设置在绘图时的当前坐标。 （4）颜色： 点的颜色，缺省时画出点的颜色是对象的前景色（ForeColor属性值）。采用背景颜色（BackColor）可清除某个位置上的点。如果需要其他颜色，可使用RGB函数或QBColor函数来指定。 例如： Pset（100，200），RGB（255，0，0）表示画一个红点。 RGB函数的语法格式为 RGB(red, green, blue) 参数Red，green，blue分别代表颜色的红、绿、蓝成分，取值都是0～255的整数，三色组合形成的特定颜色。 【例11.1】用Pest方法在图片框中画一条斜线。 添加一个图片框控件、一个命令按钮控件到窗体，命令按钮的Caption属性值设置为画图。 程序代码如下： Private Sub Command1_Click() Picture1.Scale (0, 0)-(640, 480) 定义图片框左上角、右下角坐标 For i = 30 To 320 Picture1.Pset (i, i), QBColor(12) 画亮红色像素点 Next End Sub 11.3.2 Line方法画直线或矩形 Line方法是在窗体或图片框上画一个直线或矩形。 格式： [对象名].Line [Step] (x1, y1) [Step] (x2, y2), [颜