تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحريك الفورم بدون Api
#1
كاتب الموضوع : sniperser

كود بسيط ل تحريك الفورم من أي نقطة بدون دالة API

كود :
Dim X1 As Double
Dim Y1 As Double

كود :
[b][FONT=Arial][SIZE=3]Private Sub Form_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
X1 = X
Y1 = Y
End Sub[/SIZE][/FONT][/b]
[b][FONT=Arial][SIZE=3]Private Sub Form_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)[/SIZE][/FONT][/b]
[b][FONT=Arial][SIZE=3]If Button = 0 Then
X1 = X
Y1 = Y
End If[/SIZE][/FONT][/b]
[b][FONT=Arial][SIZE=3]If Button = 1 Then
Call Form1.Move(Left - (X1 - X), Top - (Y1 - Y))
End If
End Sub
[/SIZE][/FONT][/b]

تحريك زر عند السحب والإفلات

كود :
[b][FONT=Arial][SIZE=3]
Private Sub Command1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
X1 = X
Y1 = Y
End Sub
Private Sub Command1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 0 Then
X1 = X
Y1 = Y
End If
If Button = 1 Then
Call Command1.Move(Command1.Left - (X1 - X), Command1.Top - (Y1 - Y))
End If
End Sub
[/SIZE][/FONT][/b]

كود :
Dim X1 As Double
Dim Y1 As Double

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
X1 = X
Y1 = Y
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 0 Then
X1 = X
Y1 = Y
End If
If Button = 1 Then
Call Form1.Move(Left - (X1 - X), Top - (Y1 - Y))
End If
End Sub

تحريك فورم بواسطة ليبل


كود :
[/SIZE][/FONT][/b]Dim X1 As Double
Dim Y1 As Double


Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
X1 = X
Y1 = Y
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 0 Then
X1 = X
Y1 = Y
End If
If Button = 1 Then
Call Form1.Move(Left - (X1 - X), Top - (Y1 - Y))
End If
End Sub
[b][FONT=Arial][SIZE=3]
أرجو أن تعجبكم الأكواد
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنام مستودعات + مبيعات لمحل مواد بناء بدون استخدام الاكسيس abulayth 4 1,969 05-12-14, 08:52 AM
آخر رد: bakrimoh
  مؤثرات جميلة على الفورم علاء الاكرمي 1 1,584 24-11-14, 09:20 PM
آخر رد: ghada abd elnabe
  الحل الأمثل لتغيير حجم الفورم حسب دقة عرض الشاشة ENG.MPROG 9 4,631 01-08-13, 06:20 AM
آخر رد: derbaliammar
  فتج الفورم بطريقة جميله جدا ولد رائع 2 1,463 23-02-13, 09:38 PM
آخر رد: Sajad
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 817 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  كود لحصر الماوس داخل الفورم RaggiTech 0 644 17-10-12, 04:40 PM
آخر رد: RaggiTech
  كود لجعل الفورم يتحرك بشكل تدريجي RaggiTech 0 802 17-10-12, 03:44 PM
آخر رد: RaggiTech
  تكبير PictureBox + تلوين الفورم بالوان قوس قزح RaggiTech 0 875 17-10-12, 03:14 PM
آخر رد: RaggiTech
  التحكم في درجة شفافية الفورم RaggiTech 0 579 17-10-12, 02:16 PM
آخر رد: RaggiTech
  نسخ صورة الفورم إلى الحافظة RaggiTech 0 396 17-10-12, 01:11 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم