form Açılırken font yükleme
#1
merhaba arkadaşlar.

Form açılırken istenilen fontun install edilmesi gerekiyor.
yoksa tüm bilgisayarları dolaşmam gerekiyor.

form açılma olayında  code128.ttf  fontunu bilgisayara yükleyebilirmiyim.



  Alıntı
Bu mesajı beğenenler:
#2
Kod:
Private Const HWND_BROADCAST = &HFFFF&
Private Const WM_FONTCHANGE = &H1D
Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Sub FontYukle()
Dim fy As Long
' Ekleyeceğiniz font
fy= AddFontResource("C:\Fonts\code128.ttf") 'Font Dizininiz farklı ise burayı değiştirin
If fy > 0 Then
SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
MsgBox fy & " fontu eklendi!"
End If
End Sub



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Font değiştirmek asoha 2 271 15-10-2018, 19:11
Son Mesaj: dsezgin
  [FORM] form açıp form gizleme sorunu hersey 4 744 28-03-2018, 00:14
Son Mesaj: hersey
  [FORM] Tek Form üzerinden birden fazla form açmak. m_demir 2 668 27-01-2018, 21:07
Son Mesaj: m_demir
  [RAPOR] Rapor Açılırken Yazıcı Ve Kağıt Boyutu Seçme burhanb 4 795 19-09-2017, 11:17
Son Mesaj: burhanb
  [VBA] Fotoğraf yükleme etiketleme serdem48 6 1.391 30-03-2017, 20:22
Son Mesaj: serdem48
  [FORM] Form içinde iki farklı alana göre arama ve sonucu form kaydında gösterme volger 1 970 30-03-2017, 11:38
Son Mesaj: volger
  [FORM] access form da numlock çok sorunlu form sayfasında herzaman açık nasıl yapabilirim obaysal42 3 1.141 24-02-2017, 10:54
Son Mesaj: husem
  [VBA] Çoklu resim yükleme benuva 6 2.416 04-01-2017, 21:56
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi