17-01-14, 11:48 PM
20-01-14, 04:38 PM
(17-01-14, 11:48 PM)VB_Coder كتب : [ -> ]السلام عليكم
- إستخدم هذه الاداة الجميله للمبرمج الجميل رغيد الطيب , وريح راسك , قم بتسجيل الأداة أولاً .
- تحياتي .
مشكووووووور بس الاداء ما تشتغل
مع انه الاعضاء خلاص ساعدوني وقالولي كيف
مشكوور
21-01-14, 03:15 PM
اخي الكريم
قم بإن شاء مشروع جديد
وضع الادوات التالية
1- Text العدد 1
2- Command العدد 1
3- PictureBox العدد 1
4- Shape العدد 1
طبق الشرح للأخ ناجي إبراهيم في صنع اداة ProgressBar
لا تقم بأخذ الاكواد فقط خصائص Shape و PictureBox وطريقت وضعها في الفورم
الان ادخل لشاشة الاكواد وامسح كل ما هو موجود بالشاشة الاكواد وضع هذا الكود
نفذ البرنامج واعطني النتيجه
موفق اخي الكريم
قم بإن شاء مشروع جديد
وضع الادوات التالية
1- Text العدد 1
2- Command العدد 1
3- PictureBox العدد 1
4- Shape العدد 1
طبق الشرح للأخ ناجي إبراهيم في صنع اداة ProgressBar
لا تقم بأخذ الاكواد فقط خصائص Shape و PictureBox وطريقت وضعها في الفورم
الان ادخل لشاشة الاكواد وامسح كل ما هو موجود بالشاشة الاكواد وضع هذا الكود
كود :
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
Shape1.Move Picture1.ScaleWidth, Picture1.ScaleTop, 0, Picture1.ScaleHeight
End Sub
Private Sub Command1_Click()
Text1.Text = Text1.Text + "Êã "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ÇáÇäÊåÇÁ "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ãä "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ÚÑÖ "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ßÇãá "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ÇáÊÍãíá "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ÇáÐí "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ÇäÔÃÊå "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ÇáÃä "
DoEvents
Call MoveProgressBar
Sleep 1000
Text1.Text = Text1.Text + "ÈäÌÇÍ ."
DoEvents
Call MoveProgressBar
Sleep 1000
End Sub
Sub MoveProgressBar()
Dim I As Integer
For I = 1 To 10
If Shape1.Width < Picture1.ScaleWidth Then
Shape1.Width = Shape1.Width + (Picture1.ScaleWidth / 100)
Shape1.Left = 0
Shape1.Top = 0
Else
MsgBox "Êã ÇáÅäåÇÁ ÇáÚãáíÉ"
End If
Next I
End Subنفذ البرنامج واعطني النتيجه
موفق اخي الكريم