چگونگی قرار گرفتن اتوماتیک نشانگر ماوس در نزدیکی یک دکمه کنترلی

در اکثر مواقع برنامه نویسی تحت ویندوز بهتر است با ظرافت خاصی انجام گیرد .یکی از نکاتی که در مقوله فرمهای محاوره ای  ظاهر شونده بر روی صفحه می تواند مورد توجه قرار گیرد؛ قرار گرفتن اتوماتیک نشانگر ماوس در نزدیکی یک دکمه کنترلی (ترجیحاً دکمه میانی) درفرم می باشد.جهت این کار کد زیر پیشنهاد می گردد که می تواند نقطه میانی فرم را محاسبه و نشانگر ماوس را بر روی آن قرار دهد:

Public Sub SnapToControl(ByVal

Control As Control)

' Snaps the cursor to the

bottom middle of the passed

control

Dim objPoint As Point =

Control.PointToScreen(New Point

(0, 0))

objPoint.X += (Control.Width / 2)

objPoint.Y += ((Control.Height / 4) * 3)

Cursor.Position = objPoint

End Sub

منبع : www.developer.com