picture本身不是文本控件,文本是“畫”上去的,換行需要用代碼測量每個字在指定字體下的寬度,判斷在當前picture的寬度之下,一行能容納多少文字,剩下的文字就在下一行繪制。
成都創(chuàng)新互聯(lián)不只是一家網(wǎng)站建設(shè)的網(wǎng)絡公司;我們對營銷、技術(shù)、服務都有自己獨特見解,公司采取“創(chuàng)意+綜合+營銷”一體化的方式為您提供更專業(yè)的服務!我們經(jīng)歷的每一步也許不一定是最完美的,但每一步都有值得深思的意義。我們珍視每一份信任,關(guān)注我們的網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè)質(zhì)量和服務品質(zhì),在得到用戶滿意的同時,也能得到同行業(yè)的專業(yè)認可,能夠為行業(yè)創(chuàng)新發(fā)展助力。未來將繼續(xù)專注于技術(shù)創(chuàng)新,服務升級,滿足企業(yè)一站式營銷型網(wǎng)站建設(shè)需求,讓再小的品牌網(wǎng)站設(shè)計也能產(chǎn)生價值!
‘首先,創(chuàng)建一個VB.NET項目,再點擊菜單”項目“-”添加引用“,在”Com“-”類型庫“里,選擇Microsoft.Word?14.0?Object?Library(對應Office版本為2010),將以下代碼復制粘貼到Form1窗體替換原代碼。
’PS:以下代碼僅創(chuàng)建表格,將第行2至4列合并,添加1個文字,其他的你自己分析。
Imports?Microsoft.Office.Interop
Imports?Microsoft.Office.Interop.Word??'引入Word
Public?Class?Form1
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
Dim?DWrd?As?New?Word.Application,?DDoc?As?Word.Document?'定義Word及文檔對象
DDoc?=?DWrd.Documents.Add?'新增文檔
Dim?DTbl?As?Word.Table??'定義表格對象
DTbl?=?DDoc.Tables.Add(DDoc.Range,?7,?4)??'新增表格
DTbl.Style?=?"網(wǎng)格型"??'表格的樣式
DTbl.Cell(1,?2).Select()??'選擇起始單元格為第1行/第2列
DWrd.Selection.MoveRight(,?2,?SelectionMode.MultiExtended)??'向右擴展兩個單元格(即選擇第1行的第2至4列)
DWrd.Selection().Cells.Merge()??'單元格合并
DTbl.Cell(1,?1).Range.Text?=?1??'在第1個單元格填寫文本
DWrd.Visible?=?True?'顯示W(wǎng)ord
End?Sub
End?Class
你可以在窗體上放一個lable控件,取名叫l(wèi)able1,
那么實現(xiàn)方式就是:
private
sub
form_load()
lable1.text="今天天氣很好";
end
sub
你可以試試