43.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 14 行

保持初始的窗体大小

先在声明中加入
Dim myheight, mywidth As Integer

在窗体的LOAD事件中加入
mywidth = Me.Width
myheight = Me.Height

在Resize事件中加入
Me.Height = myheight
Me.Width = mywidth