02-10-12, 02:10 AM
كاتب الموضوع : Mr|Professional
السلام عليكم
اليوم حابب اوريكم طريقة تعملوا Progress Bar
بالون يلي تريده
نحضر اداة : RectangleShape
مرتين
RectangleShape1
RectangleShape2
::::::::::::::::::::::::::::::::::::::::::::::::::
نشتغل في RectangleShape1
من الخصائص اجعل
الناتج :
::::::::::::::::::::::::::::::::::::::::::::::::::
نشتغل في RectangleShape2
من الخصائص اجعل
الناتج :
::::::::::::::::::::::::::::::::::::::::::::::::::
عن طريق الــDrag And Drop
ندخل
RectangleShape1
RectangleShape2
في بعض
الناتج :
::::::::::::::::::::::::::::::::::::::::::::::::::
اخر خطوة و هي انشاء Timer ووضع الكود التالي
مشروع تجربة في المرفقات
السلام عليكم
اليوم حابب اوريكم طريقة تعملوا 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