منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : open file dialog
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
مرحبا

انا لدي مشروع ويحتوي على داة open file dialog  و1 تايمر واريد اضافة شرط عند فتح نافذة open file dialog وتحديد اي شي يبدا العد في tiemr من 0 الى 11 ثانية

وبعد 11 ثانية يتوقف انا كتبت الكود التالي وناجح ولاكن المشكلة عند فتح البرنامج يحسب 11 ثانيه ويضهر اخطا



كود :
       If dlgOpen.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
           txtFile.Text = dlgOpen.FileName
           ProgressBar1.Value = 0
           Timer1.Start()
           
       End If

فهل لازم نضيف اسم الزر في الشرط ام فقط يكفي اسم الاداة
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Using dlgOpen As New OpenFileDialog
       If dlgOpen.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
           txtFile.Text = dlgOpen.FileName
           ProgressBar1.Value = 0
           Timer1.Start()
       End If
   End Using
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
   Static i = 0
   ProgressBar1.Increment(ProgressBar1.Maximum / 10)
   If i = 11 Then
       Timer1.Stop()
       i = 0
       MsgBox("Timer1.Stop")
   End If
   i += 1
End Sub