Come installo un font sul computer di un utente in VB.NET in modo che applicazioni come Word possano usarlo?

Question

È necessario installare un carattere su tutti i computer dell'utente che utilizzerà l'applicazione che sto scrivendo e che crea documenti personalizzati in Word. È un tipo di codice a barre.

Ho aggiunto con successo il carattere alla mia soluzione e impostato la sua azione di compilazione su Risorsa incorporata e ho anche scritto correttamente il codice per verificare se il carattere è già installato sul sistema dell'utente.

Ora ho solo bisogno di capire come estrarre il tipo di carattere da mia soluzione e installarlo sul computer dell'utente come se fossero installati il ​​tipo di carattere se stessi per l'utilizzo in applicazioni di Office, ecc

La maggior parte degli esempi che ho Ho scoperto che ci sono per usare il font all'interno dell'applicazione VB.NET invece che all'esterno e quello che ho trovato che sembra adattarsi al mio scopo non funziona per me.

Answer 1

Copiare il font nella cartella dei font di Windows e quindi è necessario per ottenere il tipo di carattere aggiunto al Registro di sistema.Non l'ho provato da solo, ma penso che sia possibile farlo aprendo il font usando l'API ShellExecuteA in un modo simile a quello visto come here.

Ecco un modo VBScript di farlo che potrebbero essere utili come punto di partenza dal momento che potrebbe essere in grado di utilizzare la sintassi e le funzioni simili in VB.Net: Hey, Scripting Guy! How Can I Install Fonts Using a Script?

Answer 2

Per prima cosa copiate il font nella cartella font di Windows, quindi chiamate AddFontResource usando p/invoke.

Ecco un esempio, è in C#, ma si dovrebbe essere in grado di lavorare fuori:

UPDATE

Nuovo URL

http://brutaldev.com/post/2009/03/26/Installing-and-removing-fonts-using-C.aspx

Answer 3

In primo luogo, è necessario copiare il carattere nella directory Windows \ Fonts (ti consigliamo di utilizzare il metodo Environment.GetFolderPath fornito da .NET Framework invece di codificare manualmente il percorso tipico della finestra s directory, nel caso in cui qualcosa sia diverso in uno degli ambienti dei tuoi utenti).

Quindi, è necessario chiamare il AddFontResource function per aggiungere il carattere alla tabella dei caratteri di sistema. Poiché lo standard AddFontResource è fornito dall'API di Windows, è necessario P/Invoke per chiamarlo dal codice VB.NET. La dichiarazione simile a questa (il parametro lpszFilename è il percorso del file di carattere che si desidera aggiungere):

<DllImport("gdi32.dll"), CharSet := CharSet.Auto> _ 
Public Shared Function AddFontResource(ByVal lpszFilename As String) As Integer 

Infine, se Word (o qualsiasi applicazione che si intende utilizzare il tipo di carattere in) è esecuzione nel momento in cui si chiama la funzione AddFontResource dal codice, è necessario informarlo che i caratteri disponibili sono stati modificati. A tale scopo, inviare un messaggio WM_FONTCHANGE a tutte le finestre di livello superiore utilizzando la funzione SendMessage e impostando il parametro hWnd su HWND_BROADCAST. Di nuovo, avrai bisogno di P/Invoke; le dichiarazioni di simile a questa:

Public Const HWND_BROADCAST As Integer = &HFFFF 
Public Const WM_FONTCHANGE As Integer = &H1D 

<DllImport("user32.dll"), CharSet := CharSet.Auto> _ 
Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer 

e si dovrebbe chiamare per inviare il messaggio di trasmissione in questo modo:

SendMessage(New IntPtr(HWND_BROADCAST), WM_FONTCHANGE, IntPtr.Zero, IntPtr.Zero) 

NOTA: I passaggi di cui sopra installare solo il tipo di carattere per la sessione corrente di Windows. Se è necessario che il carattere sia disponibile nei successivi riavvii, è necessario aggiungerlo al registro. La chiave da modificare è questa:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts 

Answer 4

ho usato il progetto di installazione per installare i font I necessario con la mia applicazione e seguito questo guide