یه سوال در مورد نصب فونت در موقع لود شدن فرم

[hex161]

با سلام
من میخواستم برنامم وقتی لود میشه فونت iran system navid رو نصب کنه .
ممنون از جواب.

[(سیدشریفی)]

نصب در پوشه فونت یا لود در برنامه ؟
اگر نصب در پوشه فونت باشد میتوتنی هنگام نصب برنامه این کار را انجام دهی ولی اگر میخواهی فقط هنگام لود شدن برنامه بتوانی از فونت استفاده کنی تابع زیر بدردت میخورد :

Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long

[hex161]

در پوشه فونت.
و در مورد کد شما : این تابع فونتی که کنار برنامم باشه رو استفاده میکنه؟
ممنون.

[mahdi_sh]

با سلام

میتونی هنگام نصب نرم افزارت روی سیستم دلخواه اون فونت رو نصب کنی راحتتره که :wink:

این نرم افزار رو امتحان کن ! Setup Factory اسم اونه ...

http://www.indigorose.com/downloads/trial_software.php
:sunglass:

[بابک زواری]

آقای hex161 کدی که آقای شریفی گذاشتن همونی هست که خدمتتون گفتم

[بابک زواری]

ببخشید اینم نمونه

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long

Dim AppPath As String

Private Sub Form_Load()

    AppPath = App.Path

    If Right$(AppPath, 1) <> "\" Then AppPath = AppPath + "\"

    'Add the font to the Windows Font Table

    AddFontResource AppPath + "myfont.ttf"

    'Write something on the form

    Me.AutoRedraw = True

    Me.FontName = "myfont"

    Me.Print "This is a test!"

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'Remove the font from the Windows Font Table

    RemoveFontResource AppPath + "myfont.ttf"

End Sub

[hex161]

ممنون از راهنمایی شما دوستان عزیز.