Question

vb 用代码如何调节窗口的大小和位置

Option Explicit
'窗口总在最前面的API函数
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40

Private Sub Form_Load()
Dim retValue As Long
Rem 将窗体设置为处于所有窗口的顶层，注意在 VB 中运行时，
'可能不行，但编译成EXE后就可以了
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 400, 300, SWP_SHOWWINDOW)

End Sub
如何修改这段代码 让窗口位于右上角
这段代码哪句是改变窗口的宽度的？

Answer 1

vb中调节窗口的大小和位置使用move方法。

Move方法的语法如下：
[object.]Move left , top, width, height
object 是被移动的窗体或控件。如果省略了 object，则移动的是当前窗体。left 和 top 参数是 object 对象的 Left 和 Top 属性的新设置值，而 width 和 height 则是它的 Width 和 Height 属性的新设置值。其中，只有 left 是必须的，但是，若要指定其它参数时，就必须一并指定参数列表中出现在指定参数之前的所有参数。
例子1：
功能：移动窗体让窗口位于右上角。

语句：Me.Move Screen.Width-me.width, 0
说明：Screen.Width-me.width是屏幕宽度减去窗体宽度，即窗体距离屏幕左边的距离
例子2：
功能：使窗体窗口与屏幕大小相同，一般用于窗体最大化或全屏程序功能
语句：Me.Move 0, 0, Screen.Width, Screen.Height

Answer 2

要使窗体移到右上角，可以这样：
Me.Move Screen.Width - Me.Width, 0

如果要同时改变窗体的大小和位置，可以这样（比如把窗体设为3000Twip宽，高度为整个屏幕高）：
Me.Move Screen.Width - 3000, 0, 3000, Screen.Height

Answer 3

retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 400, 300, SWP_SHOWWINDOW)

Me.CurrentX 窗口水平起始位置，可直接用数值
400 窗口宽度
300 窗口高度

Answer 4

没有改变窗体宽度的，只是让窗体至前了！
form1.move x,y,width,hight可以移动到指定点位置，可以设定大小，也可以省略大小