AllBasic
ComboBox İçerisinde Otomatik Seçim Yapmak
ComboBox İçerisinde Otomatik Seçim Yapmak(General)(Declaration)
Dim arama As Boolean
Private Sub Form_Load()
Combo1.Text = "Şehir"
With Combo1
.AddItem "Ankara"
.AddItem "İstanbul"
.AddItem "İzmir"
End With
End Sub
Private Sub combo1_KeyDown(test As Integer, Shift As Integer)
If test = vbKeyBack Or test = vbKeyDelete Then
If Combo1.Text <> "" Then
arama = True
End If
End If
End Sub
Private Sub combo1_Change()
Dim i As Long
Dim Sec As Long
If arama = True Or Combo1.Text = "" Then
X = False
End If
For i = 0 To Combo1.ListCount - 1
If InStr(1, Combo1.List(i), Combo1.Text, vbTextCompare) = 1 Then
Sec = Combo1.SelStart
Combo1.Text = Combo1.List(i)
Combo1.SelStart = Sec
Combo1.SelLength = Len(Combo1.Text) - Sec
Exit For
End If
Next
End Sub
