TKSoft-Online

Problemstellung:

Temporäres installieren von TrueTypeFonts unter MS-Access

Voraussetzungen:

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

Funktionsweise:

Die Installation erfolgt mittels der API-Funktion "AddFontResource" aus der gdi32.dll
Im Bsp selbst kommen eine ImageList und eine ImageCombo zum Einsatz.
Sie werden für die Darstellung der im System vorhandenen Laufwerke eingesetzt.
Da beide Steuerelemente nicht zur Standardausstattung von Access gehören sondern nur in
den Dev. Versionen bzw. VB enthalten sind, sollen sie hier unbetrachtet bleiben.

Auch den Datei-Öffnen Dialog lasse ich hier in der Betrachtung weg, da dies im allg. bekannt sein dürfte.
Kommen wir jetzt zum eigentlichen hinzufügen des Fonts.
Um die API-Funktion zu nutzen, muss diese im Modulkopf deklariert werden:
Wobei zu beachten wäre, wenn die Deklaration im Formular erfolgt, das es dann
"Private Declare Function" lauten muss.

Declare Function AddFontResource Lib "gdi32.dll" _
                 Alias "AddFontResourceA" (ByVal lpFileName As String) _
                 As Long

Die API-Funktion selbst gibt einen Long-Wert zurück, dieser gibt an ob das Hinzufügen des Fonts erfolgreich war oder nicht. 0=Fehler, -1=Erfolg

Dim Retval As Long
  Retval = AddFontResource(Me.Dateipfad)
    If Retval = 0 Then
        MsgBox "Die Funktion ist gescheitert", vbCritical, "Fehler"
      Else
        MsgBox "Es wurde " & Retval & " Font hinzugefügt.", _
        vbInformation, "Font hinzugefügt"
    End If

Auf ein Entfernen des Fonts wurde bewußt verzichtet, da die Installation nur temporär erfolgt und
alle hinzugefügten Fonts nach einem Systemneustart wieder deinstalliert sind.
Wer trotzdem daran Interesse hat, mit der API-Funktion "RemoveFontResource" wäre auch dies möglich.

Temporäre Installation von TrueTypeFonts

Downloads in dieser Kategorie

MS-Access Datei & System

Seite: 1

• Auslesen und ändern von Dateiattributen
Auslesen und Ändern von Dateiattributen unter VBA durch die
GetAttr- und SetAttr-Funktion und auslesen von Dateidatumsangaben
mittels der Scripting von MS.
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Verwendung DSO-Framer Control A00-A03

Bsp-DB für die Verwendung DSO-Framer Control
für A00-03

Die Zip-Datei enthält ein Version ab A00

• Verwendung DSO-Framer Control A07

Bsp-DB für die Verwendung DSO-Framer Control
für A07

Die Zip-Datei enthält ein Version ab A07

• Setup tkFileFunc-DLL
Bsp-DB zur Benutzung der tk_FileFunc.dll
Setup enthält folgende Dateien:

tk_FileList.mdb
tkFileFunc.dll

Für MS-Access ab A00-A07
getestet unter WinXP, Win Vista 32Bit und Win7 64Bit
• Auslesen und ändern von Datei-/Verzeichnisattributen
Auslesen und ändern von Datei-/Verzeichnisattributen mittels
FileSystemObject der MS-Scripting Runtime
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Ermitteln und Beenden von externen Programmen

Bsp-DB zum Ermitteln und Beenden von externen Programmen

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


Die Zip-Datei enthält ein Version ab A02
• Arbeiten mit INI-Dateien

Arbeiten mit INI-Dateien
für A00-A07

Die Zip-Datei enthält eine Version ab A00

• Temporäre Installation von TrueTypeFonts

Temporäre Installation von TrueTypeFonts
für A97-A03 , A07 nicht getestet

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

• Auslesen von Infos aller Laufwerke im System
Auslesen von Laufwerks-Informationen mittels der Scripting Runtime von MS.
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Arbeiten mit der Registry

Arbeiten mit der Registry
für A00-A07

Die Zip-Datei enthält eine Version ab A00

Seite: 2

• Arbeiten mit der ShellExecute-Methode

Arbeiten mit der ShellExecute-Methode
für A00-A07

Die Zip-Datei enthält eine Version ab A00-A03 und eine für A07

• Arbeiten mit EXIF-Tags und der GDI+ Library

Arbeiten mit EXIF-Tags und der GDI+ Library

 

Arbeiten mit EXIF-Tags und der GDI+ Library
ab A2000

Die ZIP-Datei enthält eine Version ab A2000

Powered by Tux Merlín Extensions