Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Objektübergabe an eine Prozedur
Autor: Hollie
Datum: 04.12.20 18:02
Hallo und guten Tag. Da ich hier schon einige wertvolle Tipps gefunden oder bekommen habe, starte ich wieder mal durch. In einem Veranstaltungsverwaltungsprogramm soll ein neues Event auf Tages- und Zeitkollisionen mit bereits vorhandenen Veranstaltungen geprüft werden. Hierbei enthält eine Combobox "cboRhytmus" einige Listeneinträge (z.B. "erste Woche", "zweite Woche" etc. pp). Der Wochentag wird über einen von sieben Optionsbutton "optWochentag(I%)" ausgewählt (1=So, 2=Mo, etc. pp). Das jeweilige "Click"-Ereignis löst die Prüfung aus, (1) "Call TERMIN_KOLLISIONS_SUCHE(Me.cboRhythmus)" oder (2) "Call TERMIN_KOLLISIONS_SUCHE(Me.optWochentag(I))" Die Prozedur "TERMIN_KOLLISIONS_SUCHE(AUSLOESER as Object)" sucht nun mögliche Überschneidungen und übergibt im Kollisionsfall die Daten an die Prozedur "TERMIN_KOLLISIONS_MELDUNG(AUSLOESER as Object)" In dieser Melde-Prozedur soll neben einer MsgBox auch der Verursacher ["cboRhytmus" oder "optWochentag(I)"] farblich hervorgehoben werden. Für die Optionsbutton funktioniert das ohne Problem. Nicht aber für "cboRhythmus" !!! Hier nimmt "AUSLOESER" (obwohl als "Object" deklariert) den gerade angezeigten Listenwert von "cboRhythmus" an, z.B. "erste Woche". Was mache ich falsch? Wie verweise ich auf die Eigenschaft des Steuerelementes und NICHT auf den gerade angezeigten Inhalt? In der Hoffnung, einen richtungsweisenden Hinweis erhalten zu können: vielen Dank. Code-Auszug: Private Sub TERMIN_KOLLISIONS_MELDUNG(AUSLOESER as Object) Fehler = True ' ==> bei "optWochentag(I) ok, bei "cboRhythmus" LfzF If AUSLOESER Then AUSLOESER.BackColor = HROT MsgBox "Fehler, gewünschter Termin würde kollidieren mit ...", 64, ApplName If AUSLOESER Then AUSLOESER.BackColor = GRAU If TypeOf AUSLOESER Is ComboBox Then AUSLOESER.ListIndex = CODE02 'vorherigen Wert einstellen If TypeOf AUSLOESER Is OptionButton Then AUSLOESER.Value = False '... End If End If End Sub

Objektübergabe an eine Prozedur	548	Hollie	04.12.20 18:02
Re: Objektübergabe an eine Prozedur	214	effeff	05.12.20 10:51
Re: Objektübergabe an eine Prozedur	201	Hollie	07.12.20 22:51

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