vb@rchiv · Diskussionsforen · geht das auch einfacher?

VB Classic
VB.NET
ADO.NET
VBA
C#

Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[476 User online]
[433 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Visual-Basic Einsteiger

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Visual-Basic Einsteiger

geht das auch einfacher?

Autor: Piekarek
Datum: 10.03.02 13:55

ich habe folgenden code um zu testen welche beträge summiert den endbetrag ergeben : Nun meine Frage geht das auch einfacher z.B. mit einem array ich wollte das ganze nämlich noch mit 10 textboxen machen Private Sub Command1_Click() Dim a As Currency Dim b As Currency Dim c As Currency Dim d As Currency Dim e As Currency Dim x As Currency a = Form1.atxt.Text ' textbox b = Form1.btxt.Text ' textbox c = Form1.ctxt.Text ' textbox d = Form1.dtxt.Text ' textbox e = Form1.etxt.Text ' textbox x = Form1.Ergebnis.Text ' textbox If a = x Then Form1.atxt.BackColor = vbRed ElseIf b = x Then Form1.btxt.BackColor = vbRed ElseIf c = x Then Form1.ctxt.BackColor = vbRed ElseIf d = x Then Form1.dtxt.BackColor = vbRed ElseIf e = x Then Form1.etxt.BackColor = vbRed ElseIf a + b = x Then Form1.atxt.BackColor = vbRed Form1.btxt.BackColor = vbRed ElseIf a + c = x Then Form1.atxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + d = x Then Form1.atxt.BackColor = vbRed Form1.dtxt.BackColor = vbRed ElseIf a + e = x Then Form1.atxt.BackColor = vbRed Form1.etxt.BackColor = vbRed ElseIf c + b = x Then Form1.ctxt.BackColor = vbRed Form1.btxt.BackColor = vbRed ElseIf d + b = x Then Form1.dtxt.BackColor = vbRed Form1.btxt.BackColor = vbRed ElseIf e + b = x Then Form1.etxt.BackColor = vbRed Form1.btxt.BackColor = vbRed ElseIf c + d = x Then Form1.ctxt.BackColor = vbRed Form1.dtxt.BackColor = vbRed ElseIf c + e = x Then Form1.ctxt.BackColor = vbRed Form1.etxt.BackColor = vbRed ElseIf d + e = x Then Form1.dtxt.BackColor = vbRed Form1.etxt.BackColor = vbRed ElseIf a + b + c = x Then Form1.atxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + b + d = x Then Form1.atxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.dtxt.BackColor = vbRed ElseIf a + b + e = x Then Form1.atxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.etxt.BackColor = vbRed ElseIf a + d + c = x Then Form1.atxt.BackColor = vbRed Form1.dtxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + e + c = x Then Form1.atxt.BackColor = vbRed Form1.etxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + d + e = x Then Form1.atxt.BackColor = vbRed Form1.dtxt.BackColor = vbRed Form1.etxt.BackColor = vbRed ElseIf d + b + c = x Then Form1.dtxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf e + b + c = x Then Form1.etxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf e + b + d = x Then Form1.etxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.dtxt.BackColor = vbRed ElseIf e + d + c = x Then Form1.dtxt.BackColor = vbRed Form1.etxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + b + c + d = x Then Form1.dtxt.BackColor = vbRed Form1.atxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + b + c + e = x Then Form1.etxt.BackColor = vbRed Form1.atxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + b + e + d = x Then Form1.dtxt.BackColor = vbRed Form1.atxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.etxt.BackColor = vbRed ElseIf e + b + c + d = x Then Form1.dtxt.BackColor = vbRed Form1.etxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + e + c + d = x Then Form1.dtxt.BackColor = vbRed Form1.atxt.BackColor = vbRed Form1.etxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed ElseIf a + b + c + d + e = x Then Form1.dtxt.BackColor = vbRed Form1.atxt.BackColor = vbRed Form1.btxt.BackColor = vbRed Form1.ctxt.BackColor = vbRed Form1.etxt.BackColor = vbRed End If End Sub THX Piekarek

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

geht das auch einfacher?	51	Piekarek	10.03.02 13:55
Re: geht das auch einfacher?	301	unbekannt	10.03.02 19:46
Re: geht das auch einfacher?	20	Piekarek	11.03.02 20:22

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

sevISDN 1.0

Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m.

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

Neu! sevDTA 3.0 Pro

SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können.

Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel