vb.net文字竖排,vb文字竖排属性

如何用VB.net控制word中文字的行间距

你可以参考下这篇教程里面的方法C#设置段落间距，不过需要在你的工程文件中引用Spire.Doc.dll这个类库，

相关问答

Q1: vb.net中使Graphics.DrawString画一字符串都是横着显示,如何让此串字符竖着显示？

gf.DrawString("竖着的值", Font, Brush, new point(X,Y) ,new StringFormat(StringFormatFlags.DirectionVertical));

用这个方法可以

Q2: 高分求助，如何在VB.NET中做任意角度的旋转字体

文字编辑结束后，选择“移动”工具（工具箱第一个工具，快捷键V），然后按Ctrl+T快捷键进行“自由变换”，会在文字上出现控制框，把鼠标移到控制框外边指针就会变成旋转的样式，按住鼠标左键拖动就可以进行任意角度旋转了。

Q3: 请教大家怎么用VB.net控制word中文字的行间

添加spire.doc.jar为依赖，百度搜索免费版的下载即可

Imports Spire.Doc

Imports Spire.Doc.Documents

Imports System.Drawing

Namespace SetRowSpace

  Class Program

      Shared  Sub Main(ByVal args() As String)

          '创建文档

          Document doc  =  New Document()

          '添加section

          Dim s As Section =  doc.AddSection()

          '添加段落

          Dim para As Paragraph =  s.AddParagraph()

          para.AppendText("这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，" +

              "这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，这是测试文字，"+

              "这是测试文字，这是测试文字，这是测试文字，这是测试文字。")

          '设置段落中行距

          para.Format.LineSpacing = 20f

          '创建段落样式

          Dim style As ParagraphStyle =  New ParagraphStyle(doc)

          style.Name = "paraStyle"

          style.CharacterFormat.FontName = "宋体"

          style.CharacterFormat.FontSize = 13

          doc.Styles.Add(style)

          '应用段落样式

          para.ApplyStyle("paraStyle")

          '保存文档

          doc.SaveToFile("SetLineSpacing.docx", FileFormat.Docx2013)

          System.Diagnostics.Process.Start("SetLineSpacing.docx")

      End Sub

  End Class

End Namespace

Q4: vb.net中listbox内容自动换行如何实现

也不是不可以实现，只不过复杂一点而已，具体看下面代码。不过在需要换行等情况下的文本显示，还是建议用RichTextBox开启只读属性比较省心、比较合适。

Private Sub AutoNextRow()

    '获取ListBox行集合文本

    Dim length As Integer = (ListBox1.Items.Count - 1)

    Dim items(length) As String '行文本数组

    For i As Integer = 0 To length

        items(i) = ListBox1.Items(i).ToString

    Next

 

    '处理ListBox换行

    ListBox1.Items.Clear() '清空行内容

    Using g As Graphics = Graphics.FromHwnd(ListBox1.Handle)

        Dim result As New List(Of Object)

        Dim w As Single = ListBox1.ClientSize.Width

        Dim sf As SizeF, str As StringBuilder

        For Each s As String In items

            str = New StringBuilder

            For i As Integer = 0 To (s.Length - 1)

                sf = g.MeasureString(str.ToString  s(i), ListBox1.Font) 

                If sf.Width  w Then

                    result.Add(str.ToString)

                    str = New StringBuilder

                End If

                str.Append(s(i))

                If i = s.Length - 1 Then result.Add(str.ToString)

            Next

        Next

        ListBox1.Items.AddRange(result.ToArray) '填充行内容

    End Using

End Sub

Q5: VB如何让LABEL里的文字竖排

让LABEL里的文字竖排方法：

设置Label控件的Alignment为2

调整字号大小到显示单个字，或者收小Label控件的宽度（Width）

代码方法：

Private Function Vertical_Horizontal(ByVal nStr As String) As String

    Dim MyStr As String, i As Integer

    Static Vert As Boolean

    For i = 1 To Len(nStr)

        If i  Len(nStr) Then

            MyStr = MyStr + Mid$(nStr, i, 1)  vbCrLf

        Else

            MyStr = MyStr + Mid$(nStr, i, 1)

        End If

    Next

    Vertical_Horizontal = MyStr

    Vert = True

End Function

Private Sub Form_Load()

    Label1.AutoSize = True

    Label1.Caption = "VB如何让标签里的文字竖排"

    Label1.Caption = Vertical_Horizontal(Label1.Caption)

End Sub