窗体限制大小问题

原来如此 2009-11-30 01:45:25



Private Sub Form_Resize() '设置窗体大小

     If Me.Width <> 4040 Then Me.Width = 4040

     If Me.Height < 3500 Then Me.Height = 3500

End Sub

上面的代码是限定窗体大小的代码.....但是还是不够好.....就是缩小到小于设定值的时候......窗体会闪,并且也可以强制缩小.......为了美观,,,,也为了程序窗口太小而程序出错的问题.....所以....有什么方法可以将范围限定到上面说的范围内呢?

...全文

133 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

原来如此 2009-11-30

打赏
举报

谢谢大家的意见......虽然不知道还有没有更好的方法...但是4楼的确实解决了我说的问题.......

贝隆 2009-11-30

打赏
举报

飘过

舉杯邀明月 2009-11-30

打赏
举报

没................

laviewpbt 2009-11-30

打赏
举报

MINMAXINFO 结构，WM_GETMINMAXINFO 消息难道几位星星都没有听说过吗？

cbm6666 2009-11-30

打赏
举报

Option Explicit
Dim Oldwidth&, OldHeight&

Private Sub Form_Load()
Oldwidth = Me.Width: OldHeight = Me.Height
End Sub

Private Sub Form_Resize()
If Me.WindowState = vbMaximized Or Me.WindowState = vbMinimized Then Me.WindowState = vbNormal
If Me.Width <> Oldwidth Or Me.Height <> OldHeight Then Me.Width = Oldwidth: Me.Height = OldHeight
End Sub

舉杯邀明月 2009-11-30

打赏
举报

试试这个：

Private Sub Form_Resize()



    With Me

        If .Width <> 4040 Then

            .Enabled = False

            .Width = 4040

            .Enabled = True

        End If

        If .Height < 3500 Then

            .Enabled = False

            .Height = 3500

            .Enabled = True

        End If

    End With



End Sub

原来如此 2009-11-30

打赏
举报

[Quote=引用 1 楼 asftrhgjhkjlkttttttt 的回复:]
Private Sub Form_Resize() '设置窗体大小
on error resume next
If Me.Width < 4040 Then Me.Width = 4040
If Me.Height < 3500 Then Me.Height = 3500
End Sub
[/Quote]
加了个语句是不出错了....但用鼠标拉窗体到最小值而继续拉小时.....窗体会闪....并且还是有个窗体虚框在随鼠标拉小窗体而缩小.......怎样去掉这问题呢?

luofenghen 2009-11-30

打赏
举报

[Quote=引用 1 楼 asftrhgjhkjlkttttttt 的回复:]
Private Sub Form_Resize() '设置窗体大小
on error resume next
If Me.Width < 4040 Then Me.Width = 4040
If Me.Height <> 3500 Then Me.Height = 3500
End Sub

[/Quote]

少了个>