جابجایی فرم

[sari-1369]

باور کن خیلی سرچ کردم . ولی هیچی پیدا نکردم .
===============================

سلام دوستان . فرمی که none = formborderstyle باشه . چطوری میشه با mouse حرکت داد ؟؟


پیشاپیش ممنون

[samispeed]

Dim x, y As Integer
Private Sub LoginForm_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
x = e.X
y = e.Y
End Sub
Private Sub LoginForm_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Left = Windows.Forms.Cursor.Position.X - x
Me.Top = Windows.Forms.Cursor.Position.Y - y
End If
End Sub

[sari-1369]

ممنون دوست عزیز . ( برای حرکت فرم)


یه سوال دیگه:
میشه وسط صفحه نمایشو گرفت ؟؟ می دونی می خوام چیکار کنم . می خوام وقتی برنامه اجرا شد فرم بره وسط صفحه نمایش.

[masoud.t123]

Me.StartPosition = FormStartPosition.CenterScreen
این کد فرم را به وسط صفحه نمایش می بره

[sari-1369]

مرسی .

=========
یه سوال از مدیران . چرا یه تایپیک جامع واسه پرسشهای اعضا قرار نمیدین ؟ ( البته پرسشهایی که جواب های کوتاه دارن ) مثل سوال های من .