اخي الكريم قمت بتنفيذ تجربة لقياس الوقت باستخدام labels و buttons لمعرفة ايهم يأخذ وقت اطول
انشأت فورم للازرار وفورم لليبلات وفورم فارغ للمقارنة
وضعت في كل فورم 224 اداه وقمت باستخدام Stopwatch لقياس الوقت بين انشاء الفورم وظهورة فعلا على الشاشة
وقمت في الفورم الرئيسي باستدعاء كل فورم منهم 10 مرات ، وكانت النتائج كما التالي :
إقتباس :Main Form Time : 4919
buttonsForm Time : 388
buttonsForm Time : 284
buttonsForm Time : 275
buttonsForm Time : 290
buttonsForm Time : 300
buttonsForm Time : 292
buttonsForm Time : 280
buttonsForm Time : 289
buttonsForm Time : 271
buttonsForm Time : 303
LabelsForm Time : 381
LabelsForm Time : 235
LabelsForm Time : 257
LabelsForm Time : 237
LabelsForm Time : 233
LabelsForm Time : 249
LabelsForm Time : 239
LabelsForm Time : 248
LabelsForm Time : 251
LabelsForm Time : 273
Empty Form Time : 13
Empty Form Time : 16
Empty Form Time : 16
Empty Form Time : 15
Empty Form Time : 16
Empty Form Time : 16
Empty Form Time : 17
Empty Form Time : 13
Empty Form Time : 18
Empty Form Time : 17
اتضح ان الليبلات اسرع قليلا من الازرار ولكن الفرق ليس بالكبير ، فهنا قرارك هل تريد التخلي عن شكل الازارار وتأثير الضغط وكل ذلك ام لا
الكود :
الفورم الرئيسي :
كود :
Public Class Form1
Dim sw As New Stopwatch
Sub New()
sw.Start()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
sw.Stop()
Console.WriteLine("Main Form Time : " & sw.ElapsedMilliseconds)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim bf As New buttonsForm
bf.Show()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim lf As New LabelsForm
lf.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim ef As New EmptyForm
ef.Show()
End Sub
End Class
فورم الازرار :
كود :
Public Class buttonsForm
Dim sw As New Stopwatch
Sub New()
sw.Start()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
sw.Stop()
Console.WriteLine("buttonsForm Time : " & sw.ElapsedMilliseconds)
End Sub
End Class
فورم الليبلات :
كود :
Public Class LabelsForm
Dim sw As New Stopwatch
Sub New()
sw.Start()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
sw.Stop()
Console.WriteLine("LabelsForm Time : " & sw.ElapsedMilliseconds)
End Sub
End Class