论坛首页 › Windows › vb怎么才能最大化到指定大小窗体?

hisun 发表于 2013-1-30 16:45:01

vb怎么才能最大化到指定大小窗体?

Private Sub Form_Resize()

    If Me.WindowState = 2 Then
      If Form1.Width > 13140 Or Form1.Height > 10260 Then
         Form1.Width = 13140
         Form1.Height = 10260
      End If
    End If
    Debug.Print Form1.Width, Form1.Height
End Sub这样冒似实现不了,我该怎么做?

topdog 发表于 2013-1-30 16:49:00

hisun 发表于 2013-1-31 12:19:24

本帖最后由 hisun 于 2013-1-31 12:20 编辑

当我加上滚动条后想实现滚动整个窗体内容,但用下面这个不能遍历窗体全部控件,只能是其中几个,Private Sub VScroll1_Change()
For Each c In Form1.Controls   
   If c.Name <> "VScroll1" And c.Name <> "HScroll1" Then c.Top = c.Top - VScroll1.Value
   Next
End SubIf c.Name <> "VScroll1" And c.Name <> "HScroll1" Then c.Top = c.Top - VScroll1.Value 这句的错误是怎么回事呢?

hcambridge 发表于 2013-1-31 13:22:11

不要用form自带的最大化按钮和最大化状态去判断。
把最大化按钮影藏，自己做个按钮，按下的时候调整窗体大小到指定大小就好了。

查看完整版本: vb怎么才能最大化到指定大小窗体?