inputbox

[Rabble]

hei

vis jeg skal adde tre ting f.eks mobil, hjem og jobb

og jeg bare adder to av de men den tredde står der enda hvordan får jeg den bort???

 

 

mvh

 

Rabble

[Rabble]

og jeg bruker denne koden

Private Sub mnuadd_Click()

Dim sTmp As String

 sTmp = InputBox("Navn:")

 stmp2 = InputBox("Hjem:")

 stmp3 = InputBox("Jobb:")

 stmp4 = InputBox("Mob:")

 List1.AddItem "Navn: " + sTmp

 List1.AddItem "Hjem: " + stmp2

 List1.AddItem "Jobb: " + stmp3

 List1.AddItem "mob: " + stmp4

End Sub

[b-urn]

hei

vis jeg skal adde tre ting f.eks mobil, hjem og jobb

og jeg bare adder to av de men den tredde står der enda hvordan får jeg den bort???

 

 

mvh

 

Rabble

 

Skjønner ikke helt hva du mener.

 

Er det hvis du prøver å kalle funksjonen mer enn en gang du mener? Hvis det ligger data i lista fra før må du kalle

 

List1.clear()

[Rabble]

Jeg mener at når man adder noe så kommer det opp f.eks Jobb: når man ikke skreven eneste ting hvordan fjerner man det??

[b-urn]

Hmmm..

 

Du kan jo betinge innleggingen av data. Kun legge inn data hvis brukeren har skrevet inn noe via Inputbox()-funksjonen

 

If Trim(sTmp)<>""  Then List1.AddItem "Navn: " + sTmp 

If Trim(sTmp2)<>""  Then   List1.AddItem "Hjem: " + stmp2 

If Trim(sTmp3)<>""  Then   List1.AddItem "Jobb: " + stmp3 

If Trim(sTmp4)<>""  Then   List1.AddItem "mob: " + stmp4 

[Rabble]

je det var det jeg tenkte på takk for hjelpen

 

 

mvh

 

Rabble