hackerspk سب سےپہلے تو آپ کو سافٹ وئیر کی الفا ریلز پر بہت مبارک ہو۔ کیا ہی بہتر ہو کہ آپ ڈاونلوڈ کا لنک اپنے پہلے مراسلے میں دے دیں تاکہ ڈھونڈنے میں آسانی رہے.
جیسا کی شاکر بھائی نے پہلے بھی اشارہ دیا ، کہ جب سافٹ ویر لوڈ ہوتا ہے ، تو اس میں نستعلق فونٹ نہیں لوڈ ہوتا۔ آپ کی ہدایت کے مطابق میں نے آپ کا اپڈیٹڈ ورژن بھی ڈاونلوڈ کیا پر پھر بھی فایل میں لکھا ہوا ٹیکسٹ "Microsoft Sans Serif" فونٹ میں لوڈ ہوتا ہے۔
لیکن، جب سارے متن کو سلیکٹ کر کے مطلوبہ فونٹ سلیکٹ کیا جائے تو فونٹ تبدیل ہو جاتا ہے۔
اس کی شاید وجہ یہ بھی ہو سکتی ہے کہ آپ کے سافٹ ویر کا ڈیفالٹ فونٹ میرے کمپیوٹر میں انسٹالڈ نہیں۔ اور یہ شاید ان سب کے ساتھ بھی ہو جن کے کمپیوٹر میں یہ فونٹ نسب نہیں ، تو کیوں نہ پہلے
کوڈ:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
میں یہ چیک کر لیا جائے ، MSDN اقتباس:
کوڈ:
InstalledFontCollection installedFontCollection = new InstalledFontCollection();
// Get the array of FontFamily objects.
FontFamily[] fontFamilies = installedFontCollection.Families;
اور فونٹ کو انسٹال کروا دیا جائے۔ ، MSDN اقتباس:
کوڈ:
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("gdi32")> _
Public Shared Function AddFontResource(ByVal lpFileName As String) As Integer
End Function
<DllImport("user32.dll")> _
Public Shared Function SendMessage(ByVal hWnd As Integer, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Shared Function WriteProfileString(ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Integer
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Ret As Integer
Dim Res As Integer
Dim FontPath As String
Const WM_FONTCHANGE As Integer = &H1D
Const HWND_BROADCAST As Integer = &HFFFF
FontPath = WinFontDir & "\" & FontFileName
Ret = AddFontResource(FontPath)
Res = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
Ret = WriteProfileString("fonts", FontName & " (TrueType)", FontFileName)
End Sub
امید ہے آپ کی طرف سے مزید اچھی چیزیں دیکھنے کو ملیں گی۔ انشاءاللہ