Embedded resources TTF

Question

0.00/5 (No votes)

See more:

I am using TTF file through Embedded Resources but not showing font in RTBox but
same if i am applying on label1 on set property
Label1.UseCompatibleTextRendering = true font will be show if Property false font not show same thing i want to use in RTBox it can be possible.

What I have tried:

<system.drawing.toolboxbitmap(gettype(myttf), "myttf.ttf")="">
Public Class MyTTF
Inherits Windows.Forms.RichTextBox
End Class

Posted 12-Jul-19 0:16am

Computechsoft

Updated 12-Jul-19 7:11am

v2

Add a Solution

Comments

Maciej Los 12-Jul-19 7:10am

What is RTBox?

Computechsoft 12-Jul-19 7:13am

RichTextBox

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2019-07-12T01:18:00

Solution 1

I'd strongly recommend to read the documentation: How to: Set Font Attributes for the Windows Forms RichTextBox Control | Microsoft Docs[^]

Posted 12-Jul-19 1:18am

Maciej Los

Richard MacCutchan · Accepted Answer · 2019-07-12T01:19:00

Solution 2

See RichTextBox.SelectionFont Property (System.Windows.Forms) | Microsoft Docs[^]

Posted 12-Jul-19 1:19am

Richard MacCutchan

Comments

Computechsoft 12-Jul-19 7:50am

RTBox.SelectionFont = RTBox.GetSymbology39(14, FontStyle.Regular)

GetSymbology39 is ReadOnly Property another this is This font is not install in
Windows font folder i am using this property Through Embedded Resources.
but font is not display in RTBox. If i installed in windows font folder so (GetSymbology39) property work fine. without installation not work.

MadMyche 12-Jul-19 11:22am

I would recommend including the back history, it is pertinent to know that you are not using an installed font and that you have asked questions previously about this same font deployed

RickZeeland · Accepted Answer · 2019-07-12T07:11:00

Solution 3

See the last answer in the discussion here: Install Fonts In Windows If It Is Missing - VB.NET | Dream.In.Code[^]

Posted 12-Jul-19 7:11am

RickZeeland

Comments

Computechsoft 12-Jul-19 14:05pm

I see the last answer but i don't want to install font in windows font folder. I want to use font from Application resources folder. Its mean "Embedded Resources". I have applied this kindly check this i hope you will solve this issue.
************************************************************************

Imports System.Drawing.Text
Imports System.Runtime.InteropServices

Public Class Form1
Public Property SelectionFont As System.Drawing.Font
Public _PrivateFontColection As PrivateFontCollection = Nothing

ReadOnly Property GetSymbology(ByVal Size As Single, ByVal style As FontStyle) As Font
Get
If _PrivateFontColection Is Nothing Then LoadFont()
Return New Font(_PrivateFontColection.Families(0), Size, style)
End Get
End Property

Public Property StartingIndex As Integer

Private Sub LoadFont()
_PrivateFontColection = New PrivateFontCollection
Dim fontMemPointer As IntPtr = Marshal.AllocCoTaskMem(My.Resources.TTF.Length)
Marshal.Copy(My.Resources.TTF, StartingIndex, fontMemPointer, My.Resources.TTF.Length)
_PrivateFontColection.AddMemoryFont(fontMemPointer, My.Resources.TTF.Length)
Marshal.FreeCoTaskMem(fontMemPointer)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
RichTextBox1.SelectionFont = RichTextBox1.GetSymbology(14, FontStyle.Regular)
End Sub
End Class

Best regards

RickZeeland 12-Jul-19 15:58pm

It should be like this:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
RichTextBox1.SelectionFont = GetSymbology(14, FontStyle.Regular)
End Sub

If it does not work, try something like this:
RichTextBox1.SelectionFont = New Font("Tahoma", 12, FontStyle.Bold)

Computechsoft 13-Jul-19 5:34am

RichTextBox1.SelectionFont = RichTextBox1.GetSymbology(14, FontStyle.Regular)
if font install in windows font folder this is work if not install no work.
i don't want to install font in windows font folder. I am Using "Embedded Resources"

***********************************************************************

RichTextBox1.SelectionFont = New Font("Tahoma", 12, FontStyle.Bold)
Same Situation here