تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اعمل Progress Bar باللون الذي تريده بسهولة
#1
كاتب الموضوع : Mr|Professional



السلام عليكم

اليوم حابب اوريكم طريقة تعملوا Progress Bar
بالون يلي تريده

نحضر اداة : RectangleShape



مرتين
RectangleShape1
RectangleShape2

::::::::::::::::::::::::::::::::::::::::::::::::::

نشتغل في RectangleShape1
من الخصائص اجعل


كود :
[color=green]BackColor [/color]= [color=gray]White[/color]
[color=blue]BackStyle [/color]= [color=black]Opaqua[/color]
[color=red]Size [/color]= 425, [b][color=magenta]30[/color][/b]
الناتج :



::::::::::::::::::::::::::::::::::::::::::::::::::

نشتغل في RectangleShape2
من الخصائص اجعل


كود :
[color=green]BackColor [/color]= [color=red]Red[/color]
او اللون يلي تريده
[color=blue]BackStyle [/color]= [COLOR=black]Opaqua
[color=darkorange]BorderStyle [/color]= Custom
[/COLOR][color=red]Size [/color]= 5, [color=magenta][b]29[/b][/color][b][COLOR=magenta]
[/COLOR][/b]
الناتج :



::::::::::::::::::::::::::::::::::::::::::::::::::

عن طريق الــDrag And Drop
ندخل
RectangleShape1
RectangleShape2
في بعض

الناتج :





::::::::::::::::::::::::::::::::::::::::::::::::::

اخر خطوة و هي انشاء Timer ووضع الكود التالي


كود :
If [color=green]RectangleShape2[/color].Size.Width = [color=red]RectangleShape1[/color].Size.Width Then
[color=green]RectangleShape2[/color].Size = New Point([color=green]RectangleShape2[/color].Size.Width - 1, [color=green]RectangleShape2[/color].Size.Height)

Timer1.Enabled = False

[color=red]MsgBox[/color]("Done for VB4ARAB", [color=red]MsgBoxStyle[/color].Information, "Mr|Professional")
Else
[color=green]RectangleShape2[/color].Size = New Point([color=green]RectangleShape2[/color].Size.Width + 7, [color=green]RectangleShape2[/color].Size.Height)
End If
مشروع تجربة في المرفقات




الملفات المرفقة
.rar   VB4arab ProgressBar.rar (الحجم : 104.23 ك ب / التحميلات : 94)
}}}
تم الشكر بواسطة: asemshahen5
#2
المزيد من الجمال للأداة :] وهي عن طريق عدم جعلها مستطيل
سوف نضيف اطراف دائرية



مستني المزيد من الردود انشاء الله


الملفات المرفقة
.rar   VB4arab ProgressBar.rar (الحجم : 102.76 ك ب / التحميلات : 73)
}}}
تم الشكر بواسطة: asemshahen5
#3
كاتب المشاركة : memoelgm

ممتاز لكن انا عندى كود ابسك بكتيير من الكود بتاعك ^_^


كود :
[color=#000000][COLOR=#0000bb] [/color][color=#007700]If [/color][color=#0000bb]RectangleShape1[/color][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]- [/color][color=#0000bb]1 [/color][color=#007700]< [/color][color=#0000bb]RectangleShape2[/color][color=#007700].[/color][COLOR=#0000bb]Width Then

              هنا الحدث المراد تنفيذه عند اكتمال البروجرس
            [/COLOR][color=#007700]Exit [/color][COLOR=#0000bb]Sub
        [/COLOR][COLOR=#007700]Else
            [/COLOR][color=#0000bb]RectangleShape2[/color][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]= [/color][color=#0000bb]RectangleShape2[/color][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]+ [/color][COLOR=#0000bb]1
        End [/COLOR][COLOR=#007700]If  
[/COLOR][color=#0000bb][/color][/COLOR]
}}}
تم الشكر بواسطة: asemshahen5
#4
كاتب المشاركة : ahmed_taha

موضوع جميل
هذه اضافة بسيطة لجعل شريط التحميل مزدوج الالوان



الملفات المرفقة
.rar   VB4arab ProgressBar.rar (الحجم : 214.49 ك ب / التحميلات : 87)
}}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  لفهم كيفية الربط الذي يتم بين الجداول viv 4 4,991 03-10-20, 05:34 PM
آخر رد: Arfat007
  [VB.NET] Progress الدائرية 3booody 1 2,463 29-10-19, 07:22 PM
آخر رد: asemshahen5
  Progress Dot silverlight 6 2,947 26-07-18, 12:14 PM
آخر رد: معاذ العامري
  جديد 2010- اكتب الكود الذي سيستخدم فئتك ثم قم بإنشائها RaggiTech 0 2,253 03-10-12, 12:27 PM
آخر رد: RaggiTech
  تفعيل خاصية RequireAdministrator لبرنامجك للتحكم بملفات الويندوز بسهولة في ويندوز 7 RaggiTech 0 2,067 03-10-12, 10:47 AM
آخر رد: RaggiTech
  [VB.NET] Progress جديدة 0 1,045 منذ اقل من1 دقيقه مضت
آخر رد:

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


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