[vb.net] 경로 또는 리소스(Resources) ttf 파일 폰트 변환 > vb.net

경로:)

  Dim privateFonts As New System.Drawing.Text.PrivateFontCollection()

  privateFonts.AddFontFile("C:\Program Files (x86)\Hnc\Office 2018\HOffice100\Shared\TTF\Hwp\Easop.ttf")

  Dim fam As FontFamily = privateFonts.Families(0)

  Dim font As New System.Drawing.Font(fam, 12)

​

​

Resources:)

  Dim myFonts As PrivateFontCollection

  Dim fontBuffer As IntPtr

  myFonts = New PrivateFontCollection()

  Dim font As Byte() = My.Resources.HYBSRB '// Easop

  fontBuffer = Marshal.AllocCoTaskMem(font.Length)

  Marshal.Copy(font, 0, fontBuffer, font.Length)

  myFonts.AddMemoryFont(fontBuffer, font.Length)

  Dim fam As FontFamily = myFonts.Families(0)

  Dim fnt As Font = New Font(fam, 16)

​

​

예제:)