PDA

View Full Version : سوال: اشکال در ماکسمایز شدن فرم در wide lcd



jack007
شنبه 24 مهر 1389, 10:13 صبح
سلا دوستان
من بانک اطلاعاتیم رو ابتدا exe کردم بعد روی سیستم های مختلف نصب کردم مشکل زیر رو دارم
--- روی بعضی از سیستم ها که مانیتور wide دارند و ویندوز 7 ، فرم ها بصورت کامل باز نمی شوند ولی روی سیستم های دیگه با مانیتور wide که ویندوز xp هست مشکلیوجود نداره علت و راه حل اون چیه ؟:متعجب:
پیشا پیش از همه سپاسگذارم

bita_ziba77
یک شنبه 25 مهر 1389, 07:59 صبح
سلا دوستان
من بانک اطلاعاتیم رو ابتدا exe کردم بعد روی سیستم های مختلف نصب کردم مشکل زیر رو دارم
--- روی بعضی از سیستم ها که مانیتور wide دارند و ویندوز 7 ، فرم ها بصورت کامل باز نمی شوند ولی روی سیستم های دیگه با مانیتور wide که ویندوز xp هست مشکلیوجود نداره علت و راه حل اون چیه ؟:متعجب:
پیشا پیش از همه سپاسگذارم

با سلام
شما در حالت Design و از بخش format خصيصه هاي Auto resize و Fit to screen را Yes نماييد.

با تشكر

jack007
یک شنبه 25 مهر 1389, 09:34 صبح
باتشکر و سپاس فراوان از شما دوست عزیز که واقعا تو این سایت خیلی فعال هستید
در خصوص فرمایش شما این رو رو قبلا انجام دادم و لی نتیجه نگرفتم و مشکل همچنان پا بر جاست
آیا امکان داره مربوط به picture type mode باشه؟

bita_ziba77
یک شنبه 25 مهر 1389, 12:00 عصر
با سلام
فكر كنم كد زير راه حل باشد:

syntax:

Function glrResizeForm (frm As Form, fDoResize As Variant)

frm: form to resized
fDoResize: boolean value indicating if the form should be resized or
the information tracked

Example:

Sub Form_Resize ()
Dim RetVal
RetVal = glrResizeForm(Me, True)
End Sub


با تشكر

bita_ziba77
یک شنبه 25 مهر 1389, 12:03 عصر
با سلام
همچنين كد زير جهت تعيين Resaolution فرم در هنگام باز شدن:

Syntax:

Function glrScaleForm (frm As Form, intX As Integer, intY As Integer)

frm: form to be scaled
intX: horizontal resolution at which the form was designed
intY: vertical resolution at which the form was designed

Example:

Sub Form_Open (Cancel As Integer)
Dim RetVal
RetVal = glrScaleForm(Me, 1024, 768)
End Sub
با تشكر

jack007
یک شنبه 25 مهر 1389, 12:37 عصر
با سپاس فراوان از دوست عزیز
راه حل دومی شما RESOLATION مشکلم رو حل کرد :تشویق:

nazihosseinioun
جمعه 08 مهر 1390, 11:29 صبح
با سپاس فراوان از دوست عزیز
راه حل دومی شما RESOLATION مشکلم رو حل کرد :تشویق:

ميشه لطفا بگين چطوري از اين 2 تابع استفاده كردين؟

ARData
شنبه 09 مهر 1390, 08:28 صبح
تابع glrScaleForm که تعريف نشده چطوري ازش استفاده کردين ... اين تابع ويژال بيسيکه ؟
اين چيه :
frm: form to be scaled
intX: horizontal resolution at which the form was designed
intY: vertical resolution at which the form was designed

Example: