PtInRect در کنترل Edit مربوط به پنجره InputBox

کار سختی نیست از منبعی که در  انتهای صفحه آمده استفاده شده که تابع ویندوزی است 

Declare PtrSafe Function PtInRect Lib "user32" (lpRect As RECT, pt As POINTAPI) As Long'

Use Belows Only

Declare PtrSafe Function PtInRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long

 _  ,  Public Function EditSubclass(ByVal hwnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr

                            ByVal lParam As LongPtr, ByVal Uid As LongPtr, ByVal dwData As LongPtr) As Long

Static r As RECT

در پیام Paint  

      DefSubclassProc hwnd, Msg, wParam, ByVal lParam

      

       GetWindowRect hwnd, r

       OffsetRect r, -r.left, -r.top

       r.left = r.right - 20

       r.right = r.right

       r.bottom = r.bottom - 0.9

       r.top = r.top + 0.9

wm-lbuttondown'

 Case WM_LBUTTONDOWN

      Dim p As POINTAPI

       Dim  nn As RECT

(p.x = CLng(lParam And 65535)  'LoWord(lParam

        (p.y = CLng(lParam \ 65535)  'HiWord(lParam

        GetClientRect hwnd, nn

        

        nn.left = r.left - 2

        nn.right = r.right + 2 

If  PtInRect(nn, p.x, p.y) Then 

    "  ... MsgBox "You Clicked Me

      End If

  .....RedrawWindow 

مورد بالا تست شده 

---

در 32 بیت 

Declare Function PtInRect Lib "user32.dll" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long

Example

مثال زیر چک میکند کرسر ماوس داخل یا خارج از پنجره ی فرم یک است 

 Determine if the mouse cursor is inside or outside 

of  window Form1

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

This is done by checking the point of the mouse

.cursor with the rectangle of the window

دریافت مختصات ماوس در صفحه

Dim mousept As POINT_TYPE ' receives mouse 

coordinate

دریافت مستطیل فرم یک 

Dim winrect As RECT ' receives rectangle of Form1

دریافت عدد یک اگر داخل مستطیل باشد و صفر اگر در آن نباشد

Dim isinside As Long ' receives 1 if inside or 0 if outside

Dim retval As Long ' return value for other functions

تعیین موقعیت کرسر ماوس

retval = GetCursorPos(mousept) ' determine the  mouse cursor's position

گرفتن مختصات بالایی سمت چپ و مختصات پایینی سمت راست مستطیل فرم یک اگر کلاین رکت استفاده شود left و topرا صفرمی دهد.

retval = GetWindowRect(Form1.hWnd, winrect) ' determine Form1's rectangle

چک می کند تا ببینیم آیا کرسر ماوس داخل مستطیل فرم یک قرار دارد.

 Check to see if the mouse cursor is located inside'

of the Form1 rectangle

(isinside = (winrect, mousept.x, mousept.y

اگر کرسر ماوس داخل آن مستطیل باشد در پنجره ی دیباک یا  Ctrl+G چاپ میکند که کرسر ماوس در حال حاضر داخل فرم ۱ است و اگر داخل آن مختصات نباشد چاپ میکند کرسر ماوس هم اکنون بیرون از فرم یک است 

If isinside = 1 Then

Debug.Print "The mouse cursor is currently inside 

".of  Form1

Else

Debug.Print "The mouse cursor is currently outside of 

".Form1

End If

---

در کل PtInRect  چک میکند Point در داخل Rectangle هست یاخیر اگر باشد جوابش عدد غیر صفر است طبق داکیونت --->> ptinrect

منبع 

ptinrect

نمایش بالن راهنما در EDIT CONTROL

EM_SHOWBALLOONTIP

displays a balloon tip associated with an edit control

Parameters

 : wParam

Not used; must be zero

lParam

این پارامتر یک نشانگر به ساختار EDITBALLONTIP ( ممبر یا عضوهای ساختار در ادامه آمده ) که حاوی اطلاعات درباره ی بالن راهنمای جهت نمایش است .

A pointer to an EDITBALLOONTIP structure that contains information about the balloon tip to display.



Type EDITBALLOONTIP
cbStruct As Long
pszTitle As String
pszText As String
ttiIcon As Integer
End Type

ttiIcon

TTI_ERROR  Use the error icon
TTI_INFOUse the information icon
TTI_NONEUse no icon
TTI_WARNINGUse the warning icon

Tooltip iconsconst
TTI_NONE = 0
TTI_INFO = 1
TTI_WARNING = 2
TTI_ERROR = 3
TTI_INFO_LARGE = 4
TTI_WARNING_LARGE = 5
TTI_ERROR_LARGE = 6

• عدم ظهور BALLOONTIP یا بالن راهنما در Subclass کردن EDIT CONTROL

Function NoBalloonWndProc(ByVal hwnd As Long,ByVal uMsg As Long,ByVal wParam As 

(Long,Byval lParam As Long

Select Case uMsg

  case EM_SHOWBALLOONTIP

     NoBalloonWndProc=FALSE

End Select 

NoBalloonWndProc=CallWindowProc(g_Edit,hwnd,uMsg,wParam,lParam

(

تنظیم نشانه ی متن در EDIT CONTROL

ارسال توسط تابع SendMessageA  : 

SendMessageA hwndEdit,EM_SETCUEBANNER,0,ByVal 

"User Name" 

ECM_FIRST =&H1500 

The following messages need Unicode strings

(EM_SETCUEBANNER=(ECM_FIRST + 1

(EM_GETCUEBANNER=(ECM_FIRST + 2

(EM_SHOWBALLOONTIP=(ECM_FIRST + 3

(EM_HIDEBALLOONTIP=(ECM_FIRST + 4

EM_SETHILITE=(ECM_FIRST+5);>=Vista, not documented

EM_GETHILITE=(ECM_FIRST+6);>=Vista, not documented

EM_SETCUEBANNER

Parameters

 : wParam

اگر این پارامتر در تابع بالا  غیرصفر باشدحتی اگر فوکس بگیرد نمایش داده میشود اگر صفر باشد زمانی که در آن ( ادیت کنترل) کلیک شود(  نشانه ی متن ) محو میشود.

TRUE if the cue banner should show even when the edit control has focus; otherwise, FALSE. FALSE is the default behavior the cue banner disappears when the 

.user clicks in the control

  : lParam

A pointer to a Unicode string that contains the text to 

.display as the textual cue

دراکسس در قسمت پراپرتی Format تکست باکس @ و بعد SemiColon و تکست موردنظر در داخل دابل کوتیشن ها