ComboBox'ta otomatik tamamlama

B

bykzlu-x

Üye
9 Ocak 2008
190
5
İşte size basit ama çok kullanışlı bir kod... ComboBox ’ta otomatik tamamlama.....Yapmanız gereken tek şey forma Combo1 adında bir ComboBox ve Command1 adında Command button eklemek ve aşağıdaki kodu yapıştırmak
Option Explicit
Dim X As Boolean

Private Sub Command1_Click()
If Combo1.Text <> "" Then Combo1.AddItem Combo1.Text
End Sub
Private Sub Form_Load()Combo1.Text = "Lütfen Bulunduğunuz İli Yazın"
Command1.Caption=”Ekle”
With Combo1
.AddItem "TurkHackTeam"
.AddItem "Hacker"
.AddItem "Lamer"
.AddItem "bykzlu-x"
.AddItem "İstanbul"
.AddItem "türkiye"
.AddItem "dünya"
.AddItem "yazacak diğer bişiler işte"
End With
End Sub
Private Sub combo1_KeyDown(basim As Integer, Shift As Integer)
If basim = vbKeyBack Or basim = vbKeyDelete Then
If Combo1.Text <> "" Then
X = True
End If
End If
End Sub
Private Sub combo1_Change()
Dim i As Long
Dim nSel As Long
If X = True Or Combo1.Text = "" Then
X = False
Exit If
For i = 0 To Combo1.ListCount - 1
If InStr(1, Combo1.List(i), Combo1.Text, _
vbTextCompare) = 1 Then
nSel = Combo1.SelStart
Combo1.Text = Combo1.List(i)
Combo1.SelStart = nSel
Combo1.SelLength = Len(Combo1.Text) - nSel
Exit For
End If
Next
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.