|
 |
« : 02 Mayıs 2008, 10:13:34 » |
|
Option Explicit
Dim gerial As Boolean
Private Sub cmdEkle_Click()
If txtEkleme.Text <> "" Then ' eger txtekleme bos ise ekleme yapmasin
kombo.AddItem txtEkleme.Text
txtEkleme.Text = "" 'eklendikten sonra textbox'u temizle
End If
End Sub
Private Sub Form_Load()
'Burada item'lar ekleniyor
With kombo
.AddItem "cilek"
.AddItem "incir"
.AddItem "elma"
.AddItem "armut"
.AddItem "uzum"
.AddItem "karpuz"
.AddItem "seftali"
End With
End Sub
Private Sub kombo_KeyDown(basim As Integer, Shift As Integer)
If basim = vbKeyBack Or basim = vbKeyDelete Then
If kombo.Text <> "" Then
gerial = True
End If
End If
End Sub
Private Sub kombo_Change()
If gerial = True Or kombo.Text = "" Then
gerial = False
Exit Sub
End If
Dim i As Long
Dim nSel As Long
For i = 0 To kombo.ListCount - 1
If InStr(1, kombo.List(i), kombo.Text, _
vbTextCompare) = 1 Then
nSel = kombo.SelStart
kombo.Text = kombo.List(i)
kombo.SelStart = nSel
kombo.SelLength = Len(kombo.Text) - nSel
Exit For
End If
Next
End Sub
|
|
|
|
|
Logged
|
|
|
|
|
Webmaster / Web Dizayn Scriptler / Programlama Dilleri