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这样冒似实现不了,我该怎么做? 本帖最后由 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 这句的错误是怎么回事呢? 不要用form自带的最大化按钮和最大化状态去判断。
把最大化按钮影藏,自己做个按钮,按下的时候调整窗体大小到指定大小就好了。
页:
[1]