[VB.NET] การกำหนดฟอนต์ให้กับตัวโปรแกรม เมื่อนำไปใช้งานกับเครื่องอื่น

thongkorn

เวลาที่เราออกแบบหน้าตาโปรแกรมอยู่ที่เครื่องของเรา การกำหนดฟอนต์ต่างๆให้กับ Control หากใช้ฟอนต์มาตรฐานมันก็ไม่มีปัญหา เมื่อเวลาที่เราต้อง Deployment โปรแกรมของเรา เพื่อนำไปใช้งานกับเครื่องอื่น แต่กรณีที่ใส่ฟอนต์ประหลาดเพิ่มเติมโดยที่ในตัว Windows ไม่มี มันก็จะไม่สามารถแสดงผลฟอนต์ให้ถูกต้องได้ หากเราไม่นำเอาฟอนต์ไปติดตั้งที่ %WinDir%\Fonts ของเครื่องปลายทาง ซึ่งการนำฟอนต์ไปใช้งานก็จะมีวิธีหลักๆอยู่ 3 วิธี คือ ...

1. ทำชุดติดตั้ง (Setup) อันนี้ไม่ว่าจะเป็น SetupFactory หรือ Inno Setup ที่แอดมินใช้ มันสามารถติดตั้งลงใน %WinDir%\Fonts และทำการ Registry ได้อย่างถูกต้อง ไม่มีปัญหาใดๆ
2. ไม่ทำชุดติดตั้ง แต่ Registry ฟอนต์เข้าไป กรณีนี้ไม่ได้ผล 100% หากเรานำไปไว้ที่ %WinDir%\Fonts เพราะ Windows 10 จะป้องกันเอาไว้ ดังนั้นจึงต้องทำ Registry ในตำแหน่งที่โปรแกรม EXE ของเราอยู่ แต่ทว่าหากเครื่องปลายทางนั้นมีฟอนต์ที่เราจะใช้อยู่แล้ว มันก็จะทำให้เกิดข้อผิดพลาดต่อโปรแกรมอื่นที่ต้องใช้ฟอนต์ตัวเดียวกัน
3. เรียกใช้ฟอนต์ด้วยโค้ด วิธีนี้ก็คือโค้ดชุดนี้นั่นเอง แต่อาจจะไม่สะดวกหากเรามี Control อยู่จำนวนมาก เพราะเราต้องกำหนดฟอนต์ด้วยโค้ดให้กับ Control ทุกๆตัว



ดาวน์โหลดฟอนต์ Kanit

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports System.IO
   
2. Imports System.Environment
   
3. Imports System.Drawing.Text
   
4. 
   
5. Public Class frmCustomFont
   
6.     Dim pfc As New PrivateFontCollection()
   
7. 
   
8.     Private Sub frmInstallFont_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
9.         Try
   
10.             '// Check Font exist.
    
11.             If My.Computer.FileSystem.FileExists(Environment.GetEnvironmentVariable("windir") & "\fonts\Kanit-regular.ttf") Then
    
12.                 MessageBox.Show("Font already exist.")
    
13.             Else
    
14.                 MessageBox.Show("Font not found.")
    
15.             End If
    
16.             '// Load Font to Control.
    
17.             pfc.AddFontFile(MyPath(Application.StartupPath) & "Kanit-Regular.ttf")
    
18.             Me.btnLoad.Font = New Font(pfc.Families(0), 9, FontStyle.Regular)
    
19.             Me.btnExit.Font = New Font(pfc.Families(0), 9, FontStyle.Regular)
    
20.         Catch ex As Exception
    
21.             MessageBox.Show(ex.Message)
    
22.         End Try
    
23.     End Sub
    
24. 
    
25.     Private Sub btnLoad_Click(sender As System.Object, e As System.EventArgs) Handles btnLoad.Click
    
26.         Call InitializeGrid()
    
27.         Call FillData()
    
28.     End Sub
    
29. 
    
30.     ' / --------------------------------------------------------------------
    
31.     Private Sub FillData()
    
32.         Dim dt As New DataTable
    
33.         dt.Columns.Add("ID")
    
34.         dt.Columns.Add("Name")
    
35.         dt.Columns.Add("PositionName")
    
36.         dt.Columns.Add("Salary")
    
37.         dt.Columns.Add("HireDate")
    
38.         dt.Rows.Add("00001", "นายทองก้อน ทับทิมกรอบ", "Managing Director", "99,999.99", "01/01/2562")
    
39.         dt.Rows.Add("00002", "นายบุญห่อ พ่อรวย", "Labour", "15,000.00", "01/06/2562")
    
40.         dt.Rows.Add("00003", "นางสาวคำหล้า น่ารัก", "Secretary", "19,999.50", "13/02/2562")
    
41.         dt.Rows.Add("00004", "นางบัวผัน ทันใจ", "House Keeper", "9,000.99", "24/01/2562")
    
42.         DataGridView1.DataSource = dt
    
43.     End Sub
    
44. 
    
45.     ' / --------------------------------------------------------------------
    
46.     '// การตั้งค่าเริ่มต้นให้กับตารางกริดในแบบ @Run Time
    
47.     Private Sub InitializeGrid()
    
48.         With DataGridView1
    
49.             .RowHeadersVisible = False
    
50.             .AllowUserToAddRows = False
    
51.             .AllowUserToDeleteRows = False
    
52.             .AllowUserToResizeRows = False
    
53.             .MultiSelect = False
    
54.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
55.             .ReadOnly = True
    
56.             .RowTemplate.MinimumHeight = 30
    
57.             .RowTemplate.Height = 30
    
58.             .Font = New Font(pfc.Families(0), 10, FontStyle.Regular)
    
59.             '/ จัดความกว้างของแต่ละหลัก โดยการจัดเรียงฟิลด์จาก QUERY ดังนี้
    
60.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
61.             '/ Adjust Header Styles
    
62.             With .ColumnHeadersDefaultCellStyle
    
63.                 .BackColor = Color.Navy
    
64.                 .ForeColor = Color.White
    
65.                 .Font = New Font(pfc.Families(0), 11, FontStyle.Regular)
    
66.             End With
    
67.         End With
    
68.     End Sub
    
69. 
    
70.     ' / --------------------------------------------------------------------------------
    
71.     ' / Get my project path
    
72.     ' / AppPath = C:\My Project\bin\debug
    
73.     ' / Replace "\bin\debug" with ""
    
74.     ' / Return : C:\My Project\
    
75.     Function MyPath(ByVal AppPath As String) As String
    
76.         '/ MessageBox.Show(AppPath);
    
77.         AppPath = AppPath.ToLower()
    
78.         '/ Return Value
    
79.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
80.         '// If not found folder then put the \ (BackSlash) at the end.
    
81.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
82.     End Function
    
83. 
    
84.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
85.         Me.Close()
    
86.     End Sub
    
87. 
    
88. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...

codingza

ของผมใช้แบบนี้ครับไม่ต้องลงฟอนต์ไว้ที่เครื่องเก็บไว้ในตัวโปรแกรมเลย

1.เพิ่มฟอนต์ที่ต้องการไว้ที่ Resources [ยกตัวอย่างฟอนต์ชื่อว่า TST_std_letter1_Regular]
2.สร้าง Module ตั้งชื่อว่า CustomFont
3.ใส่โค้ดลง Module ตามนี้

1. Imports System.Drawing.Text
   
2. Imports System.Runtime.InteropServices
   
3. Module CustomFont
   
4.     'PRIVATE FONT COLLECTION TO HOLD THE DYNAMIC FONT
   
5.     Private _pfc As PrivateFontCollection = Nothing
   
6.     Public ReadOnly Property GetInstance(ByVal Size As Single, ByVal style As FontStyle) As Drawing.Font
   
7.         Get
   
8.             'IF THIS IS THE FIRST TIME GETTING AN INSTANCE
   
9.             'LOAD THE FONT FROM RESOURCES
   
10.             If _pfc Is Nothing Then LoadFont()
    
11.             'RETURN A NEW FONT OBJECT BASED ON THE SIZE AND STYLE PASSED IN
    
12.             Return New Drawing.Font(_pfc.Families(0), Size, style)
    
13.         End Get
    
14.     End Property
    
15.     Private Sub LoadFont()
    
16.         Try
    
17.             'INIT THE FONT COLLECTION
    
18.             _pfc = New PrivateFontCollection
    
19.             'LOAD MEMORY POINTER FOR FONT RESOURCE
    
20.             Dim fontMemPointer As IntPtr = Marshal.AllocCoTaskMem(My.Resources.TST_std_letter1_Regular.Length)
    
21.             'COPY THE DATA TO THE MEMORY LOCATION
    
22.             Marshal.Copy(My.Resources.TST_std_letter1_Regular, 0, fontMemPointer, My.Resources.TST_std_letter1_Regular.Length)
    
23.             'LOAD THE MEMORY FONT INTO THE PRIVATE FONT COLLECTION
    
24.             _pfc.AddMemoryFont(fontMemPointer, My.Resources.TST_std_letter1_Regular.Length)
    
25.             'FREE UNSAFE MEMORY
    
26.             Marshal.FreeCoTaskMem(fontMemPointer)
    
27.         Catch ex As Exception
    
28.             'ERROR LOADING FONT. HANDLE EXCEPTION HERE
    
29.         End Try
    
30.     End Sub
    
31. 
    
32. End Module

คัดลอกไปที่คลิปบอร์ด

4.กลับไปใส่โค้ดหน้าฟอร์มโดยโค้ดที่เรียกใช้ฟอนต์ดังนี้

1. Public Class Form1
   
2. 
   
3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
4.         Label1.UseCompatibleTextRendering = True
   
5.         Label1.Font = CustomFont.GetInstance(12, FontStyle.Regular)
   
6.         Label1.Text = "ฟอนต์ที่ใช้ทดสอบคือฟอนต์ TST STD LETTER 1"

คัดลอกไปที่คลิปบอร์ด

MMEE007

ขอบคุณคับ