محاسبه ي طول و عرض فرم بر حسب پيكسل

فرض كنيد توي دو تا تكست باكس كاربر ميتونه اندازه ي طول و عرض فرم رو وارد كنه ولي در حالت عادي انگار روي Twip حساب ميكنه. وقتي ميزنم 800 * 600 اندازش خيلي كوچولو ميشه :20:
ScaleMode رو روي Pixel ميزارم ولي بازم فرقي نميكنه.
چي كار كنم ؟

خواهش ميكنم يكي جواب بده.
پروژه ي من به خاطر اين مشكل عجيب غريب رو هواس.

باید عدد رو که از کاربر میگیری در
15.118110236 ضرب کنی
می تونی تعداد اعشار رو کمتر کنی

مثلا فرضا ما دو تا تکس داریم به نام a و b که
a = عرض
b = طول
این کد رو بر روی یک کلید می نویسیم:

کد:

---

Me.Width = CInt(Val(a) * 15.1181102362205)
Me.Height = CInt(Val(b) * 15.1181102362205)

---

مشكلم حل شد، ولي نه با چيزي كه شما گفتي !!‌
البته معذرت ميخوام كه فحش ميدم، ولي يه تابع تو ويژوال بود كه دقيقا كاري كه من ميخواستم ميكرد و اندازه رو به پيكسل تبديل ميكرد. حالا اگه نميدوني ميخواي برات بنويسم.

بنویس دیگه پرسیدن نداره که :27:

سلام
اول بنویس دوما عزیز دلم حالا اگه این حرف رو نمی گفتی اشکالی داشت بعدش هم می گفتی یک راه دیگر است که استفاده از یه تابع است اینطوری بهتر نیست جواب کسانی که کمکت می کنند را بدهی تا در مشکل بعدی تو را بتوانند حل کنند؟
خواهشا در نوشتن مطالب خود دقت کن

کد:

---

mainpage.canvas.Width = ScaleX(canvaswidth.Text, vbPixels, vbTwips)
mainpage.canvas.Height = ScaleY(canvasheight.Text, vbPixels, vbTwips)

---