请问；如何得到我的程序窗体在屏幕上的X(Left),Y(Top)的位置？

Question

另外如何将窗体任意设置在屏幕中的任何位置。
先感谢！！！

Answer 1

me.top  'Y
me.left 'Xme.top = 2000
me.left=2000

Answer 2

Option Explicit
Private Sub Command1_Click()
    MsgBox "窗体左边距：" & Me.Left
    MsgBox "窗体上边距：" & Me.Top
End SubPrivate Sub Command2_Click()
    Me.Left = 500
    Me.Top = 500
    MsgBox "设置窗体左边距：" & Me.Left
    MsgBox "设置窗体上边距：" & Me.Top
End Sub

Answer 3

wzzwwz(棒子面窝头)老师您好：
程序显示的坐标好象是 Twip 啊；那么如何将它转换成Pxiel呢？
 太谢谢您了！

Answer 4

Private Sub Form_Load()
    Me.ScaleMode = 3
End Sub

Answer 5

ScaleMode 属性
      当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位。语法object.ScaleMode [= value]ScaleMode 属性的语法包含下面部分：部分 描述 
Object 对象表达式，其值是“应用于”列表中的一个对象。 
Value 一个指定度量单位的整数，“设置值”中有详细描述。 
设置值value 的设置值为：常数 设置值 描述 
VbUser 0 指出 ScaleHeight、ScaleWidth、ScaleLeft 和 ScaleTop 属性中的一个或多个被设置为自定义的值。 
VbTwips 1 （缺省值）缇（每逻辑英寸为 1440 缇；每逻辑厘米为 567 个缇）。 
VbPoints 2 磅（每逻辑英寸为 72 个磅）。 
VbPixels 3 像素（监视器或打印机分辨率的最小单位）。 
VbCharacters 4 字符（水平每个单位=120 缇；垂直每个单位=240 缇。） 
VbInches 5 英寸。 
VbMillimeters 6 毫米。 
VbCentimeters 7 厘米。 
VbHimetric 8 HiMetric 
VbContainerPosition 9 控件容器使用的单位，决定控件位置。 
VbContainerSize 10 控件容器使用的单位，决定控件的大小。 
说明相关的 ScaleHeight、ScaleWidth、ScaleLeft 与 ScaleTop 属性的使用，可以建立起一个带有正、负坐标的自定义坐标系统。这四个 Scale 属性与 ScaleMode 属性按下面的方式进行交互作用： 把其它任何 Scale 属性设置为任何值都将 ScaleMode 自动地设置为 0。ScaleMode 等于 0 是用户定义。
把 ScaleMode 属性设置为一个大于 0 的数，将使 ScaleHeight 和 ScaleWidth 的度量单位发生改变，并将 ScaleLeft 和 ScaleTop 设置为 0。CurrentX 和 CurrentY的设置值将发生改变以反映当前点的新坐标。