Soru textbox'a tıklandığında listbox büyüsün

[GursoyC]

Ekli örnekte de açıkladığım üzere;

içeriğine bir yazı girmek üzere sayfadaki textbox'a tıklandığında, aynı sayfada yer alan bir listbox'un 125 olan width değerinin 250 olması için nasıl bir kod yazılması gerekiyor, yardımcı olur musunuz?

Saygılarımla,

 

[turist]

VBA editorde Sayfa1 deki Sayfa kodu bölümüne:

Private Sub TextBox1_Change()
ListBox1.Width = 125
If TextBox1 <> "" Then
With ListBox1
.Width = 250

End With
End If

End Sub

Private Sub TextBox1_GotFocus()
ListBox1.Width = 125
If TextBox1 <> "" Then
With ListBox1
.Width = 250

End With
End If
End Sub

Private Sub TextBox1_LostFocus()
ListBox1.Width = 125
End Sub

yazıp deneyin.

 

[GursoyC]

Sayın Turist,
gayet güzel çalışıyor.
Teşekkür ederim. Saygılar.