vb@rchiv · Diskussionsforen · Re: Was mache ich falsch?

VB Classic
VB.NET
ADO.NET
VBA
C#

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

[483 User online]
[455 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

Re: Was mache ich falsch?

Autor: RalfH
Datum: 29.10.02 01:26

Hier das gleiche nochmal als eingerückten Source-Code: Private Sub Commandrsv_Click() 'Verkehr If Option7.Value = True Then 'FALSCH 'ElseIf Option6.Value And Option1.Value = True Then 'RICHTIG If Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrmsbb + Aclub End If 'DIESES <END IF> KOMMT NEU HINZU End If 'Verkehr mit Familie If Option8.Value = True Then 'FALSCH 'ElseIf Option5.Value Then 'RICHTIG If Option5.Value Then Angebotsübersicht.Text38 = 0 ElseIf Option6.Value Then Angebotsübersicht.Text38 = 0 ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrfamosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrfammsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Averkehrfamosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Averkehrfammsbb + Aclub End If 'DIESES <END IF> KOMMT NEU HINZU End If 'Privat und Beruf If Option9.Value = True Then 'FALSCH 'ElseIf Option6.Value And Option1.Value = True Then 'RICHTIG If Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberseosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbersemsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = 0 ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbersimsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbermsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbermsbb + Aclub End If 'DIESES <END IF> KOMMT NEU HINZU End If 'Privat, Beruf und Verkehr If Option10.Value = True Then 'FALSCH 'ElseIf Option6.Value And Option1.Value = True Then 'RICHTIG If Option6.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverseosb + Aclub ElseIf Option6.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprberversemsb + Aclub ElseIf Option5.Value And Option1.Value = True Then Angebotsübersicht.Text38 = 0 ElseIf Option5.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprberversimsb + Aclub ElseIf Option4.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverosb + Aclub ElseIf Option4.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbervermsb + Aclub ElseIf Option3.Value And Option1.Value = True Then Angebotsübersicht.Text38 = Aprberverosbb + Aclub ElseIf Option3.Value And Option2.Value = True Then Angebotsübersicht.Text38 = Aprbervermsbb + Aclub End If 'DIESES <END IF> KOMMT NEU HINZU End If Kundendaten.Label8 = "OK" Rechtsschutz.Hide End Sub

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Was mache ich falsch?	184	rainmanx	28.10.02 14:54
Re: Was mache ich falsch?	277	michi-bib	28.10.02 15:31
Re: Was mache ich falsch?	62	rainmanx	28.10.02 16:00
Re: Was mache ich falsch?	275	michi-bib	28.10.02 18:07
Re: Was mache ich falsch?	56	rainmanx	28.10.02 18:19
Re: Was mache ich falsch?	275	MrByte	28.10.02 15:37
Re: Was mache ich falsch?	59	RalfH	28.10.02 20:12
Re: Was mache ich falsch?	267	rainmanx	28.10.02 22:31
Re: Was mache ich falsch?	279	rainmanx	28.10.02 23:44
Re: Was mache ich falsch?	357	unbekannt	29.10.02 00:03
Re: Was mache ich falsch?	75	RalfH	29.10.02 01:08
Re: Was mache ich falsch?	60	RalfH	29.10.02 01:26
Re: Was mache ich falsch?	253	rainmanx	29.10.02 10:18

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

Neu! sevCoolbar 3.0

Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access

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

TOP Entwickler-Paket

TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...

Jetzt nur 979,00 EUR
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