تنظیم برنامه با رزولوشن کامپیوترهای مختلف

[evilboy]

سلام
می خواستم ببینم کدی هست که برنامه رو با رزولوشن های مختلف تنظیم کنه یعنی بعنوان مثال من برناممو برای 1028 * 768 تنظیم کردم. اگر یک کامپیوتر 800 * 600 بود تمام اجزای برنامه بزرگ بشه.
سرچ هم کردم چیزی پیدا نکردم
ممنون

[TheMatrix]

screen.width طول صفحه و screen.height عرض صفحه رو بهت میده.

[evilboy]

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

[MMR_1344]

دریافت رزلوشن صفحه تصویر

[evilboy]

دوست عزیز این پروژه خودتو من تغییرش دادم. اینو اجرا کن بعد رزولوشن کامپیوترت رو روی 800 * 600 تنظیم کن بعد ببین چه اتفاقی میفته
من می خوام تمام اجزاری روی فرم با رزولوشن کوچیک و بزرگ بشه

[ab_ba]

بهترین راه حل
1- برنامه تون را در 800 * 600 دیزاین کنین
2- دو متغیر ScreenWidth و ScreenHeight را بصورت Public تعریف کنید
3- اول برنامه کد زیر
ScreenWidth = Screen.Width
ScreenHeight = Screen.Height
4- تو load هر فرمی تابع زیر را صدا بزنید
Public Sub CFont()
On Error Resume Next
Dim OBJ As Object
Dim zoomw As Long
Dim zoomh As Long
zoomw = ScreenWidth / 120
zoomh = ScreenHeight / 90
Me.Width = Me.Width * zoomw / 100
Me.Height = Me.Height * zoomh / 100
For Each OBJ In Me.Controls
OBJ.Font.name = Main.fontbtext: OBJ.Font.size = OBJ.Font.size + Main.fontsizeb: OBJ.Font.Bold = Main.fontboldb
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

[MMR_1344]

دوست عزیز اون برنامه ای رو که گذاشتم تنها رزولوشن رو نشون میده و اگر هر تغییری رو بدی فرقی نمیکنه اون رزولوشن رو نمایش میده حالا با بدست آوردن این رزولوشن میتونی ابعاد صفحه کار رو برای خودت تعریف کنی در هر قسمت که بخواهی

[evilboy]

بهترین راه حل
1- برنامه تون را در 800 * 600 دیزاین کنین
2- دو متغیر ScreenWidth و ScreenHeight را بصورت Public تعریف کنید
3- اول برنامه کد زیر
ScreenWidth = Screen.Width
ScreenHeight = Screen.Height
4- تو load هر فرمی تابع زیر را صدا بزنید
Public Sub CFont()
On Error Resume Next
Dim OBJ As Object
Dim zoomw As Long
Dim zoomh As Long
zoomw = ScreenWidth / 120
zoomh = ScreenHeight / 90
Me.Width = Me.Width * zoomw / 100
Me.Height = Me.Height * zoomh / 100
For Each OBJ In Me.Controls
OBJ.Font.name = Main.fontbtext: OBJ.Font.size = OBJ.Font.size + Main.fontsizeb: OBJ.Font.Bold = Main.fontboldb
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

لطف بزرگی می کنید اگر به صورت پروژه بزارید