保持初始的窗体大小

 

 

先在声明中加入

Dim myheight, mywidth As Integer

 

在窗体的LOAD事件中加入

mywidth = Me.Width

myheight = Me.Height

 

在Resize事件中加入

Me.Height = myheight

Me.Width = mywidth

上一个：创建无 Icon 的窗口
下一个：VB中阴影字体的实现