+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار .....؟؟؟ نرجوا لمن استطاع المساعدة مساعدتنا.. (/showthread.php?tid=20778)
استفسار .....؟؟؟ نرجوا لمن استطاع المساعدة مساعدتنا.. - moh_g - 18-06-17
السلام عليكم ورحمة الله وبر كاته
نرجوا المساعدة
عندي button1 مثلا واضع فيه كود وفيه حلقة for...next ولما يتنفد ياخد بعض الوقت
فاوريد عند الضغط على ال button يخرج خط به نسبة المئوية لتقدم العمل او اي حاجة توضح ان الفورم مشغولة لتنفيذ الامر
بالله اللي يعرف يفيدنا...وشكرا
والسلام عليكم
RE: استفسار .....؟؟؟ نرجوا لمن استطاع المساعدة مساعدتنا.. - WAEL ABED - 19-06-17
يعنى عايز مثلا لو لما يكون اللوب شغال بيكون فى بروجرس بار شغال مع اللوب ولا ايه مش واضح اوي بالنسبة لي طلبك ؟
ممكن توضح اكثر ولو ترسل مثال تشرح عليه المشكله عندك هيكون افضل
وشكرا
RE: استفسار .....؟؟؟ نرجوا لمن استطاع المساعدة مساعدتنا.. - moh_g - 19-06-17
(19-06-17, 03:00 AM)WAEL ABED كتب : يعنى عايز مثلا لو لما يكون اللوب شغال بيكون فى بروجرس بار شغال مع اللوب ولا ايه مش واضح اوي بالنسبة لي طلبك ؟السلام عليكم.....
ممكن توضح اكثر ولو ترسل مثال تشرح عليه المشكله عندك هيكون افضل
وشكرا
عنددي كود موجود في زرbutton, كتالي
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
' هدا كود لزيادة السنويةللاجازات
Button11.Enabled = False
Me.Enabled = False
vac_newyear.Clear()
vac_newyearadapter = New OleDbDataAdapter("select file_no ,vac_bal ,yr_vac ,vac_bal_year from pers_data order by birthdate", con)
vac_newyearadapter.Fill(vac_newyear)
Dim loop1 As New Integer
loop1 = BindingContext(vac_newyear).Count - 1
Dim v As New Integer
Dim no As New Integer
For i = 0 To loop1
v = 0
no = 0
no = vac_newyear.Rows(i).Item(0).ToString
v = vac_newyear.Rows(i).Item(1) + vac_newyear.Rows(i).Item(2)
'vac_newyear.Rows(i).Item(1) = v
Dim cmd As New OleDbCommand("update pers_data set vac_bal=@vac_bal,vac_bal_year=@vac_bal_year where file_no=" & no, con)
cmd.Parameters.Add("@vac_bal", OleDbType.Numeric).Value = Val(v) 'vac_newyear.Rows(i).Item(1).ToString 'dt2.Rows(pos).Item(2)
cmd.Parameters.Add("@vac_bal_year", OleDbType.VarChar).Value = TextBox10.Text
If con.State = ConnectionState.Open Then con.Close()
con.Open()
cmd.ExecuteNonQuery()
cmd.Dispose()
con.Close()
Next
pers_data_load()
load_dgv_vac()
DataGridView1.DataSource = vac_tab
MsgBox("تمت عملية احتساب الاجازات بنجاح" & TextBox10.Text, MsgBoxStyle.Information, "إحتساب الاجازات")
Me.Enabled = True
اريد عند البدء في تنفيد الكود يظهر نسبة التقدم في نسبة انجاز المهمة الموكلة لهمثلا زي اللي يظهر عند النسخ