Userform Genişliğinin Label Genişliğine Göre Değişmesi

[OoParadiSeoO]

Arkadaşlar merhaba,
Userform üzerinde yer alan label, girilen veriye göre autosize true ile otomatik şekilleniyor.
Userform genişliğini label genisligi ile orantılı şekillendirmek istedim fakat başaramadım.

Private Sub UserForm_Initialize ()
Label1.Autosize = True
Label1.WordWrap = False
UserForm1.Width = Label1.Width + 24
End Sub

Yardımınız için şimdiden teşekkürler,

 

[Muzaffer Ali]

Merhaba.

Şöyle olmalı.

UserForm1.Width = Label1.Left + Label1.Width + 24

Form genişliği 103 den az olursa değişmez. Yani formun Widh = 103 den az olamaz bilgin olsun. 103 den daha az yapmak istersen diye söyledim.

 

[OoParadiSeoO]

Merhaba, ilginize teşekkür ederim fakat formun boyutu label de yazili olan metnin tamamını göstermiyor. Labele uzun bir metin girdigim zaman tamami gorulmeli, ve form orantili şekilde genişlemeli.. Teşekkürler

 

[Muzaffer Ali]

Labelin içinde yazılı olan metni ne zaman değiştiriyorsanız altına aşağıdaki kodları ekleyin.

Label1.AutoSize = True
Label1.WordWrap = False
UserForm1.Width = Label1.Left + Label1.Width + 24

 

[OoParadiSeoO]

Merhaba denedim herhangi bir değişiklik olmadi, label deki metnin tamami görünmüyor, formun boyu label metni ne olursa olsun sabit kalıyor

 

[Muzaffer Ali]

Buyurun.

OoParadiSeoO.xlsm dosyasını indir - download

OoParadiSeoO.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[OoParadiSeoO]

Teşekkür ederim desteğiniz için, bende şöyle bir sorun var imiş; label1.caption'a veri atama işlemini ikinci bir form üzerinde yapıyor idim.
Yani şöyle ki, UserForm1 üzerinde commandbutton tıklandıgında calışan kod;
Private Sub CommandButton1_Click()
UserForm2.Label1.Caption = "deneme"
UserForm2.Show
End sub

Userform2 intialize olayına;

Private Sub UserForm_Initialize()
UserForm2.Width = Label1.Left + Label1.Width + 24
End sub

cozum olarak label1.caption atamasını hücre üzerinden yapıyorum. ikinci formda yapınca düzgün çalıştıramadım. Mantığı nedir çözemedim ama farklı bir alternatif ile çözdüm amatörce

 

[Muzaffer Ali]

Sorunuzun cevabını yukarıda 4 mesajda vermiştim.
Labelin içinde yazılı olan metni ne zaman değiştiriyorsanız altına aşağıdaki kodları ekleyin.

Labelin içindeki metni ne zaman değiştiriyorsunuz "CommandButton1" e tıklayınca o zaman label metni değiştirdiğiniz kodun altına benim yazdıklarımı ekleyin dedim.

yani şöyle olacak:

Private Sub CommandButton1_Click() 
UserForm2.Label1.Caption = "deneme"
UserForm2.Label1.AutoSize = True
UserForm2.Label1.WordWrap = False
UserForm1.Width = UserForm2.Label1.Left + UserForm2.Label1.Width + 24
UserForm2.Show

End sub

 

[Haluk]

Sanırım genişliği değiştirilmek istenilen UserForm2..... O zaman, aşağıdaki kırmızı düzeltmeyi yapmak gerekiyor....

UserForm2.Width = UserForm2.Label1.Left + UserForm2.Label1.Width + 24

.

 

[OoParadiSeoO]

Desteğiniz için teşekkür ederim üstadlar eksik olmayın ..