控件的边框不用消失,你只要把控件的颜色和窗口背景一个颜色就可以了实现了。 对于第二个问题,我提供给你一个不是技术的办法。你可以这样用。 先申明两个变量 Public x, y As IntegerPrivate Sub Form_Load() x = Me.Width y = Me.Height End SubPrivate Sub Form_Resize() If Me.Width > Screen.Width Or Me.Height < 400 Then Exit Sub Else Me.Width = x Me.Height = y End IfEnd Sub
先申明两个变量
Public x, y As IntegerPrivate Sub Form_Load()
x = Me.Width
y = Me.Height
End SubPrivate Sub Form_Resize()
If Me.Width > Screen.Width Or Me.Height < 400 Then
Exit Sub
Else
Me.Width = x
Me.Height = y
End IfEnd Sub
主持人:韩誉
(擅长数据库设计)