یک سوال در مورد کوچک و بزرگ شدن برنامه

[rtech]

سلام
مانیتور من 17 اینچ هست و رزولویشن آن 768 * 1024 وقتی برنامه خود در این کامپیوتر خودم اجرا میکنم مشکلی نداره ولی وقتی به یک مانیتور 15 اینچ میبرم که رزولویشن آن 15 اینچ است برنامه از صفحه نمایش بیرون میزند
چطور میتوان تعیین کرد که اندازه برنامه به همراه تمام کنترل های آن در رزولویشن های مختلف به اندازه مناسب در بیاید
متشکرم

[meh_secure]

یک راهش اینه که شما برنامه رو در یک محیط با رزولوشن معمولی(800*600) طراحی کنید.
راه دیگه اینه که با استفاده از توابع API رزولوشن رو به همون رزولوشن موقع طراحی تغییر بدی.
یه راه دیگه هم هست که می تونی فرمتون رو در یک فرم MDI قرار بدید که اگر در صفحه جا نشد بتوان از ScrollBar برای نمایش آن استفاده کرد.
موفق باشید.

[saina2006]

می تونی اندازه ها را با screen.Width و screen.Height اندازه صفحه نمایش را بدست بیاری و فرمت را طبق اون تنظیم کنی

[ab_ba]

تابع زیررا در form load همه فرم هات بذار و البته form resize
برنامه ات را در محیط 800 در 600 design کن
این تابع فونت فرم ها را هم به نسبت بزرگتر وکنه
Public Sub CFont()
On Error Resume Next
Dim OBJ As Object
Dim zoomw As Long
Dim zoomh As Long
zoomw = Screen.Width / 120
zoomh = Screen.Height / 90
Me.Width = Me.Width * zoomw / 100
Me.Height = Me.Height * zoomh / 100
For Each OBJ In Me.Controls
OBJ.Width = OBJ.Width * zoomw / 100
OBJ.Height = OBJ.Height * zoomh / 100
OBJ.Top = OBJ.Top * zoomh / 100
OBJ.Left = OBJ.Left * zoomw / 100
OBJ.Font.size = OBJ.Font.size * zoomw / 100
Next
End Sub