Load Font File [بایگانی] - برنامه نویس

بمب منطقی

دوشنبه 27 مهر 1383, 23:53 عصر

سلام دوستان:
چجوری میشه یک فایل فونت رو بدون استفاده از Compunent ، فقط از طریق کد نویسی باز کرد.
خیلی ممنون میشم اگه به سوالم جواب بدین; چون بد جوری به جوابش احتیاج دارم.
:flower: :flower: :flower: :flower:

vbprogramer

سه شنبه 28 مهر 1383, 08:27 صبح

دوست عزیز منظورتون از باز کردن فونت چیه؟ :متفکر:
درست متوجه نشدم :confy2:

بابک زواری

سه شنبه 28 مهر 1383, 18:32 عصر

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
Private Sub Form_Load()
Dim res As Long
' add the font
res = AddFontResource("C:\Fonts\Nordic__.ttf")
If res > 0 Then
' alert all windows that a font was added
SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
MsgBox res & " fonts were added!"
End If
End Sub