تبلیغات
سیستم عامل - برنامه شماره1:روش طراحی کنترل های متحرک با فرمان MOVE با به کار گیری متد های موس(همراه با سورس کامل برنامه)
 
اگر باگ های زندگی نبود-هیجکس برنامه نویس خوبی نمیشد...
سیستم عامل
صفحه نخست         تماس با مدیر         پست الکترونیک        RSS         ATOM
 
 

طراحی برنامه با قابلیت درگ کردن اشیای داخل فرم
(سورس کامل برنامه در ادامه ی مطلب)
general:
Dim oldx, oldy As Single
-----
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblred.ForeColor = vbBlack
lblblue.ForeColor = vbBlack
lblyellow.ForeColor = vbBlack
lblgreen.ForeColor = vbBlack
lblend.ForeColor = vbBlack
End Sub
-----
Private Sub lblblue_Click()
Me.BackColor = vbBlue
End Sub
-----
Private Sub lblblue_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
oldx = X: oldy = Y
End If
End Sub
-----
Private Sub lblblue_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblblue.ForeColor = vbBlue
If Button = 1 Then
lblblue.Move X + lblblue.Left - oldx, Y + lblblue.Top - oldy
End If
End Sub

-----
Private Sub lblend_Click()
End
End Sub
-----
Private Sub lblend_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
oldx = X: oldy = Y
End If
End Sub
-----
Private Sub lblend_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblend.ForeColor = vbBlue
If Button = 1 Then
lblend.Move X + lblend.Left - oldx, Y + lblend.Top - oldy
End If
End Sub
-----
Private Sub lblgreen_Click()
Me.BackColor = vbGreen
End Sub
-----
Private Sub lblgreen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
oldx = X: oldy = Y
End If
End Sub
-----
Private Sub lblgreen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblgreen.ForeColor = vbGreen
If Button = 1 Then
lblgreen.Move X + lblgreen.Left - oldx, Y + lblgreen.Top - oldy
End If
End Sub
-----
Private Sub lblred_Click()
Me.BackColor = vbRed
End Sub
-----
Private Sub lblred_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
oldx = X: oldy = Y
End If
End Sub
-----
Private Sub lblred_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblred.ForeColor = vbRed
If Button = 1 Then
lblred.Move X + lblred.Left - oldx, Y + lblred.Top - oldy
End If
End Sub
-----
Private Sub lblyellow_Click()
Me.BackColor = vbYellow
End Sub
-----
Private Sub lblyellow_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
oldx = X: oldy = Y
End If
End Sub
-----
Private Sub lblyellow_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblyellow.ForeColor = vbYellow
If Button = 1 Then
lblyellow.Move X + lblyellow.Left - oldx, Y + lblyellow.Top - oldy
End If
End Sub




نوع مطلب : همه، برنامه نویسی، 
برچسب ها : برنامه نویسی، متد ها، متد موو، Move، Move method، برنامه نویسی 2،
لینک های مرتبط :


 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر
نظرات پس از تایید نشان داده خواهند شد.


درباره وبلاگ

هک و امنیت,سیستم عامل,ویندوز,لینوکس,مکینتاش,ترفند,آموزش,کامپیوتر,رایانه,برنامه نویسی,اخبار,ای تی,

مدیر وبلاگ : EHsAN 031
نویسندگان
صفحات جانبی
نظرسنجی
کدوم؟






جستجو

آمار وبلاگ
کل بازدید :
بازدید امروز :
بازدید دیروز :
بازدید این ماه :
بازدید ماه قبل :
تعداد نویسندگان :
تعداد کل پست ها :
آخرین بازدید :
آخرین بروز رسانی :
خرید شارژ ایرانسل، خرید شارژ همراه اول و خرید شارژ تالیا