如何使窗体被用户缩小时,到了一个指定的宽度,就不在缩小了.

Question

这是我想的，没有经过测试，不知道管不管用。在Form_Resize过程中指定Form.Width、Form.Height为你想要的大小。If Me.Width < 1000 And Me.Height < 1000 then
Me.Width = 1000
Me.Height = 1000
End if

Answer 1

如果你对于API很熟悉的话，可以参考一下API函数，具体怎么写我就帮不上什么忙了。

Answer 2

Midia Player 估计是插件在作用。

Answer 3

当窗体缩小到Width=405、Height =0 时，你说的那种情况就可以实现了。

Answer 4

我的经过测试了（取自本人随便写的一个程序）
Private Sub Form_Resize()
    Dim i As Integer
    
    '防止窗口最小化超标
    If Me.Width < 1250 Then Me.Width = 1250
    If Me.Height < 2600 Then Me.Height = 2600
    
    
    '重绘窗体元件
    Picture1.Width = Me.Width - 95
    Picture1.Height = Me.Height - 1600
    
    For i = 1 To UBound(cmdListGroup)
        cmdListGroup(i).Width = Picture1.Width - 70
        cmdListGroup(i).Width = cmdMyFriends.Width
    Next i
    cmdSearch.Top = Picture1.Height + 20
    cmdSearch.Width = Picture1.Width - 20
    cmdBoardcast.Top = cmdSearch.Top + 300
    cmdBoardcast.Width = Picture1.Width - 20
        
End Sub

Answer 5

我有个例子
请emali:[email protected]

Answer 6

Subclass 窗体，拦截 WM_SIZING 消息，可以控制窗体的大小。

Answer 7

今天晚上我会在 http://www.greatmidnight.com 的“代码超市”栏目发布源代码。

Answer 8

DevilXelloss(傑洛仕)是對的,我以前看過這种代碼

Answer 9

代码已经发布：http://www.greatmidnight.com/redir.asp?id=codeethome
名称：《窗体最小尺寸控制演示》

Answer 10

这里面有一个例子：http://www.banasoft.com/DownLoad/BNHkLib.exe