Textbox ve Combobox'un yazı yazıldıkça genişlemesi.

[elvis]

Arkadaşlar! Textbox ve Comboboxların içine yazı yazıldığında, normal görünümdeyken yazılan yazı çoğaldıkça aşağıya doğru genişleyebilir mi? yazı normal uzunlukta ise genişlemeyecek.

 

[xxcell]

Güzel Bir Soru, Aşağıdaki Kodu Bir deneyiniz.

Private Sub TextBox1_Change()
    If TextBox1.Height < 16 + (TextBox1.LineCount - 1) * 10 Then
    TextBox1.Height = 16 + (TextBox1.LineCount - 1) * 10
    TextBox1.CurLine = 0
    TextBox1.CurLine = TextBox1.LineCount - 1
    End If
End Sub

Private Sub UserForm_Activate()
    TextBox1.Height = 16
End Sub

 

[elvis]

Sitede arayıp bulamayınca sormak istedim. Siz de güzel bir cevap sundunuz. Teşekkür ederim. Yardımlarınız için sağolun.

 

[xxcell]

Kodu deneyipte Allah Allah hiç bi işe yaramıyo diyen
muhalif site sakinlerine ufak bi ilave gereği duydum. :mrgreen:

Private Sub TextBox1_Change()
    If TextBox1.Height < 16 + (TextBox1.LineCount - 1) * 10 Then
    TextBox1.Height = 16 + (TextBox1.LineCount - 1) * 10
    TextBox1.CurLine = 0
    TextBox1.CurLine = TextBox1.LineCount - 1
    End If
End Sub

Private Sub UserForm_Activate()
    TextBox1.Height = 16
[COLOR="Red"]    TextBox1.MultiLine = True[/COLOR]
End Sub