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

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

<P>谢谢。</P>

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

用VB将窗体做成Dll

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

多谢
页: [1]
查看完整版本: 如何让窗体启动后位于屏幕的右下角