منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
open file dialog - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : open file dialog (/showthread.php?tid=27610)

open file dialog - dasktop - 23-11-18

مرحبا

انا لدي مشروع ويحتوي على داة 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

فهل لازم نضيف اسم الزر في الشرط ام فقط يكفي اسم الاداة

RE: open file dialog - rmnr - 24-11-18

كود :
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