vb@rchiv · Diskussionsforen · Re: Größten Wert bestimme

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

[388 User online]
[339 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: Größten Wert bestimme

Autor: Zardoz

Datum: 07.05.06 19:28

Hi Thomas2000,

Zitat:

Kann man mit dieser Methode auch den zweitgrößten und drittgrößten Wert herausfinden?

dann sortierst du besser mit einem Sortierprogramm und holst dir die ersten
3 Werte aus der Liste.

@vbtricks
Dein Code funktioniert nur, wenn der größte Wert >= 0 ist. Wenn's schnell gehen soll
besser so:

Dim GroessterWert&
 
GroessterWert = MeinLabel(0).Caption
For i = 1 To MeinLabel.Ubound
  If MeinLabel(i).Caption > GroessterWert Then
    GroessterWert = MeinLabel(i).Caption
  End If
Next

oder wenn's kurz sein soll, so:

Dim GroessterWert&
 
For i = 0 To MeinLabel.Ubound
  If i = 0 Or MeinLabel(i).Caption > GroessterWert Then
    GroessterWert = MeinLabel(i).Caption
  End If
Next

Gruss,

Zardoz

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Größten Wert bestimme	630	Thomas2000	07.05.06 12:48
Re: Größten Wert bestimme	448	vbtricks	07.05.06 15:22
Re: Größten Wert bestimme	440	Thomas2000	07.05.06 18:15
Re: Größten Wert bestimme	462	vbtricks	07.05.06 18:18
Re: Größten Wert bestimme	386	Thomas2000	07.05.06 18:29
Re: Größten Wert bestimme	431	vbtricks	07.05.06 18:37
Re: Größten Wert bestimme	453	Thomas2000	07.05.06 18:48
Re: Größten Wert bestimme	487	vbtricks	07.05.06 19:06
Re: Größten Wert bestimme	433	Zardoz	07.05.06 19:28
Re: Größten Wert bestimme	395	Thomas2000	07.05.06 20:31
Re: Größten Wert bestimme	406	Zardoz	07.05.06 20:37
Re: Größten Wert bestimme	392	Thomas2000	07.05.06 20:55
Re: Größten Wert bestimme	470	Zardoz	07.05.06 21:06

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

September 2025
Dieter Otter

Verschieben eines Fensters unterbinden

Details

Neu! sevEingabe 3.0

Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m.

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