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

yavari

چهارشنبه 06 اردیبهشت 1385, 20:48 عصر

سلام

میخوام برنامم تو هر رزولوشنی ، ریخت ثابتی داشته باشه !!!
نگید سرچ کنم که کردم ولی یه چیز کلی پیدا نکردم :گریه: :گریه: :گریه:

ممنون میشم راهنمائیم کنید

mahdi_farhani

چهارشنبه 06 اردیبهشت 1385, 23:50 عصر

یاوری جان ریخت قابت یعنی چی ....
یعنی اینکه اندازه فرمت با رزلوشن تغییر کنه و تمام اشیاء روی آن تغییر مکان بدن و مرتب باشن.
یا اینکه اصلا فرمت دستنخورده باقی بمونه

yavari

پنج شنبه 07 اردیبهشت 1385, 20:46 عصر

سلام دوست عزیز

منظورم اینه : "تغییر نکردن ظاهر فرمها در رزولوشن های متفاوت "

یعنی اینکه اندازه فرمت با رزلوشن تغییر کنه و تمام اشیاء روی آن تغییر مکان بدن و مرتب باشن.

ممنون از توجه تون

fixer2006

جمعه 08 اردیبهشت 1385, 13:56 عصر

سلام
فکر میکنم منظور این دوستمون خاصیت Anchor هست. من هم تو VB 6.0 به این مشکل برخورد کرده بودم. ببخشید الان حضور ذهن ندارم. بذارید تو برنامه هام نگاه کنم، چیزی پیدا کردم میذارم اینجا.

Fixer

mohsengrisly

جمعه 08 اردیبهشت 1385, 20:02 عصر

فقط کافیه که محل تمامی اجزا را با اسکرین ست کنی
نه با فرم همین
قبلا هم برای این مسئله چند تا مثال گذاشتم .فکر می کنم خودتون بگردید زود تر پیدا میشه تا من بخوام هارد سیستم رو بگردم .
البته منم یه چرخی میزنم اگر پیداش کردم میذارم
شما هم پیدا نکردی خبر بده دوباره یه مثال بنویسم دوست خوبم

yavari

جمعه 08 اردیبهشت 1385, 20:09 عصر

سلامFixer جان

من اینا سرم نمیشه و نمی دونم این Anchor چیه !!!
فقط عجله دارم ، ممنون میشم راهنمائیم کنید
:گریه: :گریه: :گریه: :گریه: :گریه: :گریه: :گریه:

yavari

جمعه 08 اردیبهشت 1385, 20:57 عصر

سلام آقا محسن

ببین دوست من ، چیزی که من تو سرچهام پیدا کردم ، یه چیز کلی نیست و برا رزولوشن خاصی جواب میده
خودمم نوشتم اما چیز جالبی در نیومده :اشتباه:
خوشحال میشم کد شما رو هم ببینم :تشویق: :تشویق: :تشویق:
ممنون

mohsengrisly

جمعه 08 اردیبهشت 1385, 21:48 عصر

سلام آقا محسن
خوشحال میشم کد شما رو هم ببینم ممنون
عرض کردم نمونه رو برای یکی از دوستان توی همین سایت قرار دادم
مگه پیداش نکردید .؟
برای همه رزولیشن ها هم درست کار می کرد ؟

fixer2006

جمعه 08 اردیبهشت 1385, 23:44 عصر

من با Screen ست کرده بودم ولی جواب نداد. در رزولوشنهای مختلف متفاوت بود.

o0_Amin_0o

شنبه 09 اردیبهشت 1385, 07:02 صبح

اگه منظورتونو درست متوجه شده باشم
با این کد کارتون حله:چشمک:
بزارینش توی فرم لود

Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2

موفق باشین:چشمک:

yavari

شنبه 09 اردیبهشت 1385, 19:12 عصر

سلام

آقا محسن
پیدا نکردم، میشه یه دفعه دیگه بذارید :تشویق:
ممنونم میشم

yavari

یک شنبه 10 اردیبهشت 1385, 13:39 عصر

:گریه: :گریه: :گریه: :گریه: :گریه: :گریه: :گریه: :گریه: :گریه: :گریه:

mohsengrisly

یک شنبه 10 اردیبهشت 1385, 16:44 عصر

چشم
چشم
چشم
یکمی مشغولیات بیدم دوباره.صبوری پیشه کن عزیز. اخه خودم هم توی سیستمم پیدا نکردم .سرچ هم زدم نبودش دیگه
گویا از سایت هم توی همون تغییرات گذشته پریده .باید دوباره بنویسم :گریه:

yavari

یک شنبه 10 اردیبهشت 1385, 19:32 عصر

سلام آقا محسن

ببین آقا محسن ، من کارم عجله ای بود و کدمو نوشتم دیگه
ولی دوست دارم کد شما رو هم ببینم
ممنون

H_SH_VB

یک شنبه 10 اردیبهشت 1385, 20:30 عصر

خوب شما که کدتونو نوشتین بزارین ببینیم دیگه

mohsengrisly

یک شنبه 10 اردیبهشت 1385, 22:48 عصر

[QUOTE=H_SH_VB]خوب شما که کدتونو نوشتین بزارین ببینیم دیگه[/QUOT
اینم حرف خوبیه
بنده هم چشم .در اولین فرصت ممکن می نویسم دوباره
و مشتاقم نمونه شما رو هم ببینم

yavari

سه شنبه 12 اردیبهشت 1385, 21:09 عصر

سلام
این حالت کلی راهیه که رفتم ، البته مجبور شدم چند جاشو دستی جلو برم

Public Sub ChangeResulationForm(ByVal VarFrm As Form)
On Error Resume Next
Dim OBJ As Object
Dim zoomw As Long
Dim zoomh As Long
zoomw = Screen.Width / 120
zoomh = Screen.Height / 90
VarFrm.Width = VarFrm.Width * zoomw / 100
VarFrm.Height = VarFrm.Height * zoomh / 100
For Each OBJ In VarFrm.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

میدونم ، راه جالبی نیست ، منتظرم شما هم کداتونو تو این زمینه بذارید
آقا محسن ، چی شد ؟

با تشکر

mohsengrisly

سه شنبه 12 اردیبهشت 1385, 21:43 عصر

سلام
آقا محسن ، چی شد ؟
با تشکر

یاوری جان خیلی شرمنده چشم
جان خودم فقط وقت می کنم یه سری بزنم ببینم اینجا چه خبره .همین
به روی چشم در اولین فرصت ممکن دوباره می نویسم
خطاب به کسی که قبلا این برنامه رو خواسته بود و من نوشتم براش یادم هم نیست کی بود
بابا یه نسخه از برنامه خودمونو بده به خودمون !!! جان من !

Payman62

سه شنبه 12 اردیبهشت 1385, 23:13 عصر

خطاب به کسی که قبلا این برنامه رو خواسته بود و من نوشتم براش یادم هم نیست کی بود بابا یه نسخه از برنامه خودمونو بده به خودمون !!! جان من !
((= چه باحال.

yavari

چهارشنبه 13 اردیبهشت 1385, 15:31 عصر

سلام

دشمنت شرمنده باشه ، آقا محسن
اشکالی نداره ، دل صبر بنویس ! مشتاقانه منتظر می مونیم :تشویق: :تشویق:
با آقا پیمانم موافقم ، خیلی باحالی !!! :قهقهه:

دوستان ناظر! لطف کنید تا آقا محسن گلمون کداشونو می نویسن ، شما هم راه حلهای خودتونو بگید تا به یه راه حل کلی برسیم
مشتاقانه می شنویم و استفاده می کنیم
fixer جان ، شما چی شد ، آخر ما نفهمیدیم این Anchor چی بود !

با تشکر از همه

fixer2006

پنج شنبه 14 اردیبهشت 1385, 06:39 صبح

سلام جناب آقای یاوری

من تو VB کدی پیدا نکردم. ولی تو NET. یه خاصیتی به نام Anchor بیشتر Object ها دارن که به صورت اتوماتیک این کار رو انجام میدن. تو دلفی از قدیم این خاصیت Anchor بوده ولی فقط در زبانهای NET. هست.

yavari

پنج شنبه 14 اردیبهشت 1385, 08:00 صبح

سلام

ممنون fixer2006 جان
افتاد الان !!!

yavari

شنبه 16 اردیبهشت 1385, 20:04 عصر

سلام

آقا محسن ، ماشاالله اینقدر پست هست که دیر بجنبی فکر کنم سرچ هم بکنی تاپیکو پیدا نکنی !!! :بامزه:

از دوستان کسی راه حلی تو این مورد نداره ؟؟؟ :متفکر:

oVERfLOW

یک شنبه 12 شهریور 1385, 10:03 صبح

اگه توی ویندوز نگاه کنید برنامه‌هایی که حساس به اندازه نیستن اکثر اشیاء داخل پنجره اندازه‌شون تغییر نمی‌کنه
بلکه با تغییر اندازه‌ی پنجره محلشون عوض می‌شه
و برای پر کردن فضای باقی‌مونده از یک یا دو شیء با قابلیت تغییر اندازه استفاده می‌شه
مثل ListView یا TextBox
با اون کدی که دوستمون نوشتن تمام اجزا بزرگ و کوچیک می‌شن که اصلا قابل قبول نیست
شما دستی باید برنامه بنویسید.

yavari

یک شنبه 12 شهریور 1385, 10:54 صبح

سلام

ولی من همچین چیزی مورد نظرم نبود .
همونی که نوشتم کارمو راه انداخت !!!

ممنون