有一個方法就是在picture上打印,代碼如下:
10年積累的網(wǎng)站設(shè)計(jì)、網(wǎng)站制作經(jīng)驗(yàn),可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你,你也不認(rèn)識我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程,更有新沂免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
Private
Sub
Command1_Click()
With
Picture1
.Cls
.CurrentX
=
100
.CurrentY
=
100
End
With
Picture1.Print
"OK"
End
Sub
但缺點(diǎn)挺多的,比如窗體的刷新就很麻煩。
還有就是用一個label控件,把label放到picture里,把backstyle屬性改成0就可以讓label透明了!
Private?Sub?Command1_Click()
Picture1.AutoRedraw?=?True
Picture1.AutoSize?=?True
Picture1.Picture?=?LoadPicture("f:\1.jpg")???'調(diào)入圖片,自己改
Picture1.Line?(90,?90)-(990,?300),?vbRed,?BF??'文字底色塊(紅)
Picture1.CurrentX?=?105??'文字位置
Picture1.CurrentY?=?105
Picture1.ForeColor?=?vbWhite??'文字顏色(白)
Picture1.FontSize?=?9??'字號
Picture1.Print?"hi,你好!"??'添加文字
SavePicture?Picture1.Image,?"f:\2.bmp"??'保存圖片,只能存為bmp
End?Sub
第一個問題 qq聊天室 必須能 用vb都可以做
第二個問題 vb.net插入數(shù)學(xué)公式 可以把這些公式封裝到一個類中,調(diào)用就是了
VB.NET在PicTureBox控件里顯示文本,似乎并不簡單,試試這段代碼,自己琢磨一下:
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim format1 As New StringFormat(StringFormatFlags.NoClip) '封裝文本布局信息(如對齊、文字方向和 Tab ??课唬?/p>
format1.LineAlignment = StringAlignment.Center '垂直居中
format1.Alignment = StringAlignment.Center '水平居中
Dim MyFont As New Font("宋體", 12, FontStyle.Regular)
Dim displayRectangle As New Rectangle() '存儲一組整數(shù),共四個,表示一個矩形的位置和大小
displayRectangle = New Rectangle(New Point(20, 20), New Size(200, 100))
e.Graphics.DrawString("歡迎使用VB Net", MyFont, Brushes.Black, RectangleF.op_Implicit(displayRectangle), format1) '顯示單元格里的文本
End Sub
首先說明,你這樣是寫TXT,不是DOC,雖然Word可以打開,但根本就不是Word文件。當(dāng)然不能存儲圖片了。請參考我以下的代碼。建一個Command1。
================
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'這個過程不必做修改,是建立一個新的Word文檔
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="請輸入你要輸入的內(nèi)容"
'插入文字,請使用這種格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入圖片,請使用這種格式,路徑自己寫
End
Sub
其他問題再找我。
1)PictureBox中沒有Print方法,如果你要存儲PictureBox中的圖片到某個地方,可以這樣做: pictureBox1.Image.Save("C:\\image.jpg", System.Drawing.Imaging.ImageFormat.Jpeg); 2)給圖片加文字: Image img = Image.FromFile("c:\\Hydrangeas.jpg"); //原來的圖片 Graphics g = Graphics.FromImage(img); //讀入到臨時(shí)畫圖區(qū)域 //加上說明性文字 g.DrawString("這是介紹圖片的文字", new Font("黑體", 20.0f), Brushes.LightCyan, new PointF(img.Height / 2, img.Width / 2)); //保存 g.Save(); //輸出 img.Save("C:\\try.jpg", System.Drawing.Imaging.ImageFormat.Jpeg);