控件大小随窗口大小变化

2010-08-26 04:05:20 296 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

对话框控件大小随窗口的大小变化而变化我们经常会发现当我们将窗口最大化时，里面的控件并没有进行改变，接下来我就介绍一下此问题的解决办法，我们其实一般的都会把窗口的最大化按钮失效，是窗口不能进行最大化操作，但是有时候我们还是需要对窗口进行最大化操作的，下面我们可以通过添加WM_SIZE消息来解决此问题。 1 在XXDLg.h中添加 afx_msg void OnSize(UINT nType, int c 阅读详情

你们好
请问如何使控件大小随窗口大小的变化而变化呢，我一个窗口里面的控件比较多！
能给出代码吗？谢谢O(∩_∩)O~
分比较少，实在快没有了O(∩_∩)O~

...全文

MFC 所有控件大小随窗口大小变化而变化 .h里定义: CPoint oldPoint; OnInitDialog里添加： CRect rect; GetClientRect(&rect); / / get the client area size oldPoint. X= rect.right - rect.left ; oldPoint.y= rect.bottom - rect.top ; 响应WM_ SIZE消息： if(nType==SIZE_RESTORED || nType==SIZE_MA. 阅读详情

youyaodong03

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

youyaodong03 2010-08-26

打赏
举报

[Quote=引用 6 楼 cnuser1 的回复:]
请使用 RESIZE32.OCX 文件解决了，国外程序很多年前已经封装好了，呵呵。
留下的邮箱，我发给你。
[/Quote]
这么厉害，那谢谢你啊，youyaodong03@163.com

youyaodong03 2010-08-26

打赏
举报

想不到这么多热心的人啊，O(∩_∩)O~，值得学习！！！！

hbkjccl 2010-08-26

打赏
举报

学习学习好东西收藏下

lsh6688 2010-08-26

打赏
举报

在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如：

Private Sub Form_Resize()
　Dim H, i As Integer
　On Error Resume Next
　Resize_ALL Me 'Me是窗体名，Form1,Form2等等都可以

End Sub

　　在模块中添加以下代码：

Public Type ctrObj
　Name As String
　Index As Long
　Parrent As String
　Top As Long
　Left As Long
　Height As Long
　Width As Long
　ScaleHeight As Long
　ScaleWidth As Long
End Type

Private FormRecord() As ctrObj
Private ControlRecord() As ctrObj
Private bRunning As Boolean
Private MaxForm As Long
Private MaxControl As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Long

Function ActualPos(plLeft As Long) As Long

　If plLeft < 0 Then
　　ActualPos = plLeft + 75000
　Else
　　ActualPos = plLeft
　End If

End Function

Function FindForm(pfrmIn As Form) As Long

　Dim i As Long
　FindForm = -1

　If MaxForm > 0 Then
　
　　For i = 0 To (MaxForm - 1)
　　　If FormRecord(i).Name = pfrmIn.Name Then
　　　　FindForm = i
　　　　Exit Function
　　　End If
　　Next i
　End If

End Function

Function AddForm(pfrmIn As Form) As Long

　Dim FormControl As Control
　Dim i As Long
　ReDim Preserve FormRecord(MaxForm + 1)

　FormRecord(MaxForm).Name = pfrmIn.Name
　FormRecord(MaxForm).Top = pfrmIn.Top
　FormRecord(MaxForm).Left = pfrmIn.Left
　FormRecord(MaxForm).Height = pfrmIn.Height
　FormRecord(MaxForm).Width = pfrmIn.Width
　FormRecord(MaxForm).ScaleHeight = pfrmIn.ScaleHeight
　FormRecord(MaxForm).ScaleWidth = pfrmIn.ScaleWidth
　AddForm = MaxForm
　MaxForm = MaxForm + 1

　For Each FormControl In pfrmIn
　　i = FindControl(FormControl, pfrmIn.Name)
　　If i < 0 Then
　　　i = AddControl(FormControl, pfrmIn.Name)
　　End If
　Next FormControl

End Function

Function FindControl(inControl As Control, inName As String) As Long

　Dim i As Long
　FindControl = -1

　For i = 0 To (MaxControl - 1)
　　If ControlRecord(i).Parrent = inName Then
　　　If ControlRecord(i).Name = inControl.Name Then
　　　　On Error Resume Next
　　　　If ControlRecord(i).Index = inControl.Index Then
　　　　　FindControl = i
　　　　　Exit Function
　　　　End If
　　　　On Error GoTo 0
　　　End If
　　End If
　Next i
End Function

Function AddControl(inControl As Control, inName As String) As Long

　ReDim Preserve ControlRecord(MaxControl + 1)
　On Error Resume Next
　ControlRecord(MaxControl).Name = inControl.Name
　ControlRecord(MaxControl).Index = inControl.Index
　ControlRecord(MaxControl).Parrent = inName

　If TypeOf inControl Is Line Then
　　ControlRecord(MaxControl).Top = inControl.Y1
　　ControlRecord(MaxControl).Left = ActualPos(inControl.X1)
　　ControlRecord(MaxControl).Height = inControl.Y2
　　ControlRecord(MaxControl).Width = ActualPos(inControl.X2)
　Else
　　ControlRecord(MaxControl).Top = inControl.Top
　　ControlRecord(MaxControl).Left = ActualPos(inControl.Left)
　　ControlRecord(MaxControl).Height = inControl.Height
　　ControlRecord(MaxControl).Width = inControl.Width
　End If

　inControl.IntegralHeight = False
　On Error GoTo 0
　AddControl = MaxControl
　MaxControl = MaxControl + 1
End Function

Function PerWidth(pfrmIn As Form) As Long

　Dim i As Long
　i = FindForm(pfrmIn)

　If i < 0 Then
　　i = AddForm(pfrmIn)
　End If

　PerWidth = (pfrmIn.ScaleWidth * 100) \ FormRecord(i).ScaleWidth
End Function

Function PerHeight(pfrmIn As Form) As Double

　Dim i As Long
　i = FindForm(pfrmIn)

　If i < 0 Then
　　i = AddForm(pfrmIn)
　End If

　PerHeight = (pfrmIn.ScaleHeight * 100) \ FormRecord(i).ScaleHeight
End Function

Public Sub ResizeControl(inControl As Control, pfrmIn As Form)

　On Error Resume Next
　Dim i As Long
　Dim widthfactor As Single, heightfactor As Single
　Dim minFactor As Single
　Dim yRatio, xRatio, lTop, lLeft, lWidth, lHeight As Long
　yRatio = PerHeight(pfrmIn)
　xRatio = PerWidth(pfrmIn)
　i = FindControl(inControl, pfrmIn.Name)

　If inControl.Left < 0 Then
　　lLeft = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000)
　Else
　　lLeft = CLng((ControlRecord(i).Left * xRatio) \ 100)
　End If

　lTop = CLng((ControlRecord(i).Top * yRatio) \ 100)
　lWidth = CLng((ControlRecord(i).Width * xRatio) \ 100)
　lHeight = CLng((ControlRecord(i).Height * yRatio) \ 100)
　If TypeOf inControl Is Line Then

　　If inControl.X1 < 0 Then
　　　inControl.X1 = CLng(((ControlRecord(i).Left * xRatio) \ 100) - 75000)
　　Else
　　　inControl.X1 = CLng((ControlRecord(i).Left * xRatio) \ 100)
　　End If

　　inControl.Y1 = CLng((ControlRecord(i).Top * yRatio) \ 100)
　　If inControl.X2 < 0 Then
　　　inControl.X2 = CLng(((ControlRecord(i).Width * xRatio) \ 100) - 75000)
　　Else
　　　inControl.X2 = CLng((ControlRecord(i).Width * xRatio) \ 100)
　　End If

　　inControl.Y2 = CLng((ControlRecord(i).Height * yRatio) \ 100)
　Else
　　inControl.Move lLeft, lTop, lWidth, lHeight
　　inControl.Move lLeft, lTop, lWidth
　　inControl.Move lLeft, lTop
　End If

End Sub

Public Sub ResizeForm(pfrmIn As Form)

　Dim FormControl As Control
　Dim isVisible As Boolean
　Dim StartX, StartY, MaxX, MaxY As Long
　Dim bNew As Boolean

　If Not bRunning Then
　　bRunning = True

　　If FindForm(pfrmIn) < 0 Then
　　　bNew = True
　　Else
　　　bNew = False
　　End If
　　If pfrmIn.Top < 30000 Then
　　　isVisible = pfrmIn.Visible
　　　On Error Resume Next
　　　If Not pfrmIn.MDIChild Then
　　　　On Error GoTo 0
　　　　' ' pfrmIn.Visible = False
　　　Else

　　　　If bNew Then
　　　　　StartY = pfrmIn.Height
　　　　　StartX = pfrmIn.Width
　　　　　On Error Resume Next
　　　　　For Each FormControl In pfrmIn
　　　　　　If FormControl.Left + FormControl.Width + 200 > MaxX Then
　　　　　　　MaxX = FormControl.Left + FormControl.Width + 200
　　　　　　End If

　　　　　　If FormControl.Top + FormControl.Height + 500 > MaxY Then
　　　　　　　MaxY = FormControl.Top + FormControl.Height + 500
　　　　　　End If

　　　　　　If FormControl.X1 + 200 > MaxX Then
　　　　　　　MaxX = FormControl.X1 + 200
　　　　　　End If

　　　　　　If FormControl.Y1 + 500 > MaxY Then
　　　　　　　MaxY = FormControl.Y1 + 500
　　　　　　End If

　　　　　　If FormControl.X2 + 200 > MaxX Then
　　　　　　　MaxX = FormControl.X2 + 200
　　　　　　End If

　　　　　　If FormControl.Y2 + 500 > MaxY Then
　　　　　　　MaxY = FormControl.Y2 + 500
　　　　　　End If

　　　　　Next FormControl

　　　　　On Error GoTo 0
　　　　　pfrmIn.Height = MaxY
　　　　　pfrmIn.Width = MaxX
　　　　End If

　　　　On Error GoTo 0
　　　End If

　　　For Each FormControl In pfrmIn
　　　　ResizeControl FormControl, pfrmIn
　　　Next FormControl

　　　On Error Resume Next

　　　If Not pfrmIn.MDIChild Then
　　　　On Error GoTo 0
　　　　pfrmIn.Visible = isVisible
　　　Else

　　　　If bNew Then
　　　　pfrmIn.Height = StartY
　　　　pfrmIn.Width = StartX

　　　　For Each FormControl In pfrmIn
　　　　　ResizeControl FormControl, pfrmIn
　　　　Next FormControl

　　　End If
　　End If
　　On Error GoTo 0
　End If
　bRunning = False
End If

End Sub

Public Sub SaveFormPosition(pfrmIn As Form)

　Dim i As Long

　If MaxForm > 0 Then

　　For i = 0 To (MaxForm - 1)

　　　If FormRecord(i).Name = pfrmIn.Name Then

　　　　FormRecord(i).Top = pfrmIn.Top
　　　　FormRecord(i).Left = pfrmIn.Left
　　　　FormRecord(i).Height = pfrmIn.Height
　　　　FormRecord(i).Width = pfrmIn.Width
　　　　Exit Sub
　　　End If
　　Next i

　　AddForm (pfrmIn)
　End If
End Sub

Public Sub RestoreFormPosition(pfrmIn As Form)

　Dim i As Long
　If MaxForm > 0 Then
　　For i = 0 To (MaxForm - 1)
　　　If FormRecord(i).Name = pfrmIn.Name Then
　　　　If FormRecord(i).Top < 0 Then
　　　　　pfrmIn.WindowState = 2
　　　　ElseIf FormRecord(i).Top < 30000 Then
　　　　　pfrmIn.WindowState = 0
　　　　　pfrmIn.Move FormRecord(i).Left, FormRecord(i).Top, FormRecord(i).Width, FormRecord(i).Height
　　　　Else
　　　　　pfrmIn.WindowState = 1
　　　　End If
　　　　　Exit Sub
　　　End If
　　Next i
　End If
End Sub

Public Sub Resize_ALL(Form_Name As Form)

　Dim OBJ As Object
　For Each OBJ In Form_Name
　　ResizeControl OBJ, Form_Name
　Next OBJ
End Sub

Public Sub DragForm(frm As Form)

　On Local Error Resume Next
　Call ReleaseCapture
　Call SendMessage(frm.hwnd, WM_NCLBUTTONDOWN, 2, 0)

End Sub

tianzhi0549 2010-08-26

打赏
举报

5楼的方法很管用。

cnuser1 2010-08-26

打赏
举报

请使用 RESIZE32.OCX 文件解决了，国外程序很多年前已经封装好了，呵呵。
留下的邮箱，我发给你。

Dision LI 2010-08-26

打赏
举报



代码如下：



 



'VB控件随窗体大小而变化

'当窗体大小改变时，如何动态的改变控件的大小是许多VB程序员头痛的

'事。有的人设置窗体Resizable但却不改变控件的大小；有的人则根据控件的

'绝对位置与窗口大小相加减的办法来重新定位控件与改变大小，这种办法比

'较繁琐，且不可重用；当然也有人则限定窗口干脆不让改变。有没有一种简

'便易行的办法？答案是肯定的，下面给出一个一劳永逸的办法，源程序如下:

'模块

Option Explicit

Dim FormOldWidth As Long  '窗体旧的宽度值

Dim FormOldHeight As Long  '窗体旧的高度值

   

 Public Sub ResizeInit(FormName As Form)

  Dim pCtl As Control

 

  '设置窗体旧的高度与宽度

  FormOldWidth = FormName.ScaleWidth

  FormOldHeight = FormName.ScaleHeight

 

  On Error Resume Next

  For Each pCtl In FormName

    '设置窗体中控件的Tag值(根据空间的位置和大小来设置)

   

    '返回或设置一个表达式，它存储程序需要的额外数据。

    '与其它属性不同，Visual Basic 不使用 Tag 属性的值；

    '可用该属性识别对象。

   

    pCtl.Tag = pCtl.Left & "   " & pCtl.Top & "   " & pCtl.Width & "   " & pCtl.Height & "   "

  Next pCtl

  On Error GoTo 0

End Sub



 Public Sub ResizeForm(FormName As Form)

  Dim Pos(4) As Double

  Dim i As Long, tmpPos As Long, staPos As Long

  Dim pCtl As Control

  Dim ScaleX As Double, ScaleY As Double

 

  '保存窗体的宽度与高度缩放比例

  ScaleX = FormName.ScaleWidth / FormOldWidth

  ScaleY = FormName.ScaleHeight / FormOldHeight

 

  On Error Resume Next

 

  '变化窗体内的各控件

  For Each pCtl In FormName

    staPos = 1

    For i = 0 To 4 '位置和大小

      '取得控件的原始位置和大小

      tmpPos = InStr(staPos, pCtl.Tag, "   ", vbTextCompare)

      If tmpPos > 0 Then

        Pos(i) = Mid(pCtl.Tag, staPos, tmpPos - staPos)

        staPos = tmpPos + 1

      Else

        Pos(i) = 0

      End If

     

      '根据控件的原始位置及窗体改变大小的

      '比例对控件重新定位与改变大小

      pCtl.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY

    Next i

  Next pCtl

  On Error GoTo 0

End Sub

 

'在窗体启动时，调用ResizeInit函数

'以记录窗体中各控件的大小和位置

Private Sub Form_Load()

  Call ResizeInit(Me)

End Sub



'窗体大小发生变化时，根据窗体改变大小的比例

'对窗体中各控件重新定位和改变大小。

Private Sub Form_Resize()

  Call ResizeForm(Me)

End Sub

youyaodong03 2010-08-26

打赏
举报

[Quote=引用 2 楼 flfq 的回复:]
用控件吧，ssresize
[/Quote]
能否详细点呢？没用过这个控件

youyaodong03 2010-08-26

打赏
举报

[Quote=引用 1 楼 ahljxwy 的回复:]
方法就是写在窗体的 Resize 事件里了,如果控件很多的话就要写很多代码来控制了
[/Quote]
所以我才不知道怎么做啊，如果我有上百个控件，那不是很麻烦吗？

flfq 2010-08-26

打赏
举报

用控件吧，ssresize

ahljxwy 2010-08-26

打赏
举报

方法就是写在窗体的 Resize 事件里了,如果控件很多的话就要写很多代码来控制了

控件大小随窗口大小变化

相关推荐