dotNETportal.cz

Zdravím

následující kód má zajistit aby se mi do ComboBoxu v ToolStript vypsal název fontu zvoleného v RichTextBox. Funguje. Problém však nastává při zvolení výběru s více fonty. RichTextBox1.SelectionFont.OriginalFontName se pak rovná Nothing:

    Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged
        Dim Font As Integer = 0
        Dim SelFont = ""
        If (RichTextBox1.SelectionFont.OriginalFontName <> Nothing) Then
            SelFont = RichTextBox1.SelectionFont.OriginalFontName
        Else
            MsgBox("Err")
        End If

        Select Case SelFont
            Case "Microsoft Sans Serif" : Font = 1
            Case ("Arial") : Font = 2
            Case "Arial Bold" : Font = 3
            Case "Tahoma" : Font = 4
            Case "Verdana" : Font = 5
            Case "Times New Roman" : Font = 6
            Case "Courier New" : Font = 7
            Case "Courier" : Font = 8
            Case "Papyrus" : Font = 9
            Case Else : Font = 0
        End Select
        ToolStripComboBox1.SelectedIndex = Font
        Dim Size As Integer = 0
        Size = RichTextBox1.SelectionFont.Size
        ToolStripTextBox1.Text = Size.ToString()
    End Sub

Prosím, poraďte!

Přeji hezký den

Zdravím,

je to zajímavé řešení, ale jde mi o to, aby skript poznal, že je ve výběru více fontů a podle toho nastavil index v ComboBoxu na index s hodnotou "Více typů písem".

Přeji hezký den

Having the script detect when there are several fonts in the selection and then setting the ComboBox index to the index with the value "Multiple Fonts" is an intriguing option. https://run3online.io