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

evilboy

شنبه 03 شهریور 1386, 13:04 عصر

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

TheMatrix

شنبه 03 شهریور 1386, 16:50 عصر

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

evilboy

شنبه 03 شهریور 1386, 17:44 عصر

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

MMR_1344

شنبه 03 شهریور 1386, 17:54 عصر

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

evilboy

شنبه 03 شهریور 1386, 19:37 عصر

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

ab_ba

شنبه 03 شهریور 1386, 20:15 عصر

بهترین راه حل
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

یک شنبه 04 شهریور 1386, 07:29 صبح

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

evilboy

یک شنبه 04 شهریور 1386, 09:08 صبح

بهترین راه حل
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
لطف بزرگی می کنید اگر به صورت پروژه بزارید