Resize the tools with your form 10-20-2015, 03:34 PM
#1
i'll make this very quick because i don't have much time
this is a simple way for some people who is having this problem :
they make a simple form
![[Image: 103tvdd.jpg]](http://oi61.tinypic.com/103tvdd.jpg)
but whey they resize it , its like this
![[Image: 2ut18ap.jpg]](http://oi58.tinypic.com/2ut18ap.jpg)
here is a simple code to make it like this
![[Image: yyvrr.jpg]](http://oi59.tinypic.com/yyvrr.jpg)
this is a simple way for some people who is having this problem :
they make a simple form
but whey they resize it , its like this
here is a simple code to make it like this
Code:
Dim ProportionsArray() As CtrlProportions
Private Sub Form1_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleCreated
Informload()
End Sub
Private Structure CtrlProportions
Dim HeightProportions As Single
Dim WidthProportions As Single
Dim TopProportions As Single
Dim LeftProportions As Single
End Structure
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Resizeform()
End Sub
Sub Informload()
On Error Resume Next
Application.DoEvents()
ReDim ProportionsArray(0 To Controls.Count - 1)
For I As Integer = 0 To Controls.Count - 1
With ProportionsArray(I)
.HeightProportions = Controls(I).Height / Height
.WidthProportions = Controls(I).Width / Width
.TopProportions = Controls(I).Top / Height
.LeftProportions = Controls(I).Left / Width
End With
Next
End Sub
Public Sub Resizeform()
On Error Resume Next
For I As Integer = 0 To Controls.Count - 1
Controls(I).Left = ProportionsArray(I).LeftProportions * Me.Width
Controls(I).Top = ProportionsArray(I).TopProportions * Me.Height
Controls(I).Width = ProportionsArray(I).WidthProportions * Me.Width
Controls(I).Height = ProportionsArray(I).HeightProportions * Me.Height
Next
End Sub![[+]](https://sinister.li/images/modern/collapse_collapsed.png)
![[Image: 122l1sg.jpg]](http://oi60.tinypic.com/122l1sg.jpg)
![[Image: F4Z9Dqw.png]](https://i.imgur.com/F4Z9Dqw.png)
