[Anas Mahmoud]

اخي الكريم قمت بتنفيذ تجربة لقياس الوقت باستخدام 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