x,y ماوس در screen

["juggle"]

چجوری میتونم فرم را بادستور moveروی screen جابجا کنم؟

یعنی آیا screen دارای x , y هست؟

[محسن واژدی]

سلام
خود vb کلاسی با عنوان Screen دارد که بسیاری از ویژگی ها نظیر فونت ، فرم ها و ... را شامل میشود که خصوصیت پهنا و ارتفاع نیز جزئی از این ویژگی هاست
نمونه زیر چگونگی حرکت دادن یک فرم را حول محور Screen نشان میدهد

موفق باشید
یاعلی

["juggle"]

من منظورم اینه که :
بتونم خود فرم را با down کردن ماوس بهمراه حرکت آن فرم را به اون نقطه رها شدن ماوس ببرم(البته درصورتی کهborder style فرم برابر صفر باشد)

[knight-rak]

چرا این تاپیک دوجا هستش ؟؟؟؟
یکی اینو یا ادغام کنه یا یکیش رو حذف کنه
اگر جابجایی فرم که خودش خاصیت drag & drop نداره
میشه از left و top استفاده کرد به صورت زیر ( ولی ظاهر خوشی نداره )
تو رویداد mouse move بنویسید :

If Button = 1 Then

Me.Left = X

Me.Top = Y

End If

یا اینکه خود فرم رو با دستوراتی که فرم رو نامرئی ( transparent ) میکرد فرم رو پنهان کنیم و یه شی رو روی اون با درگ کردن جابجا کنیم
البته مطمئنا راه های درست و منطقی تری وجود داره ( ولی من بی خبرم )

موفق باشید ....

[محسن واژدی]

سلام علیکم
برای حرکت دادن یک فرم بدون border با کلیک کردن موس

موفق باشید
یاعلی

["juggle"]

شرمنده
در اصل میخوام هر وقت ماوس روی فرم بدون border قرار گرفت رنگ قرمز عوض شه و وقتی از روی فرم عبور کرد ودر جایی دیگر از screen قرار گرفت رنگش به خالت اول برگرده؟

[محسن واژدی]

شرمنده
در اصل میخوام هر وقت ماوس روی فرم بدون border قرار گرفت رنگ قرمز عوض شه و وقتی از روی فرم عبور کرد ودر جایی دیگر از screen قرار گرفت رنگش به خالت اول برگرده؟

سلام
این یک سوال جدید است و بهتر بود در یک تاپیک جدید نیز مطرح مینمودید
از توابع Capture استفاده میشود، طبق نمونه زیر

موفق باشید
یاعلی

["juggle"]

میخوام دوباره برگرده

این دوباره بر نمیگرده

یعنی وقتی از روی فرم عبور کرد وبه جای دیگر دسکتاپ رفت دوباره رنگش سفید شه؟

["juggle"]

این x , y که شما مقایسه میکنید x ,y فرمه و 0,0 اون از اول فرم شروع میشه

من x,y دسکتاپ رو میخوام

[محسن واژدی]

این x , y که شما مقایسه میکنید x ,y فرمه و 0,0 اون از اول فرم شروع میشه

من x,y دسکتاپ رو میخوام

برای اینکار باید از توابع GetWindwPosition و GetMoustPosition استفاده کنید

موفق باشید

["juggle"]

میشه راهنماییم کنید؟

[محسن واژدی]

سلام
مجددا" سورس قبل را ویرایش کردم اما اینبار دو تابعی عرض شده به آن اضافه شده، اینگونه مشکل برطرف میشود

موفق باشید
یاعلی

[setroyd]

Option Explicit

Dim OldX As Integer, OldY As Integer
Dim blnMove As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
blnMove = True
OldX = X
OldY = Y
Me.BackColor = vbRed
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If blnMove = True Then
Me.Left = Me.Left + (X - OldX)
Me.Top = Me.Top + (Y - OldY)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Left = Me.Left + (X - OldX)
Me.Top = Me.Top + (Y - OldY)
Me.BackColor = vbWhite
blnMove = False
End Sub

faghat border styleto khodet tanzim kon tashakoram beghole bachaha yadet nare