---

Er der nogle der har en ide til hvordan der sættes et skjult index på en
combobox. Det skal gerne være sådan at der kommer et unikt valgfrit index
retur, ikke displayværdien af boxen..

/Lars

---

"Lars Nygaard" <gasmads> skrev i en meddelelse
news:41bddb08$0$293$edfadb0f@dread12.news.tele.dk...
> Er der nogle der har en ide til hvordan der sættes et skjult index på en
> combobox. Det skal gerne være sådan at der kommer et unikt valgfrit index
> retur, ikke displayværdien af boxen..
>
> /Lars

Private Function ComboBoxIndex(Optional ByVal sData As String = Empty) As
Integer
If sData = Empty Then sData = Combo1.Text
Select Case sData
' Eller blot select case combo1.text også skrotte sData helt samt if
statementet
Case "Blarh"
ComboBoxIndex = 0
Case "Wee"
ComboBoxIndex = 1
Case "EnheltAnden"
ComboBoxIndex = 2
End Select
End Function



//Morten Larsen

---

Hei Lars

VB6. Du kjenner "itemdata" ? Det ligger et heltall sammen med hver item som
du kan sette til hva du vil, unikt eller ej. Meget verdifull bl.a. der
primærnøkler i en database er tall og usynlige for brukeren.

Private Sub Form_Load()
Cbo1.AddItem "Henrik"
Cbo1.ItemData(Cbo1.NewIndex) = 14
Cbo1.AddItem "Gitte"
Cbo1.ItemData(Cbo1.NewIndex) = 305
Cbo1.AddItem "Pizza"
Cbo1.ItemData(Cbo1.NewIndex) = 73
Cbo1.ListIndex = 0
End Sub

Private Sub Cbo1_Click()
On Error Resume Next
Me.Caption = "Valget er " & _
Cbo1.ItemData(Cbo1.ListIndex)
End Sub

HTH. Beste hilsen Harald


"Lars Nygaard" <gasmads> skrev i melding
news:41bddb08$0$293$edfadb0f@dread12.news.tele.dk...
> Er der nogle der har en ide til hvordan der sættes et skjult index på en
> combobox. Det skal gerne være sådan at der kommer et unikt valgfrit index
> retur, ikke displayværdien af boxen..
>
> /Lars
>
>

---

Det var lige den med itemdata, det virker

Tak

/Lars

"Harald Staff" <innocent@enron.invalid> wrote in message
news:cZpvd.21557$Km6.282051@news4.e.nsc.no...
> Hei Lars
>
> VB6. Du kjenner "itemdata" ? Det ligger et heltall sammen med hver item
som
> du kan sette til hva du vil, unikt eller ej. Meget verdifull bl.a. der
> primærnøkler i en database er tall og usynlige for brukeren.
>
> Private Sub Form_Load()
> Cbo1.AddItem "Henrik"
> Cbo1.ItemData(Cbo1.NewIndex) = 14
> Cbo1.AddItem "Gitte"
> Cbo1.ItemData(Cbo1.NewIndex) = 305
> Cbo1.AddItem "Pizza"
> Cbo1.ItemData(Cbo1.NewIndex) = 73
> Cbo1.ListIndex = 0
> End Sub
>
> Private Sub Cbo1_Click()
> On Error Resume Next
> Me.Caption = "Valget er " & _
> Cbo1.ItemData(Cbo1.ListIndex)
> End Sub
>
> HTH. Beste hilsen Harald
>
>
> "Lars Nygaard" <gasmads> skrev i melding
> news:41bddb08$0$293$edfadb0f@dread12.news.tele.dk...
> > Er der nogle der har en ide til hvordan der sættes et skjult index på en
> > combobox. Det skal gerne være sådan at der kommer et unikt valgfrit
index
> > retur, ikke displayværdien af boxen..
> >
> > /Lars
> >
> >
>
>