ComboBox

Tags:    visual-basic

User
Bruger #649 @ 27.07.03 23:39
Hej.

Hvordan skriver man linjer ind i en combobox??

Mvh
SirUser1234



Indlæg senest redigeret d. 20.09.2012 12:41 af Bruger #649
Combo.AddItem "Hej"
Combo.AddItem "med"
Combo.AddItem "dig"

Mvh,

Thomas Nielsen



Men hvis du skulle komme ud i situationer hvor tingende kommer i anderledes rækkefølge kan du stadig sætte det ind i din combobox rigtigt:

Fold kodeboks ind/udKode 




User
Bruger #649 @ 28.07.03 19:17
Men hvis du skulle komme ud i situationer hvor tingende kommer i anderledes rækkefølge kan du stadig sætte det ind i din combobox rigtigt:

Fold kodeboks ind/udKode 



Det virker altså ikke, koden skulle være nederstående ikke??

Mvh
SirUser1234


Private Sub Combo1_Change()
Combo1.AddItem "Dig", 0
Combo1.AddItem "Med", 0
Combo1.AddItem "Hej", 0
End Sub



Indlæg senest redigeret d. 20.09.2012 12:41 af Bruger #649
Men hvis du skulle komme ud i situationer hvor tingende kommer i anderledes rækkefølge kan du stadig sætte det ind i din combobox rigtigt:

Fold kodeboks ind/udKode 



Det virker altså ikke, koden skulle være nederstående ikke??

Mvh
Anders


Private Sub Combo1_Change()
Combo1.AddItem "Dig", 0
Combo1.AddItem "Med", 0
Combo1.AddItem "Hej", 0
End Sub


Det er klart der skal føst ske en ændring i din combo boks for at den tilføjer noget.

prøv at sææte det ind i en knap og se så hvad der sker!!

den skulle meget gerne indsætte dine ordi comboboksen.


-Thomas



User
Bruger #649 @ 28.07.03 20:11
ja, jeg satte den i en form_load...

men hvad skal jeg gøre hvis der skal ske noget, når man trykker på en at dem???

Mvh
SirUser1234



Indlæg senest redigeret d. 20.09.2012 12:41 af Bruger #649
ja, jeg satte den i en form_load...

men hvad skal jeg gøre hvis der skal ske noget, når man trykker på en at dem???

Mvh
Anders


For at få værdien skal du skrive:

Variabel = cboThing.text



User
Bruger #649 @ 29.07.03 20:33
Jeg kan ikke helt få det til at virke, hvordan ville du gøre det??



Indlæg senest redigeret d. 20.09.2012 12:41 af Bruger #649
Jeg kan ikke helt få det til at virke, hvordan ville du gøre det??

Mvh
Anders


Her er et lille eksempel husk at det skal være i den click options


<pre>
Private Sub Combo1_Click()
If Combo1.Text = "Hej" Then
MsgBox "Du valgte Hej"
ElseIf Combo1.Text = "Dig" Then
MsgBox "Du valgte Dig"
ElseIf Combo1.Text = "Med" Then
MsgBox "Du valgte MedX"
End If
End Sub
</pre>

-Thomas




t