سوال: تغییر رزولوشن [بایگانی]

Masoud sharifi

جمعه 31 تیر 1390, 11:41 صبح

سلام تو ویژوال بییسک این امکان وجود داره که وقتی من برنامه رو تو سیستم خودم با رزولشن 1020*768 مینویسم تو هر سیستمی بردم اگه رزولوشن بالا بود خود برنامه اتوماتیک فرمها و تکست باکس و ..... رو با رزولوشن تنظیم کنه؟؟نه اینکه رزولوشن اون برنامه به 1024*768 تغیر کنه....؟؟؟؟:متفکر::متفکر::متف� �ر:

SlowCode

شنبه 01 مرداد 1390, 01:28 صبح

به نظر من خودتون باید دستی این کار رو بکنید، یعنی یک رابطه ای بین رزولیشن و اندازه کنترل هاتون پیدا کنید.

Masoud sharifi

شنبه 01 مرداد 1390, 13:35 عصر

یعنی به صورت اتوماتیک نمیشه؟؟؟
خود کنترل ها با رزولوشن ارتباط برقرار کنند؟؟؟

mahmood_h1358

دوشنبه 03 مرداد 1390, 11:46 صبح

بله با Winonfo.OCX می تونی رزولشن رو بگیری (دستور WinInfo.Resolution) بعد دو تا متغیر برای رزولشن افقی و عمودی تعریف می کنی .بعد هین متغیر ها رو در loadform برای طول و عرض فرم مورد نظر ست می کنی
این طوری فرم برنامه خودشو با هر رزولشن مونیتور هماهنگ می کنه
مثال :

Dim Pixsl As String
Dim Xmonitor As String
Dim YmonitorAs String
Pixsl = WinInfo1.Resolution
Xmonitor = Left(Pixsl, (InStr(1, Pixsl, "x")) - 1)
Ymonitor = Right(Pixsl, (Len(Pixsl) - (InStr(1, Pixsl, "x"))))
me.Width = Xmonitor * 15
me.Height = Ymonitor * 15

SlowCode

یک شنبه 09 مرداد 1390, 14:31 عصر

برای بدست آوردن رزولیشن نیازی به کنترل نیست با کد زیر می تونید رزولیشن را بدست آورید.
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
MsgBox x & " * " & y

farboodj1375

یک شنبه 09 مرداد 1390, 18:46 عصر

چرا وقتی تو رانتایم رزولوشن رو تغییر میدیم ویندوز به هم میریزه؟
حتما باید ریستارت کنیم؟
ممنون.

Masoudse7en

دوشنبه 10 مرداد 1390, 10:15 صبح

دوستان میشه یه ضمیمه بزارین؟؟؟؟

SlowCode

سه شنبه 11 مرداد 1390, 09:54 صبح

چرا وقتی تو رانتایم رزولوشن رو تغییر میدیم ویندوز به هم میریزه؟
حتما باید ریستارت کنیم؟
ممنون.
منظورتون رو از رانتایم نفهمییدم، میشه واضح تر بفرمائید؟