Avatar billede teknikeren Nybegynder
27. december 2002 - 12:27 Der er 10 kommentarer og
1 løsning

Combo

Hej alle X-perter!
Jeg har et program hvor man kan købe forskellige ting i... Den sender en mail til mig med alle informationerne. MEN... Hvad skal man gøre når man også skal have combobox-dataerne med? Koden er:

Private Sub Command1_Click()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "xXxXxX@XxXxXxXxXxX.XX"
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = Text1.Text & " vil gerne bestille noget."
MAPIMessages1.MsgNoteText = Text1.Text & " bor " & Text2.Text & " og vil gerne bestille " & Combo1.hvad_skal_dette_være? & "..."
MAPIMessages1.Send
End Sub

Private Sub Form_Load()
Combo1.AddItem "Test-vare, 0 dkr."
Combo1.AddItem "Test-vare2, 0 dkr."
Combo1.AddItem "Test-vare3, 0 dkr."
End Sub
Avatar billede martin_moth Mester
27. december 2002 - 12:44 #1
msgbox "Item nummer 2 er " & combo1.list(2)

Svaret er altså combo1.list(index)

/Martin
Avatar billede teknikeren Nybegynder
27. december 2002 - 13:35 #2
Martin_moth << Det virker ik du :) Lige meget hvad for en vare du tager skriver den "Test-vare, 0 dkr."...
Avatar billede tubber Juniormester
27. december 2002 - 13:46 #3
msgbox "Item nummer 2 er " & combo1.listindex(2)

eller

msgbox "Item nummer 2 er " & combo1.index(2)
Avatar billede teknikeren Nybegynder
27. december 2002 - 13:55 #4
Skal man så ikke først skrive noget med:

Private Sub Form_Load()
Combo1.AddItem "Test-vare, 0 dkr.", 1
Combo1.AddItem "Test-vare2, 0 dkr.", 2
Combo1.AddItem "Test-vare3, 0 dkr.", 3
End Sub

?
Avatar billede tubber Juniormester
27. december 2002 - 13:58 #5
Jo det er for at sætte noget ind i din combobox.....

det andet er for at hente det ud igen.....
Avatar billede teknikeren Nybegynder
27. december 2002 - 14:00 #6
Er hele koden ikke:

Private Sub Command1_Click()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "xXxXxX@XxXxXxXxXxX.XX"
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = Text1.Text & " vil gerne bestille noget."
MAPIMessages1.MsgNoteText = Text1.Text & " bor " & Text2.Text & " og vil gerne bestille " & Combo1.List(index) & "..."
MAPIMessages1.Send
End Sub

Private Sub Form_Load()
Combo1.AddItem "Test-vare, 0 dkr.", 1
Combo1.AddItem "Test-vare2, 0 dkr.", 2
Combo1.AddItem "Test-vare3, 0 dkr.", 3
End Sub
Avatar billede teknikeren Nybegynder
27. december 2002 - 14:02 #7
Den skriver:
Invalid producure or call argument
Avatar billede teknikeren Nybegynder
27. december 2002 - 14:03 #8
procedure even
Avatar billede teknikeren Nybegynder
28. december 2002 - 13:46 #9
Der er ikke nogen der gider at svare. Lukker.
Avatar billede martin_moth Mester
01. januar 2003 - 19:36 #10
Jeg svarede da, og mit svar er altså den rigtige løsning!
Avatar billede teknikeren Nybegynder
01. januar 2003 - 20:15 #11
martin_moth << Det virker ikke som jeg vil have det til at virke :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester