هل يمكن احد ان يشرح لنا هذه الاداة
يعني مثلا انا اريد ان يظهر لي msgbox
100 مرة وعند كل مرة يزداد عداد الprogress bar
من دروسي :
درس مبسط لفهم ال VB6.... Resource File
تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)
الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry
من برامجي :
Abo Sabreen Messenger v2.1 العملاق
--------------------------------------------------
مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ...
أخي :: أبو صابرين ::
هذا هو كود المثال الذي طلبته :
Dim I As Byte
For I = 1 To 100
If MsgBox("هذه هي الرسالة رقم " & I & " ، هل تريد المتابعة ؟", vbQuestion + vbYesNo) = vbNo Then Exit For
ProgressBar1.Value = I
Nextوالسلام عليكم ورحمة الله وبركاته ...
سبحان الله وبحمده ... سبحان الله العظيم
شكرا لك اخي المبرمج احمد
ولكن يجب تغيير الخصائص التالية للprogress bar
ProgressBar1.Value = 0
progressbar1.max = 100
وذلك حتى تبدو العملية منطقية
ولكن شكرا لك فانت اعطيتني طرف الخيط
من دروسي :
درس مبسط لفهم ال VB6.... Resource File
تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)
الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry
من برامجي :
Abo Sabreen Messenger v2.1 العملاق
--------------------------------------------------
مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ...
أخي العزيز :: أبو صابرين ::
يبدو أنك تقصد تعيين Min و Max :
ProgressBar1.Min = 0 ProgressBar1.Max = 100
أخبرني ما الذي تريد معرفته عن هذه الأداة
والسلام عليكم ورحمة الله وبركاته ...
سبحان الله وبحمده ... سبحان الله العظيم
هذا الموضوع مغلق.
المتواجدون خلال آخر ساعة · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…