Die folgende Funktion prüft, ob sich ein vorgegebener Wert in einem 2-dimensionalen Array existiert oder nicht. Wird der Wert nicht gefunden, wird Nothing zurückgegeben. Anderenfalls werden in einem 2-dim. Feld die beiden Indizes zurück gegeben. ' Suchen eines Wertes im 2-dimensionalen Array ' theArray- das zu durchsuchende Feld ' theValue- der zu suchende Wert ' Rückgabe: wenn Wert nicht gefunden-> Nothing ' wenn Wert gefunden-> 2-dim. Feld mit ' den Indizes des Wertes Public Function IndexofMultiDim(ByVal theArray As Array, _ ByVal theValue As Object) As Object Dim w As Boolean = False Dim i, j As Integer Dim u1 As Integer = UBound(theArray, 1) Dim u2 As Integer = UBound(theArray, 2) Dim tmp() As Object = Nothing For i = 0 To u1 - 1 For j = 0 To u2 - 1 w = theArray(i, j).Equals(theValue) If w Then Exit For Next j If w Then Exit For Next i If w Then ReDim tmp(theArray.Rank - 1) tmp(0) = i : tmp(1) = j End If IndexofMultiDim = tmp End Function Dieser Tipp wurde bereits 11.520 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
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. Tipp des Monats November 2024 Dieter Otter WAVE-Dateien aufnehmen Ein Code-Ausschnitt, mit dem sich WAVE-Dateien in verschiedenen Aufnahmequalitäten aufnehmen lassen. TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||||||||
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. |