Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как программно установить шрифт? Добавлено: 12.08.03 14:58  

Автор вопроса:  Banzoy

Люди, выручайте!!! вопрос в теме сообщения... можно ли эту последовательность действий программно выполнить...

нажмите на кнопку "Пуск", выберите "Настройка" > "Панель управления" > "Шрифты" > "Файл" и "Установить новый шрифт". и т.д.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 aka



Вопросов: 2
Ответов: 60
  Web-сайт: hotmix.narod.ru
 Профиль | | #1 		Добавлено: 17.08.03 06:02

Private Declare Function AddFontResource& Lib "gdi32" Alias "AddFontResourceA" _
(ByVal lpFileName As String)
Private Declare Function RemoveFontResource& Lib "gdi32" Alias "RemoveFontResourceA" _
(ByVal lpFileName As String)
Dim nPath$
Private Sub Command1_Click()
Dim Result As Long
'Replace all 'MyFont' below with your font file.
Result = RemoveFontResource(nPath & "Advergot.ttf")
Command1.Caption = "uninstall"
End Sub

Private Sub Form_Load()
 If Right$(App.Path, 1) = "\" Then
    nPath = App.Path
 Else
    nPath = App.Path & "\"
 End If

 ;Dim Result As Long
 Command1.Caption = "uninstall"
 Result = AddFontResource(nPath & "Advergot.ttf")
 If Not retvalue Then Beep: Exit Sub
 Command1.FontName = "AdverGothic"
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам