نصب Font

[IamOverlord]

یا حق
سلام دوستان!
چه طور می تونیم چند تا Font که مثلا در "App.Path + "\Fonts هستند رو در لیست Font های کاربر نصب کنیم؟

[HamedNet_ir]

فونتها رو در
windir/fonts كپي كن

[saeedvir]

بفرما


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



Private Sub Form_Load()
'Add the font to the Windows Font Table
AddFontResource App.Path + "\"+ "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 App.Path + "\" + "myfont.ttf"
End Sub

[xxxxx_xxxxx]

قبل از ایجاد تاپیک...
کپی فونت در سیستم و رفرش آن (http://www.barnamenevis.org/forum/showthread.php?p=744157)
پیدا کردن مسیر فونتها در ویندوز و کپی فونت مورد نظر در آن (http://barnamenevis.org/forum/showthread.php?t=154693)
جستجو کنید...

تابعی که در پست قبل استفاده شده کارش کپی کردن فونت به پوشه Fonts سیستم نیست. در موردش در تاپیک های فوق توضیح داده شده.