ComboBox - Özellikler
Appearance
BackColor
CausesValidation
Container
DataChanged
DataField
DataFormat
DataMember
DataSource
DragIcon
DragMode
Enabled
Font
FontBold
FontItalic
FontName
FontSize
FontStrikethru
FontUnderline
ForeColor
Height
HelpContextID
HWnd
Index
IntegralHeight
ItemData
Left
List
ListCount
ListIndex
Locked
MouseIcon
MousePointer
Name
NewIndex
OleDragMode
Parent
RightToLeft
SelLenght
SelStart
Seltext
Sorted
Style
TabIndex
TabStop
Tag
Text
ToolTiptext
Top
TopIndex
Visible
WhatsThisHelpID
Width
List : Dizi değişken. ComboBox’da yer alacak elemanları saklar
ListCount : Listedeki eleman sayısını gösterir
ListIndex : Seçili olan elemanın sırasını gösterir
Sorted : Listenin alfabetik sıra ile gösterilmesini denetler
Style : ComboBoxun açılma şeklini denetler
ComboBox - Olaylar
Change
Click
DblClick
DragDrop
DragOver
DropDown
GotFocus
KeyDown
KeyPress
KeyUp
LostFocus
OleCompleteDrag
OleDragDrop
OleDragDropOver
OleGiveFeedBack
OleSetData
OleStartDrag
Scroll
Validate
Change : Text içeriğinin değişmesi
DropDown : Listeleme butonu yardımı ile listenin açılması
ComboBox - Yöntemler
AddItem
Clear
Drag
Move
OleDrag
Refresh
RemoveItem
SetFocus
ShowWhatsThis
ZOrder
AddItem : Listeye ekleme
Clear : Listedeki tüm elemanları siler
RemoveItem : Listedeki belirli bir elemanı siler
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
ComboBox’a Girilen Bilgiyi ComboBox’a Eklemek
Private Sub Git_Click()
Dim kontrol As Boolean
For I = 0 To Combo1.ListCount – 1
If Combo1.List(I) = Combo1.Text Then kontrol = True
Next I
If kontrol = False Then Combo1.AddItem Combo1.Text
End Sub
