Textboxa girilen texti otomatik tamamlama

[memoli]

Bir textboxa girilen sabit kelimeler var. Mesela "Adet" girilirken "A" veya "a" harfine basıldığında otomatik olarak Adet yazılabilir mi?

 

[Yüksel Varlı]

Çok seçenekli:

Sub raider()
Select Case LCase((Left(ActiveControl.Text, 1)))
Case Is = "p"
ActiveControl.Text = "PEKİYİ"
Case Is = "i"
ActiveControl.Text = "İYİ"
Case Is = "o"
ActiveControl.Text = "ORTA"
End Select
End Sub

Tek seçenekli:

Private Sub TextBox1_Change()
Select Case UCase((Left(TextBox1.Value, 1)))
Case Is = "A"
TextBox1.Value = "Adet"
End Select
End Sub

 

[Seyit Tiken]

Combo'yu kullanın daha elverişlidir. Sağ tırnağını görünmez yapıp Text'e benzetebilirsiniz.