913项目开始

 

1。Visual Basic 参考  

Height、Width 属性（ActiveX 控件）
返回或设置对象的尺寸或 DataGrid 控件的 Columns 对象的宽度。对于 Printer 和 Screen 对象，在设计时不可用。

语法
object.Height [= number]

object.Width [= number]

Height 和 Width 属性语法具有下列组成部分：

部分 说明
object 对象表达式，计算为“应用于”列表中的对象。
number 数值表达式，指定对象的尺寸；详见“设置”中的说明。

设置
尺寸按如下方式计算：

控件 — 从控件边框的中央开始度量，使具有不同边框宽度的控件正确对齐。这些属性使用控件容器的度量单位。
备注
将 Height、Width、Left 和 Top 属性用于基于对象总区域的操作或计算，如调整对象的大小或移动对象。将 ScaleLeft、ScaleTop、ScaleHeight 和 ScaleWidth 属性用于基于对象内部区域的操作或计算，如在其他对象内绘制对象或移动对象。

示例
此例将窗体的大小设置为屏幕大小的 75%，并在加载窗体时将其居中放置。若要尝试运行此例，请将代码粘贴到窗体的声明部分。然后按 F5 键并单击该窗体。

Private Sub Form_Click ()
   Width = Screen.Width * .75   ' Set width of form.
   Height = Screen.Height * .75   ' Set height of form.
   Left = (Screen.Width - Width) / 2   ' Center form horizontally.
   Top = (Screen.Height - Height) / 2   ' Center form vertically.
End Sub
 2。

Visual Basic 6.0 使用 Move 方法在运行时更改窗体或控件的位置。在 Visual Basic .NET 中，Move 被替换为 SetBounds，且坐标以像素为单位表示。下面的示例说明如何使用 SetBounds 移动控件：

' Visual Basic 6.0 
' Move and resize to 1200 by 800 twips.
CommandButton1.Move 0, 0, 1200, 800
' Move and retain original size.
CommandButton2.Move 2000, 1000

Visual Basic .NET 等效代码

' Visual Basic .NET 
' Move and resize to 120 by 80 pixels.
button1.SetBounds(0, 0, 120, 80)
' Move and retain original size.
button2.SetBounds(20, 10, 0, 0, BoundsSpecified.X Or BoundsSpecified.Y)

Visual Basic 6.0 还提供了 ScaleMode 属性，使您得以定义不同的坐标系统。Visual Basic .NET 中不支持 ScaleMode 及其相关属性和方法（Scale、ScaleHeight、ScaleLeft、ScaleTop、ScaleWidth、ScaleX、ScaleY）。
 3。VB提供了一个很好用的座标系统转换，即ScaleMode, ScaleLeft ScaleTop ScaleTopScaleWidth

所谓的ScaleLeft ScaleTop ScaleTop ScaleWidth指的是Window中的Client Area即可以画图、放元件的区域，像Title区就不在Client Area的范围。如果我们设定ScaleMode成不为0的数值，如设定ScaleMode = 3 (VBPixels)那麽就代表这区域的度量是以Pixels为单位，而ScaleTop =ScaleLeft = 0，即原点在左上角。

4。如果改变表单的大小，表单上控件的大小和位置并非成比例地发生相应变化，导致界面呈现难看的不均匀现象。

上述现象和问题,可在表单Form_Resize()过程编程，通过定义表单的ScaleMode属性和表单中控件的Height、Width、Top、Left属性来解决这个问题。具体实现方法如下：
用表单的Height、Width、Top、Left属性设计表单在屏幕中的位置和大小。将表单中的控件大小和位置调整好，直到得到满意的界面。

选择表单的ScaleMode属性为user；设定ScaleHeight、ScaleWidth的值，如可将这俩个值设定为100或1000或其他的数值，也可使这俩个值不等，视个人的习惯而定，这里我们将其设为1000；使ScaleTop＝0、ScaleLeft＝0。
---- ScaleMode属性决定了表单的ScaleHeight、ScaleWidth、ScaleTop、ScaleLeft属性值和表单中控件的Height、Width、Top、Left属性值的度量单位（用户自定义、缇、点、像素、字符、英寸、毫米、厘米等）。一般使Scaletop和ScaleLeft等于零。ScaleHeight、ScaleWidth属性值表示以ScaleMode值为度量单位的表单的高和宽，它们的改变不会使表单的大小和位置发生变化。改变ScaleMode的值不会影响表单和表单中控件的位置和大小，只是表单的ScaleHeight、ScaleWidth属性值和表单中控件的Height、Width、Top、Left属性值要根据新的度量单位自动发生变化。由于表单的大小、表单中控件的位置和大小已经设定，除了"用户自定义"度量单位外，表单的ScaleHeight、ScaleWidth、ScaleTop、ScaleLeft属性值是一定的。只要手工改变表单的ScaleHeight、ScaleWidth、ScaleTop、ScaleLeft任一属性值，ScaleMode的值就变成了"用户自定义"。
---- 用户自定义ScaleHeight值表示将表单的高度等分了ScaleHeight等份，表单中控件的Height属性值是以表单高度等分了ScaleHeight等份的一份为单位。用户自定义ScaleWidth值表示将表单的宽度等分了ScaleWidth等份，表单中控件的Width属性值是以表单宽度等分了ScaleWidth等份的一份为单位。

---- 例如：有一个表单form1，form1中有一个控件Cammand1，Cammand1的位置和大小已经设计好

form1.ScaleMode=user
form1.Height=6800
form1.ScaleHeight=1000
这时Cammand1.Height的值是以6800/1000=6.8为单位的，
即为表单高度的千分之六点八为单位。

记下表单中每一个希望与表单大小变化而成比例变化的控件的Height、Width、Top、Left值。

用鼠标双击表单没有控件的地方，点出编程界面右上方的表单过程名表，选择Form_Resize过程，在Form_Resize过程编程如下：
Private Sub Form_Resize()
ScaleHeight = 1000
ScaleWidth = 1000
表单中控件名1.top=步骤3记下的值
表单中控件名1.Width=步骤3记下的值
表单中控件名1.Left=步骤3记下的值
表单中控件名2.Height=步骤3记下的值
表单中控件名2.top=步骤3记下的值
表单中控件名2.Width=步骤3记下的值
表单中控件名2.Left=步骤3记下的值
表单中控件名2.Height=步骤3记下的值
... ...
end sub

---- 总之, 通过以上4步就可实现让控件大小和位置随着表单的大小变化而成比例变化，从而解决界面因表单大小的改变而变得不均匀的问题。

 5。

VB的坐标系统综述
 
由于在visual basic系统中有多种坐标定义,容易使初学者混淆,本文将详细总结vb的坐标系统的一些基本概念，并提供坐标定义的详细方法：

visual basic 坐标系统概述：

visual basic 的坐标系统是指在屏幕（screen）、窗体(form)、容器(container)上定义的表示图形对象位置的平面二维格线，一般采用数对（x,y）的形式定位。其中，x 值是沿 x 轴点的位置，最左端是缺省位置 0。y 值是沿 y 轴点的位置，最上端是缺省位置 0。

在visual basic坐标系中，沿坐标轴定义位置的测量单位，统称为刻度，坐标系统的每个轴都有自己的刻度。坐标轴的方向、起点和刻度都是可变的,在后面的叙述中，将讨论如何改变这些定义。

如何创建坐标系统:

创建图形对象的坐标系统，一般有以下几种方法：

1、使用系统缺省定义：

在系统缺省状态下，visual basic使用twips坐标系，以’缇’为单位(1缇的长度等于1/1440英寸；1/567厘米;1/20磅)。应当注意的是：这些值指示的是图形对象打印尺寸的大小。而在计算机屏幕上的物理距离则根据监视器的大小及分辨率的变化而变化。

2、选择系统标准刻度定义：

除了缺省的twips坐标系外，用户还可以通过对象的scalemode属性来设置其它的坐标刻度：（共有8种设置），现将这些设置列表如下：

scalemode值 表示 说明

0 user 用户自定义

1 twip 缇，系统缺省设置

2 point 磅，每英寸约为72磅

3 pixel 像素，像素是监视器或打印机分率的最小单位。每英寸里像素的数目由系统设备的分辨率决定。

4 character 字符，打印时，一个字符高 1/6 英寸，宽1/12 英寸

5 inch 英寸，每英寸为2.54厘米

6 millimeter 毫米

7 centimeter 厘米　

在上述设置值中，除了 0 和 3以外，其它所有模式都是打印机所打印的单位长度。例如，某对象长为4个单位，当 scalemode 设为 5 时，打印时就是4英寸长。在程序中设定scalemode值的代码如下：

'设窗体的刻度单位为厘米。

scalemode = 7

'设 picture1 的刻度单位为像素。

picture1.scalemode = 3

3、创建自定义坐标系统：

当scalemode=0时，即为用户自定义模式，可采用设置对象的相应属性，来创建所需的坐标系统,这些属性是：

scaleleft: 设置对象左边距值

scaletop: 设置对象上边距值

scalewidth: 设置对象宽度

scaleheight: 设置对象高度

下面给出如下设置代码：

scaleleft=100

scaletop=100

scalewidth=300

scaleheight=200

picture1.scaleleft=50

picture1.scaletop=50

则所定义的坐标系如下图所示：

scaletop=100

picture1.scaleleft=50

以上代码定义窗体左上角坐标为（100，100），定义窗体内图形对象picture1距窗体左边距离为50，上边距离为50。scalewidth 和 scaleheight 语句定义窗体内部宽度的 1/300 为水平坐标单位；当前窗体内部高度的 1/200 为垂直坐标单位。如果窗体的大小以后被调整，这些单位保持原状。也就是说：scalewidth 和 scaleheight 是按照对象的内部尺寸来定义单位的，并且这些尺寸不包括边框厚度或菜单标题的高度。scalewidth 和 scaleheight 是指对象内的可用空间的大小。它们决定了对象本身的坐标系统。这有别于内部尺寸和外部尺寸（由 width 和 height属性指定）定义，width 和 height 总是按照容器的坐标系统来表示。另外以上刻度属性都可包括分数，也可是负数。如果将 scalewidth 和 scaleheight 属性设置值为负数即改变坐标系统的方向。

4．使用scale方法定义坐标系统：

一个更简洁的改变坐标系统的途径是使用 scale 方法。定义形式如下：

[object.]scale (x1, y1) – (x2, y2)

x1 和 y1 的值，决定了 scaleleft 和 scaletop 属性的设置值。x2-x1的差值和y2-y1的差值，分别决定了 scalewidth 和 scaleheight 属性的设置值。若指定 x1 > x2 或 y1 > y2 的值，与设置 scalewidth 或 scaleheight 为负值的效果相同。例如：设定窗体坐标系统如下：

scale (100, 100)-(200, 200)

该语句定义等同于以下属性设置：

scaletop=100:scaleleft=100:scalewidth=100:scaleheight=100

如何恢复缺省坐标系统：

在定义了其它坐标系后，如果需要将坐标系统恢复为缺省的twips坐标系，可以使用不含参数的scale方法，如语句：

picture1.scale

将图形对象的坐标系统恢复为缺省，其左上角坐标为（0，0）。