vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: Noch ne Frage... 
Autor: ARo
Datum: 13.01.04 13:39
Dim i1 As Integer
Dim Index1 As Integer
 
With sev_List1
  For i1 = 0 To .ListCount - 1
    Index1 = sev_List2.SearchItem(.List(i1), False, 0)
    If Index1 > 0 Then .RemoveItem Index1
  Next i1
End With
kurze erklärung:
- WITH
innerhalb von "With <objekt>" und "End With" kannst du dir die angabe von "<object>" sparen, wenn du auf eigenschaften zugreifst. d.h. du brauchst statt "sev_List1.ListCount" nur ".ListCount" schreiben.

- FOR
du durchläufst die schleife von 0 bis anzahl items von sev_List1, dabei wird i1 immer um eins hochgezählt.

probier mal den code oben
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehlerabfangen in "With" - Schleife826Boris13.01.04 09:34
Re: Fehlerabfangen in "With" - Schleife447ARo13.01.04 09:51
Re: Fehlerabfangen in "With" - Schleife381Boris13.01.04 10:48
Re: Fehlerabfangen in "With" - Schleife423ARo13.01.04 10:57
Noch ne Frage...563Boris13.01.04 11:08
Re: Noch ne Frage...404ARo13.01.04 11:12
Re: Noch ne Frage...408Boris13.01.04 11:44
Re: Noch ne Frage...403ARo13.01.04 12:34
Re: Noch ne Frage...373Boris13.01.04 13:01
Re: Noch ne Frage...415ARo13.01.04 13:39
Re: Noch ne Frage...369Boris13.01.04 13:59
Re: Noch ne Frage...380ARo13.01.04 15:06
Re: Noch ne Frage...381Boris13.01.04 15:26
Re: Noch ne Frage...385Boris13.01.04 15:26
Re: Noch ne Frage...366ARo13.01.04 15:45
Re: Noch ne Frage...384Boris13.01.04 15:58
Re: Noch ne Frage...389ARo13.01.04 17:20
Re: Noch ne Frage...396Boris14.01.04 07:39
Re: Noch ne Frage...385Boris14.01.04 08:00

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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