VB 怎么改变窗口大小

VB6.0可通过Height、Width 属性设置窗体的外部高度和宽度，包括边框和标题栏。

既可以是设计时在窗体属性窗口进行设置，也可在程序运行中通过代码改变。

Height、Width 属性示例：

这个例子在窗体被加载时，将窗体的大小设置为屏幕大小的百分之七十五并使窗体居中显示。要尝试这个例子，请将代码粘贴到窗体的声明部分。然后按 F5

键并单击窗体。

Private Sub Form_Click()

Width = Screen.Width * 0.75 ' 设置窗体的宽度。

Height = Screen.Height * 0.75 ' 设置窗体的高度。

Left = (Screen.Width - Width) / 2 ' 在水平方向上居中显示。

Top = (Screen.Height - Height) / 2 ' 在垂直方向上居中显示。

End Sub

1、首先，点击菜单栏中的工具按钮。

2、然后点击二级菜单的选项。

3、此时，便可以看到选项页面。

4、接下来点击编辑器格式。

5、在接下来就可以在这里设置字体大小。

6、最后，点击确定按钮即可保存。

7、完成效果图。

以改变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消息进入窗口，即使窗口的大小没有改变

---