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

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

sControlName = Name des Controls
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ß)

Aufruf im Ereignis "Bei Mausbewegung" des jeweiligen Controls: z.B.

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

PPrivate Sub Detailbereich_MouseMove(Button As Integer, Shift As Integer, _
                                    X As Single, Y As Single)
    [OnMouseMove] = tk_fRemoveFont()
End Sub

 

• Anzeigen, Erstellen und Löschen von Tabellenrelationen in externen DB's
• Auslesen von Tabellenfeldern und deren Eigenschaften aus externen DB's
• Auslesen von eingebauten und benutzerdefinierten CommandBars aus externen DB's
• Einlesen von Dateien in eine MS-Access Datenbank
• Temporäre Installation von TrueTypeFonts