userform.labet vertical text alignment

[alisabet]

سلام :
ضمن عرض تشکر و قدردانی از دوستانی که وقت گرانبهاشون رو صرف حل مشکلات تازه واردهای مثل من میکنند

یه سوال دارم که شرحش همان موضوع سوال است ? userform.label vertical text alignment یعنی میخواهم متن label را از جهت ارتفاع تنظیم کنم چگونه ؟

[abootorab]

سلام :
ضمن عرض تشکر و قدردانی از دوستانی که وقت گرانبهاشون رو صرف حل مشکلات تازه واردهای مثل من میکنند

یه سوال دارم که شرحش همان موضوع سوال است ? userform.label vertical text alignment یعنی میخواهم متن label را از جهت ارتفاع تنظیم کنم چگونه ؟

با درود
اگر میخواین ارتفاع و سایز متنتون افزایش بدین متونید در تنظیمات Label در مرحله طراحی از قسمت Font سایز فونت رو به اندازه دلخواه تنظیم کنید، همچنین در همین تنظیمات شما میتونید از قسمت Position موقعیت قرارگرفتن Label و همچنین سایز اون رو در یوزرفرمتون تنظیم کنید. البته در قسمت Behavior نیز میتونید AutoSize در حالت True قرار بدین که در این حالت سایز Label بر اساس متن Label بصورت خودکار تنظیم میشود.
تمام مواردی که خدمتتون عرض کردم مربوط به زمان طراحی بود ولی اگر نیاز شد در حین اجرای برنامه تغییراتی در Label بوجود بیارین میتونین با vb و دستورات مربوطه تمام کارهای بالا رو انجام دهید.

[alisabet]

متونی را که در لیبل قرار میدهم در حین اجرای برنامه تغییر میکند یعنی هم متن و طول رشته در حد همون لیبل تغیر میکند نمی خوام اندازه لیبل ها بصورت خودکار تغییر کند چون آنها را بصورت جدول منظم کرده ام و اگر تغییر کند نظم جدول بهم مبریزد میخوام که متنونی رو که بعنوان کپشن لیبل قرار میدم و در حین اجرای برنامه هم تغییر میکند همواره از جهت عمودی و افقی در حالت وسط ( center) قرار داشته باشد از نظر افقی که امکانش هست اما از جهت عمودی رو بلد نیستم

[امين اسماعيلي]

ba drod sharmande jai hastam keyboard farsi nadaram , rahe mostaghimi ta onja ke man midonam barash vojod nadare mage shoma az trick estefade koni, masalan 2 ta label dari 1 va 2 hala kode zir ro masalan vase ye bottun bezar va khodet bebin manzoret injorie.darvaghe 1 ki az label haro bezar ro on yeki match kon .belakhare inam ye rahe dige

With Label2
    .AutoSize = False
    .Height = 100
    .Width = 200
    .Caption = "This is my" & vbLf & "label text"
    .AutoSize = True
    .Top = Label1.Top + ((Label1.Height - .Height) / 2)
    .Left = Label1.Left + ((Label1.Width - .Width) / 2)
End With

[alisabet]

ba drod sharmande jai hastam keyboard farsi nadaram , rahe mostaghimi ta onja ke man midonam barash vojod nadare mage shoma az trick estefade koni, masalan 2 ta label dari 1 va 2 hala kode zir ro masalan vase ye bottun bezar va khodet bebin manzoret injorie.darvaghe 1 ki az label haro bezar ro on yeki match kon .belakhare inam ye rahe dige

With Label2
    .AutoSize = False
    .Height = 100
    .Width = 200
    .Caption = "This is my" & vbLf & "label text"
    .AutoSize = True
    .Top = Label1.Top + ((Label1.Height - .Height) / 2)
    .Left = Label1.Left + ((Label1.Width - .Width) / 2)
End With

ببینید من با چند تا label که دارای خط broder هستند یک جدول 6*10 درست کرده ام که کپشن این لیبل ها بعنوان مقادبر این جدول هستند اما مشکل اینجاست که این مقادیر در بالاترین قسمت لیبل ها جا میگیرند و من میخواهم به وسط منتقل شوند فرمول کد بالا مکان و سایز لیبل ها را را تغییر میدهد و جدول به هم میریزد

[misammisam]

ببینید من با چند تا label که دارای خط broder هستند یک جدول 6*10 درست کرده ام که کپشن این لیبل ها بعنوان مقادبر این جدول هستند اما مشکل اینجاست که این مقادیر در بالاترین قسمت لیبل ها جا میگیرند و من میخواهم به وسط منتقل شوند فرمول کد بالا مکان و سایز لیبل ها را را تغییر میدهد و جدول به هم میریزد

از خصوصیات لیبل فقط میتونی چپ چین و وسط چین و راست چین بودن رو عوض کنی ، برای وسط چین شدن TextAlign رو بزارید روی

2 - fmTextAlignCenter 

برای تعیین بالا و پایین caption فقط باید ارتفاع لیبل رو کم و زیاد کنید .