تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار .....؟؟؟ نرجوا لمن استطاع المساعدة مساعدتنا..
#1
Exclamation 
السلام عليكم ورحمة الله وبر كاته

نرجوا المساعدة

عندي button1  مثلا واضع فيه كود  وفيه حلقة for...next   ولما يتنفد ياخد بعض الوقت 
فاوريد عند الضغط على ال  button    يخرج خط به نسبة المئوية لتقدم العمل او اي حاجة توضح ان الفورم مشغولة لتنفيذ الامر 
بالله اللي يعرف يفيدنا...وشكرا
والسلام عليكم
الرد }}}}
تم الشكر بواسطة:
#2
يعنى عايز مثلا لو لما يكون اللوب شغال بيكون فى بروجرس بار شغال مع اللوب ولا ايه مش واضح اوي بالنسبة لي طلبك ؟
ممكن توضح اكثر ولو ترسل مثال تشرح عليه المشكله عندك هيكون افضل
وشكرا
الرد }}}}
تم الشكر بواسطة:
#3
(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



اريد عند البدء في تنفيد الكود يظهر نسبة التقدم في نسبة انجاز المهمة الموكلة لهمثلا زي اللي يظهر عند النسخ


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  رجاء المساعدة في رابط للايقونات Free khaled12345 2 55 26-06-17, 06:47 AM
آخر رد: khaled12345
  [VB.NET] استفسار وشكر فراس الغزي 10 218 12-06-17, 04:49 AM
آخر رد: Amir_alzubidy
  [VB.NET] استفسار فراس الغزي 12 391 12-06-17, 03:37 AM
آخر رد: فراس الغزي
  المساعدة حول طريقة استخدام Run as Date ddemed 2 78 11-06-17, 09:13 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] استفسار عن كود البحث المتعدد Marwan9990 21 699 11-06-17, 01:59 AM
آخر رد: tomoq5
  [سؤال] استفسار عن كود الاتصال بملف اكسل او اكسس ابو محمد القحطاني 7 181 06-06-17, 06:49 PM
آخر رد: الراشيدي
  اتحلت معظم المشاكل في المشروع ويبقي الاتي --من فضلكم المساعدة فيها khaled12345 8 190 30-05-17, 10:47 PM
آخر رد: khaled12345
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 17 451 30-05-17, 06:43 PM
آخر رد: الماجيك مسعد
  برجاء المساعدة في حل مشكلة المشروع المرفق لانواع بحث مختلفة khaled12345 7 156 29-05-17, 09:37 PM
آخر رد: khaled12345
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 94 21-05-17, 01:18 AM
آخر رد: mohamed haroon

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم