+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : progresspar وفتح ملف (/showthread.php?tid=8122)
progresspar وفتح ملف - mazen - 24-03-13
انا افتح الاكسيل من برنامجي ولكن الكود ياخذ وقت لفتح البرنامج اريد ان يكون عملية الانتظار حتي الفتح بشريط البروجريس بار
واريد وضع زر للالغاء البرجريس بار وانهاء االعملية
يعني ربط فتح الملف الاكسيل بالبروجريس بار للفتح علما بان الاكواد
ارجوا التعديل علي بمثال
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")
xlApp.Visible = True
'add data
xlWorkSheet.Cells(1, 1) = ""
xlWorkSheet.Cells(1, 2) = "Issac"
xlWorkSheet.Cells(1, 3) = "Raja"
xlWorkSheet.Cells(1, 4) = "Ravi"
xlWorkSheet.Cells(2, 1) = "Term1"
xlWorkSheet.Cells(2, 2) = "80"
xlWorkSheet.Cells(2, 3) = "65"
xlWorkSheet.Cells(2, 4) = "45"
xlWorkSheet.Cells(3, 1) = "Term2"
xlWorkSheet.Cells(3, 2) = "78"
xlWorkSheet.Cells(3, 3) = "72"
xlWorkSheet.Cells(3, 4) = "60"
xlWorkSheet.Cells(4, 1) = "Term3"
xlWorkSheet.Cells(4, 2) = "82"
xlWorkSheet.Cells(4, 3) = "80"
xlWorkSheet.Cells(4, 4) = "65"
xlWorkSheet.Cells(5, 1) = "Term4"
xlWorkSheet.Cells(5, 2) = "75"
xlWorkSheet.Cells(5, 3) = "82"
xlWorkSheet.Cells(5, 4) = "68"
'create chart
Dim chartPage As Excel.Chart
Dim xlCharts As Excel.ChartObjects
Dim myChart As Excel.ChartObject
Dim chartRange As Excel.Range
xlCharts = xlWorkSheet.ChartObjects
myChart = xlCharts.Add(10, 80, 300, 250)
chartPage = myChart.Chart
chartRange = xlWorkSheet.Range("A1", "d5")
chartPage.SetSourceData(Source:=chartRange)
chartPage.ChartType = Excel.XlChartType.xl3DColumnStacked
'exporting chart as picture file
progresspar وفتح ملف - Easy4ever - 24-03-13
قم بزيادة عداد progresspar عند إنهاء عملية معينه
يعني انت كم من العمليات تتم لفتح الملف كل ما يتم إنهاء عملية يقوم بزيادته
الكود اللذي وضعته لم أفهمه
ضع مثال بسيط هنا ليتم التعديل عليه
progresspar وفتح ملف - mazen - 24-03-13
البرنامج في المرفقات ارجو التعديل علية
الكود فتح ملف الاكسيل بواسطة الابرنامج واضافة قيم للشيت الاول
progresspar وفتح ملف - Easy4ever - 24-03-13
البرنامج يحدث خطأ في سطر
xlWorkSheet = xlWorkBook.Sheets("sheet1")
عموما أنظر للمثال بعد إضافة الحركه
ولاكن يقصك تعديل الخطأ الذي يظهر في سطر
xlWorkSheet = xlWorkBook.Sheets("sheet1")
progresspar وفتح ملف - mazen - 24-03-13
المثال غير معبر يعني لايتم الدونلود الاكتمال ويفتح صفحة الاكسيل ارجو التعديل علي المثال ليشبة مثال الاستاذ عبد اللة الدويسري
واريد تحديد الحجم الملف
[ATTACH=CONFIG]2096[/ATTACH]
progresspar وفتح ملف - Easy4ever - 24-03-13
أرفق لي مثال سليم حتى أستطيع التجربه والمساعده
لان مثالك الأول يحدث لي خطأ أثناء التشغيل
progresspar وفتح ملف - mazen - 24-03-13
اخي انا عالجت الخطا وهو في الجملة الاتية
xlApp = New Excel.ApplicationClass
المثال بعد التعديل
http://www.4shared.com/rar/oo5DoA3V/progresspar.html
progresspar وفتح ملف - Easy4ever - 24-03-13
أخوي المثال بعد ما أشتغل معي المهم
تأكد من وضعك هذا الكود في كل مكان انا قمت بوضعه في المثال إللي طرحته لك
BackgroundWorker1.ReportProgress(15)
يجب ان يكون رقم 15إلا الأولى فهي رقمها 10حتى يكون مجموعهم جميعا 100وأريد منك إضافة هذا الكود
Application.DoEvents()
قبل
BackgroundWorker1.ReportProgress(15)
حتى يصبح الكود كامل
Application.DoEvents()
BackgroundWorker1.ReportProgress(15)
ما عدى الأولى تكون
Application.DoEvents()
BackgroundWorker1.ReportProgress(10)
جرب وعطنا النتيجه