RichTextBox

RichTextBox zodpovězená otázka

před 18 lety

anonym

83.69.33.1

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

nahlásit spam 0 odpovědět

před 18 lety

Tomáš Herceg

1847 3847

Pokud vám stačí vypsat pouze font pro první znak z výběru, potom si uložte hodnotu RichTextBox1.SelectionLength do nějaké proměnné. Pak tuto vlastnost nastavte na nulu (tím se zruší výběr), zjistěte si font a na konec zase do této vlastnosti vraťte hodnotu z proměnné, aby se výběr zachoval.

nahlásit spam

2 / 2

odpovědět

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

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

před 18 lety

Tomáš Herceg

1847 3847

Aha, neprohlédnul jsem si pořádně Váš zdrojový kód. Jak tam máte ...OriginalFontName <> Nothing, v tom je ten problém. Pokud porovnáváme s Nothing, musíme použít operátory Is a IsNot.

Správně tedy má být ...OriginalFontName IsNot Nothing.

A do té větve Else dejte to nastavení ComboBoxu na hodnotu více typů písma a pak za tím dejte Exit Sub, aby se neprováděly další příkazy, které by mohly hodit chybu.

nahlásit spam

1 / 1

odpovědět

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

nahlásit spam

odpovědět