Dočasná instalace fontu |
![]() |
Postup: Do deklarační části formuláře zapište: Private Declare Function AddFontResource& Lib "gdi32" _ Alias "AddFontResourceA" (ByVal lpFileName As String) Private Declare Function RemoveFontResource& Lib "gdi32" _ Alias "RemoveFontResourceA" (ByVal lpFileName As String) Na formulář přidejte tlačítko a zapište: Private Sub Command1_Click() Dim retvalue As Long retvalue = RemoveFontResource("c:\MyFont.ttf") Command1.Caption = "Odebrat" End Sub Private Sub Form_Load() Dim retvalue As Long Command1.Caption = "uninstall" retvalue = AddFontResource("c:\MyFont.ttf") Command1.FontName = "Nainstalovat" End Sub |
![]() |
Autor: The Bozena |