Richtextbox vb.net

如何解决Richtextbox vb.net

我有一个富文本框，里面装满了 vb.net 上的 SqlServer 查询结果。结果将所有项目水平连接，当达到富文本框边距时，它将换行。

代码：

   'Function of loading data into Datagridview

   Private Sub entregue()
    dgv1.Rows.Clear()
    Cursor.Current = Cursors.WaitCursor
    Dim consultando As New frm_aguarde_consultando
    consultando.Show()
    ' Set cursor as hourglass
    Application.DoEvents()

    Dim ano,mes,dia As Integer
    Dim var1data,var2data As Date
    Dim dinicio,dfim As String

    var1data = DateTimePicker1.Value '.ToString.Substring(0,10)
    dia = var1data.Day
    mes = var1data.Month
    ano = var1data.Year
    dinicio = ano & "-" & mes & "-" & dia

    var2data = DateTimePicker2.Value
    dia = var2data.Day
    mes = var2data.Month
    ano = var2data.Year
    dfim = ano & "-" & mes & "-" & dia

    Using sqlcoon As SqlConnection = GetConnectionsql()
        Dim READER As SqlDataReader
        'ENTREGUE
        Try
            sqlcoon.Open()
            Dim Query As String
            Query = "select MOV_IDENTIFICACAO,MOV_PROTOCOLO,MOV_DATADOC,MOV_SITUACAO,MOV_DATAENTREGA,MOV_HORAENTREGA,MOV_SITEND_CODIGO
                    from movimento where MOV_DATADOC = '" & dinicio & "' 
                    AND MOV_CLI_CODIGO = '" & txtcod.Text & "' AND MOV_SITUACAO = '" & "E" & "'
                    AND CAST(MOV_DATAENTREGA AS DATE) = '" & dfim & "' "


            Dim COMMAND As SqlCommand = New SqlCommand(Query,sqlcoon)

            READER = COMMAND.ExecuteReader

            While READER.Read
                Dim MOV_IDENTIFICACAO = READER("MOV_IDENTIFICACAO")
                Dim MOV_DATADOC = READER("MOV_DATADOC")
                Dim MOV_DATAENTREGA = READER("MOV_DATAENTREGA")
                Dim MOV_PROTOCOLO = READER("MOV_PROTOCOLO")
                Dim MOV_SITUACAO = READER("MOV_SITUACAO")
                Dim MOV_SITEND_CODIGO = READER("MOV_SITEND_CODIGO")
                dgv1.Rows.Add(MOV_IDENTIFICACAO,MOV_SITEND_CODIGO)

            End While
            READER.Close()
            sqlcoon.Close()

            For Each linha In dgv1.Rows
                Dim altura As Integer = 17
                linha.height = altura

            Next

            If dgv1.Rows.Count >= 0 Then
                ' Set cursor as default arrow
                Cursor.Current = Cursors.Default

                ' Hide the please wait form
                consultando.Hide()

            End If
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        Finally
            ' sqlcoon.Dispose()


        End Try

        sqlcoon.Open()

        Try


            For r As Integer = 0 To dgv1.Rows.Count - 1
                Dim COMMAND3 As SqlCommand
                Dim READER3 As SqlDataReader
                Dim Query_3 As String

                Query_3 = "select IMOV_CODIGORECBTO from imovimento where IMOV_MOV_IDENTIFICACAO ='" & dgv1.Rows(r).Cells(0).Value.ToString & "'"

                COMMAND3 = New SqlCommand(Query_3,sqlcoon)
                READER3 = COMMAND3.ExecuteReader

                While READER3.Read
                    Dim IMOV_CODIGORECBTO = READER3("IMOV_CODIGORECBTO")
                    'DataGridView1.Columns(6).HeaderCell.Value = "ID"
                    dgv1.Rows(r).Cells(6).Value = IMOV_CODIGORECBTO
                End While
                READER3.Close()

            Next
            dgv1.Sort(dgv1.Columns(6),ListSortDirection.Ascending)
            sqlcoon.Close()
        Catch ex As SqlException
            MsgBox(ex.Message)
        End Try


    End Using

End Sub
 
'Function of loading data into Richtextbox

Private Sub preenchimento_rchrelatorio()
Dim entregue = "ENTREGUE"
rchrelatorio.Text += entregue & Environment.NewLine & Environment.NewLine

For r As Integer = 0 To dgv1.Rows.Count - 1
    'richtextbox
    rchrelatorio.Text += dgv1.Rows(r).Cells(0).Value & "   "

Next

Dim totalentregue = "TOTAL:  " & dgv1.Rows.Count

rchrelatorio.Text += Environment.NewLine & Environment.NewLine & totalentregue & Environment.NewLine & Environment.NewLine

end sub

结果：

如何增加这个富文本框的行间距，使其看起来像这样：

有没有办法在 vb.net 上实现结果？我在 C# 中看到了很多形式，但我无法转换。

解决方法

为了能够这样解决：

 Imports System.Runtime.InteropServices

 Public Class frm_relatorio_entregas

  Private Structure Paraformat2
    Dim cbSize As UInteger
    Dim dwMask As UInteger
    Dim wNumbering As UInt16
    Dim wEffects As UInt16
    Dim dxStartIndent As Integer
    Dim dxRightIndent As Integer
    Dim dxOffset As Integer
    Dim wAlignment As UInt16
    Dim cTabCount As Int16
    <MarshalAs(UnmanagedType.ByValArray,SizeConst:=32)>
    Public rgxTabs() As Integer
    Dim dySpaceBefore As Integer
    Dim dySpaceAfter As Integer
    Dim dyLineSpacing As Integer
    Dim sStyle As Int16
    Dim bLineSpacingRule As Byte
    Dim bOutlineLevel As Byte
    Dim wShadingWeight As UInt16
    Dim wShadingStyle As UInt16
    Dim wNumberingStart As UInt16
    Dim wNumberingStyle As UInt16
    Dim wNumberingTab As UInt16
    Dim wBorderSpace As UInt16
    Dim wBorderWidth As UInt16
    Dim wBorders As UInt16
End Structure


<DllImport("user32",CharSet:=CharSet.Auto)>
Private Shared Function SendMessage(ByVal hWnd As HandleRef,ByVal msg As Integer,ByVal wParam As Integer,ByRef lParam As Paraformat2) As Integer
End Function


Const EM_LINEFROMCHAR As Integer = &HC9
Const EM_LINEINDEX As Integer = &HBB

Const EM_SETPARAFORMAT As Integer = &H447
Const PFM_LINESPACING As Integer = &H100

 Public Sub SelLineSpacing(ByVal rtbTarget As RichTextBox,ByVal SpacingRule As Byte,Optional ByVal LineSpacing As Integer = 20)

    Dim Para As New Paraformat2

    With Para
        ReDim .rgxTabs(31)

        .cbSize = CUInt(Marshal.SizeOf(Para))
        .dwMask = PFM_LINESPACING
        .bLineSpacingRule = SpacingRule
        .dyLineSpacing = LineSpacing
    End With

    Dim result As Integer = SendMessage(New HandleRef(rtbTarget,rtbTarget.Handle),EM_SETPARAFORMAT,1,Para)

    If result = 0 Then
        MessageBox.Show("EM_SETPARAFORMAT Failed")
    End If
End Sub

   Private Sub Button3_Click(sender As Object,e As EventArgs) Handles Button3.Click
    ' some dummy text to test with
    rchrelatorio.AppendText("2323" & vbCrLf)
    rchrelatorio.AppendText("2323" & vbCrLf)
    rchrelatorio.AppendText("2323" & vbCrLf)
    rchrelatorio.AppendText("2323" & vbCrLf)

    ' optionally select existing text
    ' so as to apply changes to the existing text
    ' as well as future text
    rchrelatorio.SelectAll()

    Dim s As String
    s = InputBox("Insert a RULE number (0 to 5)")

    ' SpacingRule
    ' Type of line spacing. To use this member,set the PFM_SPACEAFTER flag in the dwMask member. This member can be one of the following values.
    ' 0 - Single spacing. The dyLineSpacing member is ignored.
    ' 1 - One-and-a-half spacing. The dyLineSpacing member is ignored.
    ' 2 - Double spacing. The dyLineSpacing member is ignored.
    ' 3 - The dyLineSpacing member specifies the spacingfrom one line to the next,in twips. However,if dyLineSpacing specifies a value that is less than single spacing,the control displays single-spaced text.
    ' 4 - The dyLineSpacing member specifies the spacing from one line to the next,in twips. The control uses the exact spacing specified,even if dyLineSpacing specifies a value that is less than single spacing.
    ' 5 - The value of dyLineSpacing / 20 is the spacing,in lines,from one line to the next. Thus,setting dyLineSpacing to 20 produces single-spaced text,40 is double spaced,60 is triple spaced,and so on.


    Dim ruleNum As Byte

    ' returns ruleNum as the number input by the user,' or 255 if user input is bad
    If Not Byte.TryParse(s,ruleNum) Then ruleNum = 255

    Select Case ruleNum
        Case 0 ' Single spacing.
            SelLineSpacing(rchrelatorio,ruleNum)

        Case 1 ' One-and-a-half spacing.
            SelLineSpacing(rchrelatorio,ruleNum)

        Case 2 ' Double spacing.
            SelLineSpacing(rchrelatorio,ruleNum)

        Case 3 ' Spacing in Twips (1440 twips = 1 inch) : ignores spacing less than Single Spacing
            SelLineSpacing(rchrelatorio,ruleNum,720)

        Case 4 ' Spacing in Twips (1440 twips = 1 inch) : allows spacing less than Single Spacing
            SelLineSpacing(rchrelatorio,72)

        Case 5 ' Spacing in 20ths of a line (40 = Double Spacing : 100 = 5 line Spacing)
            SelLineSpacing(rchrelatorio,100)

        Case Else
            MessageBox.Show("rule number must be between 0 amd 5")
    End Select

End Sub

 End Class

用上面的代码，在richtextbox（rchrelatorio）填满文本然后按下按钮的那一刻，它会生成一个对话框，询问0到5之间的间距大小，然后直接运行庆祝。

重要细节。

一个问题，如果您想打印格式化的内容，您将不得不使用不更改配置的富文本框格式的运输方式。