如何使标签上的文本加粗、斜体或下划线？

Question

Dim enteredtext AS STRING = mytextbox.text

mylabel.content = enteredtext

如何将用户在文本框中输入的文本以粗体、斜体或下划线的形式输出到标签中。这三个选项应该由单选按钮启用。

- Willie Mwewa

Answer 1

您可以设置它们的字体样式。 例如：

mylabel.FontStyle = FontStyles.Italic

- DogeAmazed

---

非常感谢。我会看看如何处理它们。如果遇到问题，我会向您请教更多的内容。 - Willie Mwewa

Answer 2

您可以参考以下代码。

 <Grid>
    <StackPanel>
        <StackPanel Orientation="Horizontal">
            <RadioButton x:Name="rdBold" Checked="RadioButton_Checked" Content="Bold" GroupName="format"/>
            <RadioButton x:Name="rdItalics" Checked="rdItalics_Checked" Content="Italics" GroupName="format"/>
            <RadioButton x:Name="rdUnderline" Checked="rdUnderline_Checked" Content="Underline" GroupName="format"/>
        </StackPanel>
        <TextBox x:Name="txtBx" Width="200" Height="20"/>
        <TextBlock x:Name="txtBlk" Text="{Binding ElementName=txtBx,Path=Text}"/>
    </StackPanel>
</Grid>
Class MainWindow 

Private Sub RadioButton_Checked(sender As Object, e As RoutedEventArgs)
    txtBlk.FontWeight = FontWeights.Bold
    txtBlk.FontStyle = FontStyles.Normal
    txtBlk.TextDecorations = Nothing

End Sub

Private Sub rdItalics_Checked(sender As Object, e As RoutedEventArgs)
    txtBlk.FontWeight = FontWeights.Normal
    txtBlk.FontStyle = FontStyles.Italic
    txtBlk.TextDecorations = Nothing
End Sub

Private Sub rdUnderline_Checked(sender As Object, e As RoutedEventArgs)
    txtBlk.FontWeight = FontWeights.Normal
    txtBlk.FontStyle = FontStyles.Normal
    txtBlk.TextDecorations = TextDecorations.Underline
End Sub

结束类

- Ayyappan Subramanian

Answer 3

如果您只是偶尔这样做并希望在代码后台执行此操作，可以使用mylabel.FontStyle = FontStyles.Italic。如果标签始终需要加粗，则可以查看属性选项卡中的字体部分，并从那里选择颜色、大小、加粗、斜体、下划线、删除线等选项。

- Ryan Thomas