السلام عليكم احبابي في الله ، اليوم اقدم لكم كود جديد لتكبير الفورم بمساحة الشاشة او تصغير الفورم باي حجم تريد ، الكود مهمته انه يكبر جميع الادوات الموجودة على الفورم بدون تكبير كل اداه لوحدها .
طريقة التنفيذ : انسخ كامل الكود وضعه في المكان المناسب مع ضرورة تغير اسم الفورم( Form) باللون الاحمر الى اسم الفورم لديك .
الكود
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
ليست هناك تعليقات:
إرسال تعليق