根据表中的数据更改字体

时间:2016-06-08 11:36:14

标签: vb.net

我有一张存储合同条款和条件的表格 字段是:

tandc      Text
bold       Text
italic     Text
underline  Text

示例数据:

Delivery within 6 months        yes    no    yes
Full payment within 3 months    yes    no    no

当我检索数据时,我需要以这样的方式显示数据:如果名为bold的字段中的值为yes,则数据应为bold。如果bolditalicyes,则数据应为bolditalic,依此类推。

我该怎么做。

我正在使用vb.net,ms访问,数据将显示在richtextbox中。

1 个答案:

答案 0 :(得分:0)

以下是如何以编程方式将richtextbox更改为粗体的方法。然而,您的问题在数据方面并不十分清楚。如果您需要更多帮助,请显示您的代码。

 With Me.RichTextBox1
        If .SelectionFont IsNot Nothing Then
            Dim currentFont As System.Drawing.Font = .SelectionFont
            Dim newFontStyle As System.Drawing.FontStyle

            If .SelectionFont.Bold = True Then
                newFontStyle = currentFont.Style - Drawing.FontStyle.Bold
            Else
                newFontStyle = currentFont.Style + Drawing.FontStyle.Bold
            End If

            .SelectionFont = New Drawing.Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
        End If
    End With