نوشته اصلی توسط
~M*E*H*D*I~
کد زیر مشکل رو حل میکنه رویداد رو میتونید به Auto_Open تغییر بدید تا به محض باز شدن فایل اجرا بشه .
کد PHP:
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
Sub AddFont()
Dim res As Long
res = AddFontResource("C:\Fonts\irannaskh.ttf")
If res > 0 Then
SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
MsgBox res & " fonts were added!"
End If
End Sub
مسیر فونت رو قبل از اجرا به مسیر دلخواه تغییر بدید
علاقه مندی ها (Bookmarks)