|
VB.Net-Forum - Beitragsübersicht - |
|
Thema | V05: Langer Code kürzen und optimieren! |
Von |
Cheffboss |
Datum |
22. Dezember 2019 um 11:01:38 |
Frage |
Moin! Ich habe folgenden Code, ich möchte gerne wissen wie ich diesen Code kürzen und optimieren kann. Da dieser so sehr lange ist und bestimmt auch kürzer möglich ist. Freue mich auf eure Hilfe. BIG THX Try If Me.ListBox1.Items(Me.ListBox1.Items.Count - 1) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 3) Then If Me.ListBox1.Items(Me.ListBox1.Items.Count - 2) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 4) Then If Me.ListBox1.Items(Me.ListBox1.Items.Count - 3) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 5) Then If Me.ListBox1.Items(Me.ListBox1.Items.Count - 4) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 6) Then If Me.ListBox1.Items(Me.ListBox1.Items.Count - 5) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 7) Then If Me.ListBox1.Items(Me.ListBox1.Items.Count - 6) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 8) Then If Me.ListBox1.Items(Me.ListBox1.Items.Count - 7) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 9) Then If Me.ListBox1.Items(Me.ListBox1.Items.Count - 8) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 10) Then If Me.ListBox1.Items(Me.ListBox1.Items.Count - 9) = Me.ListBox1.Items(Me.ListBox1.Items.Count - 11) Then ' Hier weiter machen.... Me.Button1.Enabled = True Me.Timer1.Enabled = False End If End If End If End If End If End If End If End If End If Catch End Try |
|
Antwort: |
Von |
Cheffboss |
Datum |
22. Dezember 2019 um 17:26:35 |
Antwort |
Ich könnte das Problem selber lösen. Einfach den Status abfragen. Und mit diesem dann weiter arbeiten.
Lösung:jobSatus = prntJob.Properties("StatusMask").Value |
|
[ Antwort schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|