vb 如何改变窗体大小

发布网友发布时间：2022-05-17 17:37

共1个回答

热心网友时间：2023-10-31 18:55

以改变QQ窗口大小为例
Private
Declare
Function
FindWindow
Lib
"user32"
Alias
"FindWindowA"
(ByVal
lpClassName
As
String,
ByVal
lpWindowName
As
String)
As
Long
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
Private
Sub
Command1_Click()
a
=
FindWindow(vbNullString,
"qq2011")
SetWindowPos
a,
HWND_TOP,
100,
100,
1000,
1000,
SWP_NOMOVE
Or
SWP_NOSIZE
End
Sub
-----------------------------------------------------------------------------------------------------
具体参数可以参考以下说明
Declare
Function
SetWindowPos
Lib
"user32"
Alias
"SetWindowPos"
(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
说明
这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数
类型及说明
hwnd
Long，欲定位的窗口
hWndInsertAfter
Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：
HWND_BOTTOM
将窗口置于窗口列表底部
HWND_TOP
将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序
HWND_TOPMOST
将窗口置于列表顶部，并位于任何最顶部窗口的前面
HWND_NOTOPMOST
将窗口置于列表顶部，并位于任何最顶部窗口的后面
x
Long，窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示
y
Long，窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示
cx
Long，指定新的窗口宽度
cy
Long，指定新的窗口高度
wFlags
Long，包含了旗标的一个整数
SWP_DRAWFRAME
围绕窗口画一个框
SWP_HIDEWINDOW
隐藏窗口
SWP_NOACTIVATE
不激活窗口
SWP_NOMOVE
保持当前位置（x和y设定将被忽略）
SWP_NOREDRAW
窗口不自动重画
SWP_NOSIZE
保持当前大小（cx和cy会被忽略）
SWP_NOZORDER
保持窗口在列表的当前位置（hWndInsertAfter将被忽略）
SWP_SHOWWINDOW
显示窗口
SWP_FRAMECHANGED
强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变