Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
fexs
Newbie
Newbie

Anmeldedatum: 07.12.2009
Beiträge: 4
mehrere ListBoxen abfragen
Verfasst am: 08.12.2009, 03:26
hallo
ich schreibe zwar schon die 2. frage heute aber es ist echt dringend.
ich muss 3 listboxen abfragen bevor ich zu einer rechnung komme.

also das soll so werden:
zb:

wenn [listbox1] [itemNr.1]
und [listbox2] [itemNr.1]
und [listbox3][itemNr.1]
dann ergebnis=1+1
sonst

wenn [listbox1] [itemNr.1]
und [listbox2] [itemNr.1]
und [listbox3][itemNr.2]
dann ergebnis=1+2
sonst

wenn ..... und so weiter

oder kennt jemand einen anderen weg?
bin dankbar für jede hilfe.
am besten wärs wenn jemand den "code" da oben in visual basic übersetzen könnte..
danke schonmal im vorraus bis dann
viele grüße
fexs
_________________
 
exeption
Newbie
Newbie

Anmeldedatum: 14.12.2009
Beiträge: 4

Verfasst am: 14.12.2009, 22:07
wenn [listbox1] [itemNr.1]
und [listbox2] [itemNr.1]
und [listbox3][itemNr.1]
dann ergebnis=1+1

Hej,

das ist doch nicht so schwer Wink

Ich würds so machen:

Da ja eigentlich alles was in der Listbox drinnensteht strings sind, können wir mal die items in string-variablen reinladen:

Code:
Dim inhalt_listbox1 as string = ListBox1.Items.Item(0).ToString
Dim inhalt_listbox2 as string = ListBox2.Items.Item(0).ToString
Dim inhalt_listbox3 as string = ListBox3.Items.Item(0).ToString


Wir fangen mit dem ersten Item an (darum oben (0) ) !

so, jetzt steht z.B. in der variable "inhalt_listbox1" der erste Wert in der 1. Listbox und so weiter ...
Nun machen wir mit einfachen IF Abfrage die Vergleiche.... z.B.:






Code:
        If (inhalt_listbox1 =inhalt_listbox2 And inhalt_listbox1 =inhalt_listbox3) Then

            MsgBox("lol!alles gleich")

        Else
            MsgBox("etwas verschieden")


Code Erklärung:

WENN(der erste Wert der Listbox 1 gleich dem 1. Wert der Listbox2 ist UND der erste Wert der Listbox1 gleich dem 1. Wert der Listbox3 ist) DANN
gib mir eine Message box mit dem Inhalt ("lol!alles gleich")
SONST
gib mir eine Messagebox mit dem Inhalt )"etwas verschieden")


Also ganz einfach Wink

Bei Fragen, fragen !

lg,

exeption
 
fexs
Newbie
Newbie

Anmeldedatum: 07.12.2009
Beiträge: 4

Verfasst am: 15.12.2009, 02:32
hallo
ich wollte aber nicht vergleichen ob in der den listboxen das selbe item makiert ist, sondern je nach dem welche der items in den verschiedenen listboxen stehen eine individuelle rechnung haben.

ich hab es jetz so gelöst:
Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 If ListBox1.SelectedItem = "Item1" And ListBox2.SelectedItem = "Item1" And ListBox3.SelectedItem = "Item1" Then
            TextBox4.Text = (((TextBox9.Text - TextBox3.Text) / 3) - ((5 * 0.001) * TextBox9.Text / 3) - (3 / 9)) * 9
            TextBox4.Text = Math.Round(CDec(TextBox4.Text), 0, MidpointRounding.AwayFromZero)

        ElseIf ListBox1.SelectedItem = "Item1" And ListBox2.SelectedItem = "Item2" And ListBox3.SelectedItem = "Item1" Then
            TextBox4.Text = (((TextBox9.Text - TextBox3.Text) / 4) - ((5 * 0.001) * TextBox9.Text / 18) - (3 / 23)) * 23
            TextBox4.Text = Math.Round(CDec(TextBox4.Text), 0, MidpointRounding.AwayFromZero)

        ElseIf ListBox1.SelectedItem = "Item1" And ListBox2.SelectedItem = "Item1" And ListBox3.SelectedItem = "Item2" Then
            TextBox4.Text = (((TextBox9.Text - TextBox3.Text) / 3) - ((56 * 0.001) * TextBox9.Text / 34) - (3 / 1)) * 12
            TextBox4.Text = Math.Round(CDec(TextBox4.Text), 0, MidpointRounding.AwayFromZero)


... und so weiter und so weiter. Am ende dann:

Code:
Else : TextBox4.Text = "Nix traf zu!"
        End If


falls es noch einen interessiert^^
mfg fexs
_________________
 
exeption
Newbie
Newbie

Anmeldedatum: 14.12.2009
Beiträge: 4

Verfasst am: 16.12.2009, 17:40

Das was ich dir oben geschribeen hat, vergleicht nicht ob es in beidne fällen das gleiche markiert ist, sondern ob in beiden listboxen das gleiche drinnen steht ... bitte genau lesen Wink

Na, wenn du sdschon eine Lösung hast, dann is eh ok Wink

lg,

Chris
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: visual basic, listboxen abfragen

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Wichtig: [Ebook] jetzt lerne ich Visual Basic 6 4741 02.06.2010, 12:55
Keine neuen Beiträge Miceosoft Visual Basic 6.0 Einsteiger Kurs? 1079 17.02.2007, 20:01
Keine neuen Beiträge SUCHE MICROSOFT VISUAL BASIC! 878 12.02.2007, 20:54
Keine neuen Beiträge Microsoft Visual Basic 1178 27.01.2007, 23:59
Keine neuen Beiträge Visual Basic.. Version?? 1137 22.01.2007, 17:23
 




[ Time: 0.2032s ][ Queries: 95 (0.0204s) ][ GZIP on - Debug on ]