Seite 1 von 1

Formular zum Anzeigen von Meldungen

BeitragVerfasst: Fr 10. Jul 2015, 12:49
von Josef Pötzl
Im Anhang ist ein Beispiel mit einem Formular, über das man in einer Access-Anwendung Meldungen anzeigen kann.

Einstellbare "Standard"-Eigenschaften:
  • Anzuzeigender Text
  • Anzeigedauer bis sich Formular automatisch schließt
  • ... im Prinzip alle Form-Eigenschaften, da ein Access-Formular mit einem Label-Steuerelement verwendet wird

Besondere Features:
  • Fenster kann teil-transparent dargestellt werden
  • Fadein und Fadeout der Anzeige möglich

Verbesserungsvorschläge sind gern gesehen. :)

mfg
Josef

Re: Formular zum Anzeigen von Meldungen

BeitragVerfasst: Mo 13. Jul 2015, 16:10
von Josef Pötzl

Re: Formular zum Anzeigen von Meldungen

BeitragVerfasst: Mo 13. Jul 2015, 21:30
von Josef Pötzl

Re: Formular zum Anzeigen von Meldungen

BeitragVerfasst: Do 23. Jul 2015, 17:15
von Andreas Vogt
Hallo Josef,
bin gerade dabei mir das anzusehen. Im Formular InfoMessageBox_Examples hast du einen Fehler:
Set .Form = New Form_InfoMessageBoxForm_MitButtons
Dieses Form existiert nicht im Repository.

Ansonsten wirklich Klasse.
Erinnert mich entfernt an die VBWidgets vom vbRichClient5

Gruß Andreas

Re: Formular zum Anzeigen von Meldungen

BeitragVerfasst: Do 23. Jul 2015, 17:46
von Andreas Vogt
Nochwas,
bekomme im Formular InfoMessageBox_Examples einen Überlauf in cmdStart_Click() der Zeile:
.Move Me.WindowLeft + Me.WindowWidth * 3 / 4, Me.WindowTop

Schreibe ich
.Move Me.WindowLeft + Me.WindowWidth * 3# / 4, Me.WindowTop
dann funktioniert es.

Außerdem noch einen "Anwendungs- oder objektdefinierter Fehler" in den Zeilen
.BackColor = vbBlack
.ForeColor = vbWhite
.Show "Dieses Fenster bleibt sichtbar ...<br /><br><b>... bis darauf geklickt wird</b>", 0, 50, 0, 5000

Gruß Andreas

Re: Formular zum Anzeigen von Meldungen

BeitragVerfasst: Di 28. Jul 2015, 14:06
von Josef Pötzl
Hallo!

Codemodule und Beispiel-Anwendung aus Beitrag #1 sind aktualisiert.

Dieses Form existiert nicht im Repository.

Ist nun im Repository enthalten.

.Move Me.WindowLeft + Me.WindowWidth * 3 / 4, Me.WindowTop

ersetzte ich durch
Code: Alles auswählen
.Move Me.WindowLeft + (Me.WindowWidth / 4) *3, Me.WindowTop


Außerdem noch einen "Anwendungs- oder objektdefinierter Fehler" in den Zeilen
.BackColor = vbBlack
.ForeColor = vbWhite
.Show "Dieses Fenster bleibt sichtbar ...<br /><br><b>... bis darauf geklickt wird</b>", 0, 50, 0, 5000

Diesen Fehler konnte ich nicht nachstellen.

LG
Josef