TKSoft-Online

Problemstellung:

Wie kann bei Mausbewegung das aktive Control hervor heben?

Voraussetzungen:

Das Bsp ist unter A97,A00, AXP, A03 lauffähig, unter A07 wurde es nicht getestet.

Es sind 2 Funktionen erforderlich. Eine um das Control hervorzuheben und das andere um beim Verlassen
den Urzustand wieder herzustellen.

Am Anfang müssen im Modulkopf einige Variablen deklariert werden.

Dim mstPrevControl As String
Dim iFWeight As Long
Dim bFUnder As Boolean
Dim bItalic As Boolean
Dim lngFColor As Long
Dim lngBColor As Long

Const cNormal = 400
Const cBold = 700

Private Function tk_SetFontProperty(sControlName As String, _
                                    Optional FontWProp As Long = cNormal, _
                                    Optional FontUProp As Boolean = False, _
                                    Optional FontIProp As Boolean = False, _
                                    Optional FontColor As Long = 0, _
                                    Optional ControlBackColor As Long = 16777215)
'*******************************************
'Name:      tk_SetFontProperty(Function)
'Purpose:   Ändert die Eigenschaften des Controls beim überfahren mit der Mouse
'Author:    Thomas Keßler
'Date:      April 28, 2004, 13:00:00
'Inputs:    sControlName = Name des Controls
'           FontWProp = Schriftstärke (Optional, Standard=Normal)
'           FontUProp = Text unterstrichen? (Optional, Standard = False)
'           FontIProp = Text kursiv? (Optional, Standard = False)
'           FontColor = Textfarbe (Optional, Standard = 0 Schwarz)
'           ControlBackColor = Hintergrundfarbe?
'           (Optional, Standard = 16777215 Weiß)
'Output:
'Example:   tk_SetFontProperty "Text1",cBold, , True, 255, 65535
'           Würde bei der Mausbewegung den Inhalt des Textfeldes "Text1" Fett,
'           nicht unterstrichen,
'           kursiv, Textfarbe Rot und Hintergrundfarbe Gelb darstellen
'*******************************************
On Error Resume Next

   mstPrevControl = sControlName
   With Me(sControlName)
        .FontWeight = FontWProp
        .FontItalic = FontIProp
        .FontUnderline = FontUProp
        .ForeColor = FontColor
        .BackColor = ControlBackColor
    End With
End Function

Syntax und Argumente:

würde das Textfeld "Text0", beim überfahren mit der Maus Fett, Unterstrichen, nicht kursiv, Textfarbe Rot und Feldhintergrund Gelb darstellen.

1. Zurücksetzen:

Um das Ganze beim Verlassen wieder rückgängig zu machen ist eine zweite Funktion erforderlich.
Diese wird im Ereignis "Bei Mausbewegung" des jeweiligen Formularbereiches aufgerufen.

Private Function tk_fRemoveFont(Optional FontWProp As Long = cNormal, _
                                Optional FontUProp As Boolean = False, _
                                Optional FontIProp As Boolean = False, _
                                Optional FontColor As Long = 0, _
                                Optional ControlBackColor As Long = 16777215)
'*******************************************
'Name:      tk_fRemoveFont(Function)
'Purpose:   Setzt die Änderungen die Eigenschaften des Controls beim überfahren
'           mit der Mouse zurück
'Author:    Thomas Keßler
'Date:      April 28, 2004, 13:00:00
'Inputs:    FontWProp = Schriftstärke (Optional, Standard=Normal)
'           FontUProp = Text unterstrichen? (Optional, Standard = False)
'           FontIProp = Text kursiv? (Optional, Standard = False)
'           FontColor = Textfarbe (Optional, Standard = 0 Schwarz)
'           ControlBackColor = Hintergrundfarbe?
'           (Optional, Standard = 16777215 Weiß)
'Output:
'Example:   tk_fRemoveFont()
'           Würde das aktuelle Textfeld nach Verlassen der Mouse wieder auf
'           Schriftstärke Normal
'           unterstrichen=Nein, kursiv=Nein, Textfarbe Schwarz und Hintergrundfarbe
'           Weiß zurücksetzen
'*******************************************
    On Error Resume Next
    With Me(mstPrevControl)
        .FontWeight = FontWProp
        .ForeColor = FontColor
        .FontItalic = FontIProp
        .FontUnderline = FontUProp
        .BackColor = ControlBackColor
    End With
End Function

Der Syntax und die Argumente sind denen der ersten Funktion ähnlich:

FontWProp = Schriftstärke, Optional Standardwert = Normal
FontUProp = Text unterstrichen, Optional Standardwert = nicht unterstrichen
FontIProp = Text kursiv? (Optional, Standard = False)
FontColor = Textfarbe (Optional, Standard = 0 Schwarz)
ControlBackColor = Hintergrundfarbe? (Optional, Standard = 16777215 Weiß)

Da alle Werte optional sind ist in der Regel keine Angabe erforderlich

Aufruf z.B.: im Detailbereich des Forms:

Würde die Werte wieder auf die Standardwerte zurücksetzen.

Aktuelles Formularfeld bei MouseMove-Ereignis, mit variabelen Format hervorheben

Downloads in dieser Kategorie

MS-Access Formulare

Seite: 1

• Aktuelles Formularfeld bei MouseMove-Ereignis, mit variabelen Format hervorheben
Aktuelles Formularfeld bei "MouseMove"-Ereignis, mit variabelen Format hervorheben
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Beliebigen Cursor in Formularen anzeigen
Beliebigen Cursor in Formularen anzeigen
für A00-A07

Die Zip-Datei enthält eine Version ab A00
• Einschränken von Textfeldeingaben durch das Ereignis Bei Taste
Einschränken von Textfeldeingaben durch das Ereignis "Bei Taste"
für A00-A03 , A07 nicht getestet

Die Zip-Datei enthält eine Version ab A00
• Gefundene Suchtextstellen im Textfeld markieren

Gefundene Suchtextstellen im Textfeld markieren
für A00-A03 , A07 nicht getestet

Die Zip-Datei enthält eine Version ab A00

• Große und farbige Checkboxen

Bsp-DB für die Anzeige von großen und farbigen Checkboxen

für A00-A07, unter Vista und Windows7 nicht getestet.


Die Zip-Datei enthält ein Version ab A00
• Hand-Cursor in Formularen anzeigen
Hand-Cursor in Formularen anzeigen
für A00-A07
Funktioniert auch unter Windows Vista

Die Zip-Datei enthält eine Version ab A00
• Listview Demo
Demo zur Benutzung des Listviews
für A00-A03, unter A07 und Vista nicht getestet.

Die Zip-Datei enthält ein Version ab A00
• Mehrfachauswahl eines Listenfeldes speichern
Mehrfachauswahl eines Listenfeldes speichern
für A00-A07

Die Zip-Datei enthält ein Version ab A00
• Setzen eines Markierungsrahmens um das aktive Control
Setzen eines Markierungsrahmens um das aktive Control
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Speichern der letzten Datensatz-Position in einer Property
Speichern der letzten Datensatz-Position in einer Property
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00

Seite: 2

• Ändern der Größe des MS-Access Programmfensters zu Laufzeit
Ändern der Größe des MS-Access Programmfensters zu Laufzeit
für A00-A03, unter A07 und Vista nicht getestet.

Die Zip-Datei enthält ein Version ab A00
• Beispiel für einen Belegungsplan
Beispiel für einen Belegungsplan
Die Zip-Datei enthält eine Version für A00 - A10

Powered by Tux Merlín Extensions