十年網(wǎng)站開(kāi)發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶(hù) + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專(zhuān)業(yè)推廣+無(wú)憂(yōu)售后,網(wǎng)站問(wèn)題一站解決
picture本身不是文本控件,文本是“畫(huà)”上去的,換行需要用代碼測(cè)量每個(gè)字在指定字體下的寬度,判斷在當(dāng)前picture的寬度之下,一行能容納多少文字,剩下的文字就在下一行繪制。
創(chuàng)新互聯(lián)長(zhǎng)期為上千多家客戶(hù)提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù);打造開(kāi)放共贏平臺(tái),與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為靖宇企業(yè)提供專(zhuān)業(yè)的網(wǎng)站設(shè)計(jì)、做網(wǎng)站,靖宇網(wǎng)站改版等技術(shù)服務(wù)。擁有十多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。
兩種方法:
圖片框上蓋個(gè)Label 向其輸入內(nèi)容。
載入圖片,通過(guò)內(nèi)存直接?DrawImage繪制個(gè)新圖,然后在圖上蓋文字。最后賦值給圖片框。
VB6的print 實(shí)質(zhì)是向圖片框打印文字,不管有無(wú)圖都能在上面Print. 考慮速度和實(shí)現(xiàn)難度問(wèn)題,如果純粹顯示,最好直接蓋個(gè)Label最簡(jiǎn)單。第二種方法 需要考慮文字大小、顏色、坐標(biāo)定位等等。如果一行文字顯示不下,不會(huì)自動(dòng)換行,得自己切。
首先說(shuō)明,你這樣是寫(xiě)TXT,不是DOC,雖然Word可以打開(kāi),但根本就不是Word文件。當(dāng)然不能存儲(chǔ)圖片了。請(qǐng)參考我以下的代碼。建一個(gè)Command1。
================
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'這個(gè)過(guò)程不必做修改,是建立一個(gè)新的Word文檔
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="請(qǐng)輸入你要輸入的內(nèi)容"
'插入文字,請(qǐng)使用這種格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入圖片,請(qǐng)使用這種格式,路徑自己寫(xiě)
End
Sub
其他問(wèn)題再找我。