form Açılırken font yükleme

cozum@msn.com · 12-07-2019, 10:03

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.

onur_can · 12-07-2019, 10:10

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

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası	OGUZTURKYILMAZ	3	690	13-04-2023, 23:39 Son Mesaj: OGUZTURKYILMAZ
	[FORM] Formda Arama Ve Kayıt Yükleme	Access Ziyaretçisi	2	514	30-08-2022, 19:58 Son Mesaj: Access Ziyaretçisi
	Listbox Taki Sütunlara Farklı Font Ayarlama	ozonozz	2	683	17-06-2020, 14:29 Son Mesaj: ozonozz
	Dll Yükleme Hatası	M_Kemal_Askeri	2	779	01-10-2019, 02:33 Son Mesaj: M_Kemal_Askeri
	[TABLO] Font değiştirmek	asoha	2	1.215	15-10-2018, 19:11 Son Mesaj: dsezgin
	[FORM] form açıp form gizleme sorunu	hersey	4	2.168	28-03-2018, 00:14 Son Mesaj: hersey
	[FORM] Tek Form üzerinden birden fazla form açmak.	m_demir	2	1.819	27-01-2018, 21:07 Son Mesaj: m_demir
	[RAPOR] Rapor Açılırken Yazıcı Ve Kağıt Boyutu Seçme	burhanb	4	1.781	19-09-2017, 11:17 Son Mesaj: burhanb

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL