VB.Net-Forum - Beitragsübersicht -
ThemaV05: 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 ]
Antworten
V05: Langer Code kürzen und optimieren! - Cheffboss 22. Dezember 2019 um 11:01:38
Re: Langer Code kürzen und optimieren! - Cheffboss 22. Dezember 2019 um 11:25:28
Re: Langer Code kürzen und optimieren! - Cheffboss 22. Dezember 2019 um 17:26:35

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  VB 2005
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB.Net-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | VB/VBA-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015