atf1379
یک شنبه 18 آبان 1399, 00:59 صبح
سلام
میخواهم وقتی بر روی تکست باکس فرم شماره 1 فوکوس یا کلیک میشود فرم شماره 2 بر روی کادر سبز رنگ باز شود . عنایت داشته باشین که مکان این تکست باکس متغیر است. و اینکه این فرم با توجه به موقعیت کرسر باید باز شود نه موقعیت مکانی کادر سبز رنگ
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As LongPrivate Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Text1_Click()
Dim r As RECT
GetWindowRect Text1.hwnd, r
SetCursorPos (r.Left + r.Right) \ 2, (r.Top + r.Bottom) \ 2
DoCmd.OpenForm "Form2"
Form_form2.Move ScaleX(r.Left, vbPixels, vbTwips) - Form_form2.Width, ScaleY(r.Top, vbPixels, vbTwips)
End Sub
این سوال در بخش وی بی پرسیده ام و در محیط وی بی جواب گرفتم ولی در محیط اکسس کدهای مربوطه به مشکل بر میخورد .
مشکل من بیشتر مربوط به ScaleX و Scaley است که این خصوصیتها در اکسس وجود ندارد .
لینک سوال در بخش وی بی (https://barnamenevis.org/showthread.php?560035-%D8%B1%D9%88%DB%8C%D8%AF%D8%A7%D8%AF-%D9%85%D9%88%D8%B3)
ممنون میشوم اساتید عزیز راهنمائی بفرمایند
میخواهم وقتی بر روی تکست باکس فرم شماره 1 فوکوس یا کلیک میشود فرم شماره 2 بر روی کادر سبز رنگ باز شود . عنایت داشته باشین که مکان این تکست باکس متغیر است. و اینکه این فرم با توجه به موقعیت کرسر باید باز شود نه موقعیت مکانی کادر سبز رنگ
Private Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As LongPrivate Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Text1_Click()
Dim r As RECT
GetWindowRect Text1.hwnd, r
SetCursorPos (r.Left + r.Right) \ 2, (r.Top + r.Bottom) \ 2
DoCmd.OpenForm "Form2"
Form_form2.Move ScaleX(r.Left, vbPixels, vbTwips) - Form_form2.Width, ScaleY(r.Top, vbPixels, vbTwips)
End Sub
این سوال در بخش وی بی پرسیده ام و در محیط وی بی جواب گرفتم ولی در محیط اکسس کدهای مربوطه به مشکل بر میخورد .
مشکل من بیشتر مربوط به ScaleX و Scaley است که این خصوصیتها در اکسس وجود ندارد .
لینک سوال در بخش وی بی (https://barnamenevis.org/showthread.php?560035-%D8%B1%D9%88%DB%8C%D8%AF%D8%A7%D8%AF-%D9%85%D9%88%D8%B3)
ممنون میشوم اساتید عزیز راهنمائی بفرمایند