اعمل Progress Bar باللون الذي تريده بسهولة

كاتب الموضوع : 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

مشروع تجربة في المرفقات

كود :

[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]