suche fontdialog für privatefontcollection

filmee24 · 28. Juli 2012, 20:14

hallo,

ich suche einen fontdialog wo nicht die installierten fonts nutzt sondern die privatefontscollection.
gibt es so einen?

RodFromGermany · 29. Juli 2012, 09:46

Wie wäre es mit selber machen?
Eine RichTextBox zur Anzeige eines Textbeispiels für den Font
Eine ComboBox für die Namen der Fonts, ==> SelectedIndexChange ==> RichTextBox updaten
und einen Button zur Übernahme.
5 Minuten Programmierung, die meiste Zeit geht drauf, den Dialog gut aussehen zu lassen.

filmee24 · 29. Juli 2012, 10:41

und wie kann ich machen, das jedes item der combobox die font seines namens hat?

RodFromGermany · 29. Juli 2012, 10:52

Vielleicht so (Font kann leider nicht geerbt werden):

VB.NET-Quellcode

Public Class MyFont
Public Property Font As Font
Public Overrides Function ToString() As String
Return "MyFontString"
End Function
End Class

~blaze~ · 29. Juli 2012, 14:12

Hi
schau dir mal folgenden Code durch. Bitte kopier ihn aber nicht einfach nur, sondern versuche auch, ihn zu verstehen.

Spoiler anzeigen

Quellcode

Public Class CustomFontDialogForm
Inherits Form
'Standardnamen fuer Stile
Private Shared ReadOnly strStyleNames() As String = New String() {"Regular", "Bold", "Italic", "Bold, Italic"}
'Um unnoetigen Updates vorzubeugen
Private bUpdateFont As Boolean
'momentan ausgewaehlte Font-Familie
Private ffSelectedFontFamily As FontFamily
'momentan ausgewaehlte Schriftgroesse
Private sngSize As Single
'momentan ausgewaehlter Stil
Private fsFontStyle As FontStyle
'Setze die angezeigten Schriftarten
Public Sub SetFonts(ByVal fonts As IEnumerable(Of FontFamily))
Dim sz As Single = lbFont.Font.Size
lbFont.BeginUpdate()
lbFont.Items.Clear()
For Each f As FontFamily In fonts
'Alle anzuzeigenden Schriftarten unter Verwendung der durch die lbFont.Font.Size-Eigenschaft
'definierte Schriftgroesse in die lbFont-ListBox einreihen
lbFont.Items.Add(New Font(f, sz, GetDefaultStyle(f)))
Next
lbFont.EndUpdate()
End Sub
'Gibt den Standardstil der Schriftartenfamilie an, die zum Anzeigen in der Liste verwendet wird
Protected Overridable Function GetDefaultStyle(ByVal font As FontFamily) As FontStyle
If font.IsStyleAvailable(FontStyle.Regular) Then
Return FontStyle.Regular
ElseIf font.IsStyleAvailable(FontStyle.Bold) Then
Return FontStyle.Bold
ElseIf font.IsStyleAvailable(FontStyle.Italic) Then
Return FontStyle.Italic
ElseIf font.IsStyleAvailable(FontStyle.Italic Or FontStyle.Bold) Then
Return FontStyle.Italic Or FontStyle.Bold
Else
Throw New NotSupportedException()
End If
End Function
'Setzt den aktuell gewaehlten Font
Public Sub SetSelectedFont(ByVal font As Font)
Dim tmp As Integer = -1
bUpdateFont = True
'ausgewaehlte Schriftart finden und setzen
For i As Integer = 0 To lbFont.Items.Count - 1
If font.FontFamily.Name = DirectCast(lbFont.Items(i), Font).Name Then
tmp = i
Exit For
End If
Next
lbFont.SelectedIndex = tmp
'Bold und Italic in der Style-ListBox setzen
lbStyle.SelectedIndex = lbStyle.Items.IndexOf(font.Style And (FontStyle.Bold Or FontStyle.Italic Or FontStyle.Regular))
tmp = lbStyle.Items.IndexOf(font.Size) 'Ermitteln, ob die Schriftgroesse in der Liste eingetragen ist
'entsprechend reagieren
If tmp <> -1 Then
cbTypeSize.SelectedIndex = tmp
Else
cbTypeSize.Text = font.Size.ToString()
End If
cbStrikeout.Checked = font.Strikeout
cbUnderline.Checked = font.Underline
bUpdateFont = False
UpdateFont()
End Sub
Public Function GetSelectedFont() As Font
Return New Font(ffSelectedFontFamily, sngSize, fsFontStyle)
End Function
Private Sub UpdateFont()
If Not bUpdateFont Then
Dim df As Font = SystemFonts.DefaultFont
bUpdateFont = True
'Ungueltige Eingaben abfangen und entsprechend reagieren
If sngSize = 0.0 Then
sngSize = df.Size
End If
If lbFont.Items.Count = 0 Then
SetFonts(FontFamily.Families)
lbFont.SelectedIndex = lbFont.Items.IndexOf(df)
ElseIf lbFont.SelectedIndex = -1 Then
lbFont.SelectedIndex = Math.Max(0, lbFont.Items.IndexOf(df))
End If
If lbStyle.SelectedIndex = -1 Then
lbStyle.SelectedIndex = 0
End If
If cbTypeSize.SelectedIndex = -1 AndAlso String.IsNullOrEmpty(cbTypeSize.Text) Then
cbTypeSize.Text = df.Size.ToString()
End If
'Beispiel-Label updaten
lblExample.Font = New Font(ffSelectedFontFamily, sngSize, fsFontStyle)
bUpdateFont = False
End If
End Sub
Protected Overrides Sub OnVisibleChanged(ByVal e As System.EventArgs)
'Bei Sichtbarmachung Schriftart updaten
If Visible Then UpdateFont()
MyBase.OnVisibleChanged(e)
End Sub
Public Sub New()
InitializeComponent()
End Sub
Private Sub lbFont_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lbFont.DrawItem
Dim item As Font = DirectCast(lbFont.Items(e.Index), Font)
e.DrawBackground()
TextRenderer.DrawText(e.Graphics, lbFont.GetItemText(item), item, e.Bounds, e.ForeColor, TextFormatFlags.Left Or TextFormatFlags.VerticalCenter)
If (e.State And DrawItemState.Focus) = DrawItemState.Focus Then
e.DrawFocusRectangle()
End If
End Sub
Private Sub lbFont_Format(ByVal sender As Object, ByVal e As System.Windows.Forms.ListControlConvertEventArgs) Handles lbFont.Format
If e.DesiredType Is GetType(String) Then
e.Value = DirectCast(e.ListItem, Font).Name
End If
End Sub
Private Sub lbFont_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles lbFont.MeasureItem
Dim item As Font = DirectCast(lbFont.Items(e.Index), Font)
Dim sz As Size = TextRenderer.MeasureText(lbFont.GetItemText(item), item)
e.ItemHeight = sz.Height
e.ItemWidth = sz.Width
End Sub
Private Sub lbFont_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbFont.SelectedIndexChanged
'Unterstuetzte Optionen bei einer Aenderung der Schriftart updaten
ffSelectedFontFamily = DirectCast(lbFont.SelectedItem, Font).FontFamily
bUpdateFont = True
cbStrikeout.Checked = cbStrikeout.Checked AndAlso ffSelectedFontFamily.IsStyleAvailable(FontStyle.Strikeout)
cbUnderline.Checked = cbUnderline.Checked AndAlso ffSelectedFontFamily.IsStyleAvailable(FontStyle.Underline)
lbStyle.BeginUpdate()
lbStyle.Items.Clear()
'Von Schriftarten unterstuetzte Stile hinzufuegen
If ffSelectedFontFamily.IsStyleAvailable(FontStyle.Regular) Then
lbStyle.Items.Add(FontStyle.Regular)
End If
If ffSelectedFontFamily.IsStyleAvailable(FontStyle.Bold) Then
lbStyle.Items.Add(FontStyle.Bold)
End If
If ffSelectedFontFamily.IsStyleAvailable(FontStyle.Italic) Then
lbStyle.Items.Add(FontStyle.Italic)
End If
If ffSelectedFontFamily.IsStyleAvailable(FontStyle.Bold Or FontStyle.Italic) Then
lbStyle.Items.Add(FontStyle.Bold Or FontStyle.Italic)
End If
'Ueberpruefen, ob der aktuell gewaehlte Stil unterstuetzt wird
If ffSelectedFontFamily.IsStyleAvailable(fsFontStyle) Then
Dim ind As Integer = lbStyle.Items.IndexOf(fsFontStyle And (FontStyle.Bold Or FontStyle.Italic Or FontStyle.Regular))
lbStyle.SelectedIndex = ind
Else
fsFontStyle = DirectCast(lbStyle.Items(0), FontStyle)
End If
lbStyle.EndUpdate()
bUpdateFont = False
UpdateFont()
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
DialogResult = Windows.Forms.DialogResult.Cancel
Close()
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
DialogResult = Windows.Forms.DialogResult.OK
Close()
End Sub
Private Sub lbStyle_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lbStyle.DrawItem
Dim fs As FontStyle = DirectCast(lbStyle.Items(e.Index), FontStyle)
e.DrawBackground()
TextRenderer.DrawText(e.Graphics, strStyleNames(CInt(fs)), New Font(ffSelectedFontFamily, e.Font.Size, fs), e.Bounds, e.ForeColor, TextFormatFlags.Left Or TextFormatFlags.VerticalCenter)
End Sub
Private Sub lbStyle_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles lbStyle.MeasureItem
Dim fs As FontStyle = DirectCast(lbStyle.Items(e.Index), FontStyle)
Dim sz As Size = TextRenderer.MeasureText(e.Graphics, strStyleNames(CInt(fs)), New Font(ffSelectedFontFamily, lbStyle.Font.Size, fs))
e.ItemWidth = sz.Width
e.ItemHeight = sz.Height
End Sub
Private Sub Style_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbStyle.SelectedIndexChanged, cbStrikeout.CheckedChanged, cbUnderline.CheckedChanged
'Stil und Stilunterstuetzung updaten
Dim fs As FontStyle = DirectCast(lbStyle.SelectedItem, FontStyle)
If cbStrikeout.Checked Then
fs = fs Or FontStyle.Strikeout
End If
If cbUnderline.Checked Then
fs = fs Or FontStyle.Underline
End If
fsFontStyle = fs
cbStrikeout.Enabled = ffSelectedFontFamily.IsStyleAvailable(fs Or FontStyle.Underline)
cbStrikeout.Enabled = ffSelectedFontFamily.IsStyleAvailable(fs Or FontStyle.Strikeout)
UpdateFont()
End Sub
Private Sub cbTypeSize_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbTypeSize.TextChanged
cbTypeSize.BackColor = SystemColors.Window 'Farbaenderung bei Fehleingabe rueckgaengig machen
End Sub
Private Sub cbTypeSize_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbTypeSize.SelectedIndexChanged, cbTypeSize.Validated
Dim sz As Single
If Single.TryParse(cbTypeSize.Text, sz) AndAlso sngSize > 0.0F Then
sngSize = sz
UpdateFont()
Else
cbTypeSize.BackColor = Color.LightSalmon
System.Media.SystemSounds.Beep.Play()
cbTypeSize.Select()
End If
End Sub
Private Sub cbTypeSize_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cbTypeSize.Validating
Dim sng As Single
'ungueltige Eingaben abfangen
If Not Single.TryParse(cbTypeSize.Text, sng) OrElse sng <= 0.0F Then
cbTypeSize.BackColor = Color.LightSalmon
System.Media.SystemSounds.Beep.Play()
e.Cancel = True
End If
End Sub
#Region "Designer generated"
Private WithEvents lblTypeSize As System.Windows.Forms.Label
Private WithEvents lblExample As System.Windows.Forms.Label
Private WithEvents btnCancel As System.Windows.Forms.Button
Private WithEvents btnOK As System.Windows.Forms.Button
Private WithEvents gpExample As System.Windows.Forms.GroupBox
Private WithEvents gbEffect As System.Windows.Forms.GroupBox
Private WithEvents cbTypeSize As System.Windows.Forms.ComboBox
Private WithEvents lbStyle As System.Windows.Forms.ListBox
Private WithEvents lblFontStyle As System.Windows.Forms.Label
Private WithEvents lblFont As System.Windows.Forms.Label
Friend WithEvents cbStrikeout As System.Windows.Forms.CheckBox
Friend WithEvents cbUnderline As System.Windows.Forms.CheckBox
Private WithEvents lbFont As System.Windows.Forms.ListBox
Private Sub InitializeComponent()
Me.lbFont = New System.Windows.Forms.ListBox()
Me.lblFont = New System.Windows.Forms.Label()
Me.lblFontStyle = New System.Windows.Forms.Label()
Me.lbStyle = New System.Windows.Forms.ListBox()
Me.cbTypeSize = New System.Windows.Forms.ComboBox()
Me.lblTypeSize = New System.Windows.Forms.Label()
Me.gbEffect = New System.Windows.Forms.GroupBox()
Me.cbStrikeout = New System.Windows.Forms.CheckBox()
Me.cbUnderline = New System.Windows.Forms.CheckBox()
Me.gpExample = New System.Windows.Forms.GroupBox()
Me.lblExample = New System.Windows.Forms.Label()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.gbEffect.SuspendLayout()
Me.gpExample.SuspendLayout()
Me.SuspendLayout()
'
'lbFont
'
Me.lbFont.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbFont.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawVariable
Me.lbFont.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbFont.FormattingEnabled = True
Me.lbFont.Location = New System.Drawing.Point(12, 28)
Me.lbFont.Name = "lbFont"
Me.lbFont.Size = New System.Drawing.Size(164, 118)
Me.lbFont.TabIndex = 0
'
'lblFont
'
Me.lblFont.AutoSize = True
Me.lblFont.Location = New System.Drawing.Point(12, 12)
Me.lblFont.Name = "lblFont"
Me.lblFont.Size = New System.Drawing.Size(31, 13)
Me.lblFont.TabIndex = 7
Me.lblFont.Text = "Font:"
'
'lblFontStyle
'
Me.lblFontStyle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblFontStyle.AutoSize = True
Me.lblFontStyle.Location = New System.Drawing.Point(182, 12)
Me.lblFontStyle.Name = "lblFontStyle"
Me.lblFontStyle.Size = New System.Drawing.Size(33, 13)
Me.lblFontStyle.TabIndex = 8
Me.lblFontStyle.Text = "Style:"
'
'lbStyle
'
Me.lbStyle.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbStyle.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawVariable
Me.lbStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbStyle.FormattingEnabled = True
Me.lbStyle.Location = New System.Drawing.Point(182, 28)
Me.lbStyle.Name = "lbStyle"
Me.lbStyle.Size = New System.Drawing.Size(169, 118)
Me.lbStyle.TabIndex = 1
'
'cbTypeSize
'
Me.cbTypeSize.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbTypeSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
Me.cbTypeSize.FormattingEnabled = True
Me.cbTypeSize.Items.AddRange(New Object() {"8", "9", "10", "11", "12", "14", "16", "18", "20", "22", "24", "26", "28", "36", "48", "72"})
Me.cbTypeSize.Location = New System.Drawing.Point(360, 28)
Me.cbTypeSize.Name = "cbTypeSize"
Me.cbTypeSize.Size = New System.Drawing.Size(39, 133)
Me.cbTypeSize.TabIndex = 2
'
'lblTypeSize
'
Me.lblTypeSize.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblTypeSize.AutoSize = True
Me.lblTypeSize.Location = New System.Drawing.Point(357, 12)
Me.lblTypeSize.Name = "lblTypeSize"
Me.lblTypeSize.Size = New System.Drawing.Size(55, 13)
Me.lblTypeSize.TabIndex = 9
Me.lblTypeSize.Text = "Type size:"
'
'gbEffect
'
Me.gbEffect.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbEffect.Controls.Add(Me.cbStrikeout)
Me.gbEffect.Controls.Add(Me.cbUnderline)
Me.gbEffect.Location = New System.Drawing.Point(12, 164)
Me.gbEffect.Name = "gbEffect"
Me.gbEffect.Size = New System.Drawing.Size(199, 101)
Me.gbEffect.TabIndex = 10
Me.gbEffect.TabStop = False
Me.gbEffect.Text = "Effect"
'
'cbStrikeout
'
Me.cbStrikeout.AutoSize = True
Me.cbStrikeout.Location = New System.Drawing.Point(6, 19)
Me.cbStrikeout.Name = "cbStrikeout"
Me.cbStrikeout.Size = New System.Drawing.Size(71, 17)
Me.cbStrikeout.TabIndex = 3
Me.cbStrikeout.Text = "Strike out"
Me.cbStrikeout.UseVisualStyleBackColor = True
'
'cbUnderline
'
Me.cbUnderline.AutoSize = True
Me.cbUnderline.Location = New System.Drawing.Point(6, 42)
Me.cbUnderline.Name = "cbUnderline"
Me.cbUnderline.Size = New System.Drawing.Size(71, 17)
Me.cbUnderline.TabIndex = 4
Me.cbUnderline.Text = "Underline"
Me.cbUnderline.UseVisualStyleBackColor = True
'
'gpExample
'
Me.gpExample.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gpExample.Controls.Add(Me.lblExample)
Me.gpExample.Location = New System.Drawing.Point(217, 164)
Me.gpExample.Name = "gpExample"
Me.gpExample.Size = New System.Drawing.Size(200, 101)
Me.gpExample.TabIndex = 11
Me.gpExample.TabStop = False
Me.gpExample.Text = "Example"
'
'lblExample
'
Me.lblExample.Dock = System.Windows.Forms.DockStyle.Fill
Me.lblExample.Location = New System.Drawing.Point(3, 16)
Me.lblExample.Name = "lblExample"
Me.lblExample.Size = New System.Drawing.Size(194, 82)
Me.lblExample.TabIndex = 12
Me.lblExample.Text = "AaBbYyZz"
Me.lblExample.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btnOK
'
Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnOK.Location = New System.Drawing.Point(337, 277)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 6
Me.btnOK.Text = "&OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btnCancel
'
Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnCancel.Location = New System.Drawing.Point(256, 277)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 5
Me.btnCancel.Text = "&Cancel"
Me.btnCancel.UseVisualStyleBackColor = True
'
'CustomFontDialogForm
'
Me.ClientSize = New System.Drawing.Size(424, 312)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.gpExample)
Me.Controls.Add(Me.gbEffect)
Me.Controls.Add(Me.cbTypeSize)
Me.Controls.Add(Me.lblTypeSize)
Me.Controls.Add(Me.lblFontStyle)
Me.Controls.Add(Me.lbStyle)
Me.Controls.Add(Me.lblFont)
Me.Controls.Add(Me.lbFont)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(440, 350)
Me.Name = "CustomFontDialogForm"
Me.ShowIcon = False
Me.Text = "Select font..."
Me.gbEffect.ResumeLayout(False)
Me.gbEffect.PerformLayout()
Me.gpExample.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
End Class

Gruß
~blaze~

suche fontdialog für privatefontcollection

suche fontdialog für privatefontcollection

VB.NET-Quellcode

Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben