如何在窗体最大化时，窗体中的其他控件也跟着最大化

Question

请教各位老师，我想请教一下，如何才能使vb中的窗体最大化时，窗体中其他控件也能跟着最大化。谢谢

Answer 1

能不能说说具体的控件,一般的控件设置.width和height即可。

Answer 2

在Form_Resize事件中一个一个的处理。

Answer 3

好像只能在Form_Resize事件中一个一个的处理。

Answer 4

form_resize事件里一个一个的把.width 还有.height都=me.width  me.height

Answer 5

Private Sub Form_Resize()   '在这中控制End Sub

Answer 6

在Form的Resize事件中处理代码
将控件的width和height与Form的.ScaleWidth 和 .ScaleHeight 关联
//例子如下
'form1,picturebox1private sub form1_Resize()
  if WindowState=2 then '最大化窗口
     with picturebox1   '设置控件位置与大小
         .Left=ScaleLeft
         .Top=ScaleTop
         .Width=ScaleWidth
         .Height=ScaleHeight
     end with
  end if
end sub

Answer 7

Up在推存一个VB小工具软件名称：VB代码计算器
软件类型：编程工具
编程环境：VB6 + SP5
适用系统：Win9x/2k/XP■ 软件介绍本程序能显示出你编写的VB源代码一共写了多少行，同时也支持其他类型的文件计算。特点：①界面美观，操作方便，你只需拖动你保存好的VB工程（组）文件到本程序窗口就可显示出源代码的总行数。②能自动分析VB工程（组）内包含的文件（这是可选的，也可以不自动分析并把他当作普通文件计算），并分别计算出每个文件所包含源代码的行数。③能自动隔离VB文件中由VB自动生成的代码，只计算用户输入的源代码，并可选择是否要排除空行或注释行的计算。④支持计算非VB文件，如文本文件、ini文件等。计算该类文件时只能排除空行的计算，其他只要不是空行都会累加到总行数中。⑤可暂停正在计算中的任务。⑥可以保存计算结果和被计算文件列表为文本文件，方便以后查询或打印输出。
下载地址：
华军软件 http://www.onlinedown.net/soft/7545.htm
天空软件 http://www.skycn.com/soft/12423.html

Answer 8

private sub form_resize()        你的控件.move me.scaleleft,me.scaletop,me.scalewidth,me.scaleheightend sub

Answer 9

在窗体中放入容器控件（PICTURE,TOOLBAR），并将其它控件至于容器中

Answer 10

使用Resize控件，把该控件放在想要放的模块就行，不需要一行的代码。

Answer 11

Form_Resize事件中进行处理，
public sub form_resize()
  dim obj as objects
  for each obj in controls
    '设置控件的位置和大小
  next obj
end sub

Answer 12

Form_Resize()里面处理控件的height和width属性
只要Form框大小变化就会触发Resize事件
在resize函数里面加入
控件1.height=控件1.heightbackup*form.height/form.heightbackup
控件1.width=控件1.widthbackup*form.width/form.widthbackup

Answer 13

在Form的Resize事件中处理代码
'form1,picturebox1private sub form1_Resize()
  if WindowState<>1 then '最大化窗口
     picturebox1.move me.left, me.top, me.width, me.height   '设置控件位置与大小
  end if
end sub

Answer 14

在Form的Resize事件中处理代码
'form1,picturebox1private sub form1_Resize()
  if WindowState<>1 then '最大化窗口
     picturebox1.move me.left, me.top, me.width, me.height   '设置控件位置与大小
  end if
end sub

Answer 15

在Form的Resize事件中处理代码
'form1,picturebox1private sub form1_Resize()
  if WindowState<>1 then '最大化窗口
     picturebox1.move me.left, me.top, me.width, me.height   '设置控件位置与大小
  end if
end sub

Answer 16

'以下内容放入工程的一个模块中
Option Explicit
Private FormOldWidth As Long
    '保存窗体的原始宽度
Private FormOldHeight As Long
    '保存窗体的原始高度'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
 Dim Obj As Control
 FormOldWidth = FormName.ScaleWidth
 FormOldHeight = FormName.ScaleHeight
 On Error Resume Next
 For Each Obj In FormName
   Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
 Next Obj
 On Error GoTo 0
End Sub'按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
 Dim Pos(4) As Double
 Dim i As Long, TempPos As Long, StartPos As Long
 Dim Obj As Control
 Dim ScaleX As Double, ScaleY As Double ScaleX = FormName.ScaleWidth / FormOldWidth
   '保存窗体宽度缩放比例
 ScaleY = FormName.ScaleHeight / FormOldHeight
   '保存窗体高度缩放比例
 On Error Resume Next
 For Each Obj In FormName
   StartPos = 1
   For i = 0 To 4
    '读取控件的原始位置与大小     TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
     If TempPos > 0 Then
       Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
       StartPos = TempPos + 1
     Else
       Pos(i) = 0
     End If
     '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
     Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
   Next i
 Next Obj
 On Error GoTo 0
End Sub
'******在你的每一个窗体的load与resize事件中加入代码Private Sub Form_Load()
 Call ResizeInit(Me)  '在程序装入时必须加入
End SubPrivate Sub Form_Resize()
 Call ResizeForm(Me)  '确保窗体改变时控件随之改变
End Sub

Answer 17

Private Sub Form_Resize()
    Select Case WindowState
        Case 0
            '正常窗口显示
        Case 1
            '最小化
        Case 2
            '最大化
    End Select
End Sub

Answer 18

那位帮我，回答一下我的问题，问题在这里：http://expert.csdn.net/Expert/topic/1975/1975165.xml?temp=.9400446具体的问题与datagrid有关接你的帖用一下，我的铁已经被冲到很地下了，我又顶不了。

Answer 19

Private Sub Form_Resize()   '在这中控制
  改变大小
End Sub

Answer 20

Private Sub Form_Resize()  
.......End Sub
在窗体属性中另外设置一下，不要说不知道。！！！