پرداختن به جزئیات ریز

[ctrain 38]

سلام دوستان.

چطور در بیسیک میتونیم جزئیات رو تعریف کنیم بدون اینکه در سایزهای مختلف اندازه و نظمشون بهم نخوره؟ مثلاً یک کارد ویو تعریف کنیم و در اون یک عکس بگذاریم و عنوان ، قیمت ، امتیاز ، تعداد نظر و ... رو زیر هم با فونت کوچیک بیاریم و در دیوایس های مختلف اندازشون بهم نخوره. برام خیلی سوال شده من فقط میتونم نهایتاً عکس و عنوان و یک متن زیر عنوان رو مدیریت کنم تا منظم باشن.

تشکر فراوان

[AMiN.M7892 1,029]

از این کد استفاده کنید:

	Dim designer As desinscriptsb4a
	designer.Initialize
	Dim TextSize As Float
	TextSize = 3.5*designer.GetDevicePhysicalSize

یادتون باشه متغیر TextSize رو توی Process_Global تعریف کنید که بتونید توی همه ماژول ها ازش استفاده کنید.

و اینکه این متغیر رو بسته به هر لیبل یا متنی که استفاده میکنید(بزرگ یا کوچیک) منفی یا مثبت کنید اینجوری:

lblTitle.TextSize = TextSize

lblDesc.TextSize = TextSize-3

lblFolan.Textsize = textsize+5

موفق باشید.

[ctrain 38]

بسیار عالی ممنونم از شما