الملكه الدلوعه
22-04-05 ||, 07:30 PM
السلام عليكم ورحمة الله وبركاته
شخباركم .؟!!
المهمــ ...
ابغي مساعده من اللي عندهم خبرات او معلومات عن الفيجوال بيسك ..
انا مسويه مشروع للمدرسع عن الرسام ... وهذا كود المشروع ..
بس شي واحد لعوزني في المشروع .. كلمه وحده انا عارفه معناتها وفايدتها بس الابله قالت لي صح بس هاتي معناتها وفايدتها ؟!! يعني اشرحيلي اياها بطريقه ثانيه ..
وانا ابغيكم تساعدوني وتقولون لي معناتها او فايدتها ..او تشرحون الكود كله ..
انا فاهمه الكود وكل شي لو مب فاهمتنه عيل كيف بسويه بس هالابله ما ادري شو فيها ...
وهذا الكود ..
Private Sub Form_Load()
DrawWidth = 6
End Sub
Private Sub form_MouseDown(button As Integer, shift As Integer, X As Single, Y As Single)
PAINTING = True
End Sub
Private Sub form_Mousemove(button As Integer, shift As Integer, X As Single, Y As Single)
If PAINTING And button = 1 Then
PSet (X, Y), vbBlue
ElseIf PAINTING And button = 2 Then
PSet (X, Y), BackColor
End If
End Sub
Private Sub form_MouseUp(button As Integer, shift As Integer, X As Single, Y As Single)
PAINTING = False
End Sub
ابغيكم تقولون لي فايدة او مهمتة هالكلمه الملونه
والسموحه
انتظر الرد
شخباركم .؟!!
المهمــ ...
ابغي مساعده من اللي عندهم خبرات او معلومات عن الفيجوال بيسك ..
انا مسويه مشروع للمدرسع عن الرسام ... وهذا كود المشروع ..
بس شي واحد لعوزني في المشروع .. كلمه وحده انا عارفه معناتها وفايدتها بس الابله قالت لي صح بس هاتي معناتها وفايدتها ؟!! يعني اشرحيلي اياها بطريقه ثانيه ..
وانا ابغيكم تساعدوني وتقولون لي معناتها او فايدتها ..او تشرحون الكود كله ..
انا فاهمه الكود وكل شي لو مب فاهمتنه عيل كيف بسويه بس هالابله ما ادري شو فيها ...
وهذا الكود ..
Private Sub Form_Load()
DrawWidth = 6
End Sub
Private Sub form_MouseDown(button As Integer, shift As Integer, X As Single, Y As Single)
PAINTING = True
End Sub
Private Sub form_Mousemove(button As Integer, shift As Integer, X As Single, Y As Single)
If PAINTING And button = 1 Then
PSet (X, Y), vbBlue
ElseIf PAINTING And button = 2 Then
PSet (X, Y), BackColor
End If
End Sub
Private Sub form_MouseUp(button As Integer, shift As Integer, X As Single, Y As Single)
PAINTING = False
End Sub
ابغيكم تقولون لي فايدة او مهمتة هالكلمه الملونه
والسموحه
انتظر الرد