تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
progresspar وفتح ملف
#1
انا افتح الاكسيل من برنامجي ولكن الكود ياخذ وقت لفتح البرنامج اريد ان يكون عملية الانتظار حتي الفتح بشريط البروجريس بار

واريد وضع زر للالغاء البرجريس بار وانهاء االعملية

يعني ربط فتح الملف الاكسيل بالبروجريس بار للفتح علما بان الاكواد

ارجوا التعديل علي بمثال


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
الرد }}}
تم الشكر بواسطة:
#2
قم بزيادة عداد progresspar عند إنهاء عملية معينه
يعني انت كم من العمليات تتم لفتح الملف كل ما يتم إنهاء عملية يقوم بزيادته

الكود اللذي وضعته لم أفهمه

ضع مثال بسيط هنا ليتم التعديل عليه
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#3
البرنامج في المرفقات ارجو التعديل علية

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


الملفات المرفقة
.rar   progresspar.rar (الحجم : 53.73 ك ب / التحميلات : 42)
الرد }}}
تم الشكر بواسطة:
#4
البرنامج يحدث خطأ في سطر

xlWorkSheet = xlWorkBook.Sheets("sheet1")

عموما أنظر للمثال بعد إضافة الحركه

ولاكن يقصك تعديل الخطأ الذي يظهر في سطر

xlWorkSheet = xlWorkBook.Sheets("sheet1")


الملفات المرفقة
.zip   progressparEdit.zip (الحجم : 63.35 ك ب / التحميلات : 37)
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#5
المثال غير معبر يعني لايتم الدونلود الاكتمال ويفتح صفحة الاكسيل ارجو التعديل علي المثال ليشبة مثال الاستاذ عبد اللة الدويسري

واريد تحديد الحجم الملف

[ATTACH=CONFIG]2096[/ATTACH]


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#6
أرفق لي مثال سليم حتى أستطيع التجربه والمساعده

لان مثالك الأول يحدث لي خطأ أثناء التشغيل
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:
#7
اخي انا عالجت الخطا وهو في الجملة الاتية
xlApp = New Excel.ApplicationClass

المثال بعد التعديل

http://www.4shared.com/rar/oo5DoA3V/progresspar.html
الرد }}}
تم الشكر بواسطة:
#8
أخوي المثال بعد ما أشتغل معي المهم

تأكد من وضعك هذا الكود في كل مكان انا قمت بوضعه في المثال إللي طرحته لك


BackgroundWorker1.ReportProgress(15)

يجب ان يكون رقم 15إلا الأولى فهي رقمها 10حتى يكون مجموعهم جميعا 100وأريد منك إضافة هذا الكود

Application.DoEvents()

قبل

BackgroundWorker1.ReportProgress(15)

حتى يصبح الكود كامل

Application.DoEvents()
BackgroundWorker1.ReportProgress(15)

ما عدى الأولى تكون
Application.DoEvents()
BackgroundWorker1.ReportProgress(10)

جرب وعطنا النتيجه
Big Grin
<---------------------------------------------------------------->

الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 12 15,434 06-03-21, 10:39 PM
آخر رد: أبو عبدالله الحلواني
  [VB.NET] التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور ميدو الفنان 20 4,241 23-12-20, 01:54 AM
آخر رد: ميدو الفنان
  اريد عمل ريستارت للراوتر بالفيجوال لتغير اي بي الراوتر وفتح صفحة نت بعد الريستارت ahmedhhh2 0 1,028 03-06-20, 11:20 AM
آخر رد: ahmedhhh2
  [سؤال] طلب التعديل علي كود داون لود وفتح الملف ScreamVoice 5 2,187 14-10-18, 08:17 AM
آخر رد: ScreamVoice
  [سؤال] طلب التعديل علي كود داون لود وفتح الملف ScreamVoice 1 1,546 14-10-18, 08:16 AM
آخر رد: ScreamVoice
  احتاج الكود المناسب لاغلاق فورم وفتح فورم آخر Abdelazez.Ahmad 4 2,219 20-09-17, 04:00 PM
آخر رد: alsouf
  مساعدة في اغلا ق الشاشة الترحيبيه بعد دقيقة وفتح الشاشة الرئيسيه للمشروع khaled12345 2 1,912 13-06-17, 10:33 PM
آخر رد: khaled12345
  ممكن طريقه دمج وفتح ملف تنفيذي من فورم بعد الانتهاء mostafa zaki 0 2,106 10-11-12, 10:55 PM
آخر رد: mostafa zaki

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


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