A.S.C Filtre, Grafik ve Raporlama Eklentisi

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
  Dll Yükleme Hatası M_Kemal_Askeri 2 167 01-10-2019, 02:33
Son Mesaj: M_Kemal_Askeri
  [TABLO] Font değiştirmek asoha 2 421 15-10-2018, 19:11
Son Mesaj: dsezgin
  [FORM] form açıp form gizleme sorunu hersey 4 1.053 28-03-2018, 00:14
Son Mesaj: hersey
  [FORM] Tek Form üzerinden birden fazla form açmak. m_demir 2 901 27-01-2018, 21:07
Son Mesaj: m_demir
  [RAPOR] Rapor Açılırken Yazıcı Ve Kağıt Boyutu Seçme burhanb 4 924 19-09-2017, 11:17
Son Mesaj: burhanb
  [VBA] Fotoğraf yükleme etiketleme serdem48 6 1.654 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 1.140 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.311 24-02-2017, 10:54
Son Mesaj: husem

Foruma Git:


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