MMR_1344
سه شنبه 04 آبان 1389, 17:25 عصر
با سلام
من براي بدست آوردن مختصات صفحه برنامه در اکتیوایکس از تابع زير استفاده كرده ام
Private Type RECT
Left As Long
Right As Long
Top As Long
Button As Long
End Type
Private Declare Function GetClinetRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
و درون برنامه از شكل زير براي فراخواني آن استفاده ميكنم
Dim WinRect As RECT
GetClinetRect UserControl.hwnd, WinRect
مشكل اينجاست كه وقتي برنامه به دستور نوشته شده (دستور فوق) ميرسه بدون هيچ كاري از داخل برنامه خارج ميشه براي اينكه بدونم بعد از اجراي اين دستور مقدار برگشتي چه عددي است آن را مساوي يك متغير قراردادم ولي باز هم پس از فراخواني و خروج از اكتيوايكس مربوطه مقدار اون عدد صفر بود كه نشون ميداد كاري انجام نشده
من براي بدست آوردن مختصات صفحه برنامه در اکتیوایکس از تابع زير استفاده كرده ام
Private Type RECT
Left As Long
Right As Long
Top As Long
Button As Long
End Type
Private Declare Function GetClinetRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
و درون برنامه از شكل زير براي فراخواني آن استفاده ميكنم
Dim WinRect As RECT
GetClinetRect UserControl.hwnd, WinRect
مشكل اينجاست كه وقتي برنامه به دستور نوشته شده (دستور فوق) ميرسه بدون هيچ كاري از داخل برنامه خارج ميشه براي اينكه بدونم بعد از اجراي اين دستور مقدار برگشتي چه عددي است آن را مساوي يك متغير قراردادم ولي باز هم پس از فراخواني و خروج از اكتيوايكس مربوطه مقدار اون عدد صفر بود كه نشون ميداد كاري انجام نشده