كيف يتم تثبت فنت في القاعدة

حتى تتمكن من هذا يجب ان يكون لديك ملف الخط المطلوب مع البرنامج

و لتسجيل الخط اليك هذا الكود

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


Private Sub Command1_Click()
     AddFontResource "C:\PSAUDI5.TTF"    'ÍÏÏ ãÓÇÑ ÇáÎØ áÏíß
     SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
    'MsgBox "ok"
End Sub

Abo_Yossof كتب:

حتى تتمكن من هذا يجب ان يكون لديك ملف الخط المطلوب مع البرنامج

و لتسجيل الخط اليك هذا الكود

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


Private Sub Command1_Click()
     AddFontResource "C:\PSAUDI5.TTF"    'ÍÏÏ ãÓÇÑ ÇáÎØ áÏíß
     SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
    'MsgBox "ok"
End Sub

------------------------------------------------------------------------------------------

شاكر ومقدر لك اخي الكريم

شكرا اخي الكريم علي اهتمامك وردك ولكن هل يمكن ان يكون الكود في مثال حيث اني حاولت ان استعمل الكود ولكني لم افلح في ذلك وجزاك الله عنا خير

لللرفع