TextBox nesnesine girilince, Nesne yüksekliği uzasın..

[EKREM1661]

Saygıdeğer arkadaşlar..! Şöyle bir şey yapılabilir mi..?

UserForm üzerinde yer alan TextBox1 nesnesi içerisine tıklayınca; Height özelliğini, bağlı bulunduğu bir kod ile otomatik olarak değiştirebilirmiyiz.?

örneğin TextBox nesnesinin Height özelliği 30 olsun, imleci kutu içerisine düşürünce Height özelliği 123 olsun.. Tabii ki çıkınca tekrar eski haline dönecek..

(Neden derseniz; TextBox içerisine girilecek uzun metinlerin tamamını daha görsel olarak görebilmek için düşünmüştüm..)

 

[Huseyinkis]

Bi denermisin

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Height = 123
End Sub

 

[EKREM1661]

Sn.Huseyinkis Bey.. teşekkür ediyorum.. istediğimin birinci aşaması gerçekleşti.. Fakat nesneden çıkarken de ilk haline getirebilirsek iş tamam olacak..

 

[Levent Menteşoğlu]

Ekrem bey aşağıdaki gibi daha iyi sonuç alırsınız.

Private Sub TextBox1_Enter()
TextBox1.Height = 123
TextBox1.ZOrder 0
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Height = 25.5
End Sub

 

[EKREM1661]

Levent bey..! çok teşekkür ediyorum. dediğiniz gibi, daha iyi oldu..