請教大家怎么用VB.net控制word中文字的行間

添加spire.doc.jar為依賴，百度搜索免費版的下載即可

公司主營業(yè)務：網(wǎng)站設計、網(wǎng)站建設、移動網(wǎng)站開發(fā)等業(yè)務。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰(zhàn)，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出漢壽免費做網(wǎng)站回饋大家。

Imports Spire.Doc

Imports Spire.Doc.Documents

Imports System.Drawing

Namespace SetRowSpace

Class Program

? Shared? Sub Main(ByVal args() As String)

? ? ? '創(chuàng)建文檔

? ? ? Document doc? =? New Document()

? ? ? '添加section

? ? ? Dim s As Section =? doc.AddSection()

? ? ? '添加段落

? ? ? Dim para As Paragraph =? s.AddParagraph()

? ? ? para.AppendText("這是測試文字，這是測試文字，這是測試文字，這是測試文字，這是測試文字，" +

? ? ? ? ? "這是測試文字，這是測試文字，這是測試文字，這是測試文字，這是測試文字，這是測試文字，"+

? ? ? ? ? "這是測試文字，這是測試文字，這是測試文字，這是測試文字。")

? ? ? '設置段落中行距

? ? ? para.Format.LineSpacing = 20f

? ? ? '創(chuàng)建段落樣式

? ? ? 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

VB.NET中l(wèi)abel顯示的文字怎么居中？

Label 控件不可以水平，上下居中

不過可以用 PictureBox 控件做到

拖動一個 PictureBox 控件到工程，并命名為 picTextShow，把 AutoDraw 設為 True，加上以下代碼就可以實現(xiàn)：

Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要顯示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要顯示的文本"))

picTextShow.Print "要顯示的文本" End Sub

這樣文本就可以在圖片框中間顯示了。

VB.NET文本框中的文本格式進行相應的設置

太晚了，想不出什么好方法了。

發(fā)上來看看吧。

首先建立一個TextBox,我這里名字為TextBox2

然后放一個groupbox，在里頭放兩個Checkbox,checkbox1為粗體，checkbox2為斜體。

代碼：

Dim Bold As Boolean

Dim Italic As Boolean

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

If CheckBox1.Checked Then

Bold = True

If Italic Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold Or FontStyle.Italic)

Else

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)

End If

Else

Bold = False

If Italic Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)

Else

TextBox2.Font = New Font(TextBox2.Font, 0)

End If

End If

End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

If CheckBox2.Checked Then

Italic = True

If Bold Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic Or FontStyle.Bold)

Else

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)

End If

Else

Italic = False

If Bold Then

TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)

Else

TextBox2.Font = New Font(TextBox2.Font, 0)

End If

End If

End Sub

可以等等別人回答，看看有沒有更好的方法。

vb.net 字體設置

給點提示吧，已粗體為例（完全是我自己的方法，不知別人是怎么做的）：

'先獲取選擇的字體信息（字體、大小、樣式。。。）

Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont

'在重新定義某種樣式的時候，不丟失其他信息

RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)

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

你可以參考下這篇教程里面的方法C#設置段落間距，不過需要在你的工程文件中引用Spire.Doc.dll這個類庫，

vb.net中怎樣實現(xiàn)文本框不同行的對齊？

計算字符串的"字節(jié)長度":

dim dLength=System.Text.Encoding.Default.GetByteCount(theText)

注意,此方法只適用于"等寬"字體

網(wǎng)站欄目：vb.net文字排版,vb word 排版
標題網(wǎng)址：http://chinadenli.net/article24/dsgipje.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供動態(tài)網(wǎng)站、網(wǎng)站建設、移動網(wǎng)站建設、用戶體驗、外貿網(wǎng)站建設、微信公眾號

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)