怎样更改VB窗体坐标？

刚学VB时写的一个自建坐标系的例子

Private Sub Form_load()

Me.Height = Me.Width

End Sub

Private Sub Form_Resize()

With Picture1

.Picture = LoadPicture()

.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

.ScaleMode = 0 'ScaleMode为0时使用自定义坐标系

.ScaleLeft = 0 'ScaleLeft和ScaleTOP定义左上角的坐标

.ScaleTop = 10

'Picture1.Scale (0, 10)-(10, 0)

'效果与ScaleLeft + ScaleTop相同

.ScaleWidth = 10

.ScaleHeight = -10

'ScaleWidth和ScaleHeight定义坐标的范围

'值为正数时，坐标系X轴（Y轴）的正方向为从左到右（从上到下）

'为负数时相反

.AutoRedraw = True

.ForeColor = &HFFFFFF

.Cls

For i = 1 To 9

Picture1.Line (i, 0)-(i, 10), &H808080

Picture1.Line (0, i)-(10, i), &H808080

Next i

.Picture = .Image

End With

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture1.Cls

Picture1.Line (Fix(X), Fix(Y))-(Fix(X) + 1, Fix(Y) + 1), &H808080, BF

Picture1.PSet (Fix(X), Fix(Y) + 1), &H808080

'PSet是为了让Print出的文字显示到合适的位置上

Picture1.Print "(" &Fix(X) &"," &Fix(Y) &")"

End Sub

这么点儿分哦...

我教你哈.

首先在你的form1里加一个属性:

public Form f

form1的构造函数加一个参数.并在构造函数里实例上述属性:

public Form1(Form f)

{

//

// Windows 窗体设计器支持所必需的

//

InitializeComponent()

this.f=f

}

form1的LocationChanged事件.找到后双击它.在代码里这么写:

private void Form1_LocationChanged(object sender, System.EventArgs e)

{

f.Top=this.Top

f.Left=this.Left-100

}

OK.现在只需要在form2里该显示form1的事件里写:(我们用form_load举例)

Form1 f1=new Form1(this)

f1.Top=this.Top

f1.Left=this.Left+100

f1.Show()

OK.现在运行form2.看效果吧.

如果你说的是大小的话，那就是：

form1.width=1000

form1.height=2000

如果你说的是坐标的话，那就是：

form1.scale (-100,-100)-(200,200)

意思是窗体的左上角坐标是(-100,-100)，窗体的右下角坐标是(200,200)。

这就是VB窗体刻度的设置方法。

---