Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ListView-Problem
Autor: VB
Datum: 02.04.02 10:23
Hi Leute, heute habe ich eine harte Nuss für euch (für mich jedenfalls). Ich lasse mit einem Timer meine ListView auf ein Datum und eine Zeit durchsuchen. Wenn dann das Datum und die Zeit gleich dem heutigen Datum und Zeit entspricht, soll eine Meldung angezeigt werden, die die nebenstehenden Daten mit einbezieht (Bezeichnung, Datum, Zeit, Beschreibung und ein Icon, dass durch die übergebenen Pfad geöffnet wird). Doch was passiert? Anstatt EINER Meldung kommen 4, manchmal sogar 6 Meldungen. Was habe ich falsch gemacht? Hier der Programmtext: Private Sub Timer_Timer() Dim NM As New Meldung If Timer.Interval = 100 Then With ListView1.ListItems For I = 1 To .Count With ListView1.ListItems(I) If (.SubItems(1) = Date) And (.SubItems(2) = Time) Then 'Übergabe der eingegebenen 'Daten an Variablen BEZ = ListView1.ListItems(I) DAT = ListView1.ListItems(I).SubItems(1) ZEI = ListView1.ListItems(I).SubItems(2) BES = ListView1.ListItems(I).SubItems(4) ICO = ListView1.ListItems(I).SubItems(3) 'Eintragen der Variablen 'in die Meldungform NM.MeldungDatum.Caption = DAT NM.MeldungZeit.Caption = ZEI NM.MeldungBezeichnung.Caption = BEZ NM.MeldungBeschreibung.Caption = BES If Right(ICO, 4) = ".ico" Then NM.BildIcon.Picture = LoadPicture(ICO) ElseIf Right(ICO, 4) = ".cur" Then NM.BildIcon.Picture = LoadPicture(ICO) Else NM.BildIcon.Picture = Nothing NM.Width = 4575 End If NM.Show End If End With Next I End With End If End Sub ---------------------------------- Vielen Dank im voraus - VB -

ListView-Problem	71	VB	02.04.02 10:23
Re: ListView-Problem	217	Dieter	02.04.02 10:58

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