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

clement

谢谢。

雪山飞狐_lzh

用VB将窗体做成Dll

clement

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

夜孤城

UserForm_Initialize()中:

with me

 .top=400 

 .left=400

end with

 调整下，启动时大概就是右下角了。

clement

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

雪山飞狐_lzh

我以为要放在工具栏的右边:)

可以先获取屏幕尺寸

xinghesnak

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

clement

lzh741206发表于2006-4-11 11:11:00 我以为要放在工具栏的右边:) 可以先获取屏幕尺寸

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

雪山飞狐_lzh

2. Private Declare Function GetDesktopWindow Lib "user32" () As Long
3. Private Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
4. Private Type RECT
5.         Left As Long
6.         Top As Long
7.         Right As Long
8.         Bottom As Long
9. End Type
10. Private Sub UserForm_Click()
11. Dim a As RECT
12. GetWindowRect GetDesktopWindow, a
13. MsgBox a.Right - a.Left
14. MsgBox a.Bottom - a.Top
15. End Sub

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

多谢