✔ Mehrere Variablen in Listbox ausgeben

[Chuligani]

Hi,
Ich arbeite gerade an einem Einheitenumrechner in Vb6 und hab aber vom Programmieren wenig Wissen
Aus diesem Grunde stehe ich jetze vor einem großen Problem ,welches mir das weiterprogrammieren nicht ermöglicht
Mein Anliegen:
Ich habe auf der Form ein Reihe mit Optionbuttons ,in der die "alte größe" angegeben werden kann und eine Reihe von Checkboxen ,welche die "neue Größe" angeben sollen. Die berechnung soll durch eine Eingabe in ein Textfeld erfolgen. Diese Ergebnisse sollen dann in der Listbox ausgegeben! So weit,so gut ,nur hab ich es bisher nicht geschafft ,dass mehrere Ergebnisse in einer Listbox ausgegeben werden( es wird nur ein Ergebnis ausgegeben,auch wenn 2 checkboxen ausgewählt sind)
Könnt ihr mir bei diesem Problem helfen?
Danke

 

[Blatt]

...[zu kurz?] .... <.<

private sub button_click()
if isnumeric(text) = false then
msgbox "Nur Zahlen"
exit sub
elseif text = "" then
msgbox "Nothing input.."
exit sub
end if
if fuss.checked=true then
list1.additem text * [dann halt das für Fuss(etc.)] & " Fuss"
end if
if anderes.checked = true then
list1.additem text*[das andere . .] & " das andere"
end if

 

[Chuligani]

hi, danke für deinen Tipp aber leider ist das Problem damit nicht behoben wurden

 

[Shakie]

@Chuligani: Weißt du, wie man in die Listbox einen neuen Eintrag einfügt?
Vielleicht solltest du mal den relevanten Code hier posten.

 

[Chuligani]

jo,eigentlich schon
hier ist der code:
Private Sub befberechnen_Click()
ein = Val(txtein.Text)
If ein <= 0 Then
MsgBox "Keine Berechnung möglich!Bitte geben sie einen Wert > 0 ein"
txtein.Text = " "
txtein.SetFocus
Else
If optkm.Value = True And konkm.Value = 1 And konm.Value = 1 And kondm.Value = 1 And koncm.Value = 1 And konmm.Value = 1 Then
km = ein * 1
km1 = ein * 0.001
km2 = ein * 0.0001
km3 = ein * 0.00001
km4 = ein * 0.000001
km5 = ein * 0.0000001

lstaus.AddItem Format(km, "0.00 km")
lstaus.AddItem Format(km1, "0.00 m")
lstaus.AddItem Format(km2, "0.00 dm")
lstaus.AddItem Format(km3, "0.00 cm")
lstaus.AddItem Format(km4, "0.00 mm")
lstaus.AddItem Format(km5, "0.00 nm")

 

[Chuligani]

hat denn keiner eine Lösung?

 

[Shakie]

Da du sechs mal die AddItem-Methode aufrufst, sollten eigentlich auch 6 Einträge in der Listbox erscheinen.
In so fern kann ich mir nur schwer vorstellen, dass in der Listbox nichts angezeigt wird. Wird nach dem obigen Code noch anderer Code ausgeführt, der die Einträge evtl. wieder löscht?