Instalar fonte

[Rodrigo Defende 0]

Como eu faco via VB a instalacao de uma fonte no windows?

[jubarick 0]

Abaixo segue o código para instalar uma fonte específica no Windows.

 

Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As LongDeclare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As LongSub Main()On Error Resume NextDim L As LongFileCopy "Herman__.TTF", "c:\windows\fonts\Herman__.TTF"L = AddFontResource("c:\windows\fonts\Herman__.TTF")EndEnd Sub

Este código foi colocado num módulo e o Start Up Object do projeto selecionado para Sub Main e instala a fonte "Herman__.TTF" que se encontra na mesma pasta do programa.

 

http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif Espero ter ajudado!

[explore 3]

Belo codigo

[Rodrigo Defende 0]

Valeu pelo codigo jubarick, mas somente uma pergunta:Essa fonte fica permanentemente instalada no windows?Outra coisa, terei de montar uma rotina pra pegar o diretorio de fontes do windows, pois para as varias versoes ele muda podendo ser winnt/fonts, win98/fonts, etc.... correto???Valeu

[jubarick 0]

Sim, com este código a fonte continuará instalada no Windows.

 

Veja como você pode conseguir o caminho da pasta do windows.

 

Declarações:Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As LongCódigo:Dim Caminho As String * 256GetWindowsDirectory Caminho, 256

A variável Caminho após a execução do Código armazenará o caminho da pasta windows do computador que ele foi executado. Daí você utiliza ela como precisar...

 

http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[Rodrigo Defende 0]

Value mais uma vez jubarick.

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Anderson Diggroc 0]

caro jubaricktem como eu fazer isso utilizando ASPSem mais Diggroc