VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmComboWork 
   Caption         =   "Rad sa kontrolom ComboBox"
   ClientHeight    =   1995
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3675
   OleObjectBlob   =   "frmComboWork.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmComboWork"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btnDodaj_Click()
    If txtOpcija.Text = "" Then
        MsgBox "Unesi nekakav tekst da bi se dodala opcija"
    Else
        cmbMeni.AddItem (txtOpcija.Text)
        'da bismo primetili da se nesxto desilo u meniju
        'moramo da osvezximo meni:
        'izabracxemo poslednju dodatu stavku u meniju
        cmbMeni.ListIndex = cmbMeni.ListCount - 1
    End If
End Sub

Private Sub btnUkloni_Click()
    'prvo moramo da proverimo da li uopsxte ima sxta da se ukloni
    Debug.Print cmbMeni.ListCount
    If cmbMeni.ListCount = 0 Then
        MsgBox "Meni je prazan"
    Else
        'takodxe, moramo da proverimo da li je ikakva stavka izabrana
        If cmbMeni.ListIndex < 0 Then
            MsgBox "Niste izabrali stavku za brisanje"
        Else
            Debug.Print cmbMeni.ListCount, cmbMeni.ListIndex
            'sve je u redu, mozxemo da brisxemo
            'cmbMeni.ListIndex je indeks stavke izabrane za brisanje
            cmbMeni.RemoveItem (cmbMeni.ListIndex)
            'da bismo primetili da je stavka zaista obrisana
            'moramo da osvezximo meni:
            'posxto meni mozxe da se isprazni, najsigurnije je da kazxemo da
            'nijedna stavka nije izabrana
            Debug.Print cmbMeni.ListCount, cmbMeni.ListIndex
            cmbMeni.ListIndex = -1
            Debug.Print cmbMeni.ListCount, cmbMeni.ListIndex
        End If
    End If
End Sub