如何让窗体启动后位于屏幕的右下角

clement · 发表于 2006-4-10 10:14:00

谢谢。

雪山飞狐_lzh · 发表于 2006-4-10 11:13:00

用VB将窗体做成Dll

clement · 发表于 2006-4-10 14:49:00

我说的窗体启动是指的UserForm .show以后，不是AutoCAD启动

夜孤城 · 发表于 2006-4-10 21:43:00

UserForm_Initialize()中:
with me
.top=400
.left=400
end with
调整下，启动时大概就是右下角了。

clement · 发表于 2006-4-11 07:24:00

在不同的显示器上分辨率并不一定相同，除了指定一个数以外，还有没有更好的方法？

雪山飞狐_lzh · 发表于 2006-4-11 11:11:00

我以为要放在工具栏的右边:)
可以先获取屏幕尺寸

xinghesnak · 发表于 2006-4-11 13:17:00

6楼斑竹说的对，先获得屏幕尺寸，再用4楼的方法做。。

clement · 发表于 2006-4-12 07:31:00

麻烦之处在于VBA里面没有Screen这个对象，获取屏幕尺寸有没有什么其它的途径呢？

雪山飞狐_lzh · 发表于 2006-4-12 09:54:00

copy


Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Sub UserForm_Click()
Dim a As RECT
GetWindowRect GetDesktopWindow, a
MsgBox a.Right - a.Left
MsgBox a.Bottom - a.Top
End Sub

clement · 发表于 2006-4-12 16:09:00

多谢

如何让窗体启动后位于屏幕的右下角

发表回复

精选推荐