Dim?bit?As?Bitmap=New?Bitmap(textBox1.ClientRectangle.Width,?_
在永勝等地區,都構建了全面的區域性戰略布局,加強發展的系統性、市場前瞻性、產品創新能力,以專注、極致的服務理念,為客戶提供成都網站設計、做網站 網站設計制作按需設計,公司網站建設,企業網站建設,成都品牌網站建設,營銷型網站建設,外貿營銷網站建設,永勝網站建設費用合理。
textBox1.ClientRectangle.Height,?_
System.Drawing.Imaging.PixelFormat.Format24bppRgb)
textBox1.DrawToBitmap(bit,textBox1.ClientRectangle)
pictureBox1.Image=bit
bit.Save("")'保存文件的路徑
這是保存文本框內容的方法,保存余下內容的方法我還要點事件弄
第一個問題 qq聊天室 必須能 用vb都可以做
第二個問題 vb.net插入數學公式 可以把這些公式封裝到一個類中,調用就是了
picture本身不是文本控件,文本是“畫”上去的,換行需要用代碼測量每個字在指定字體下的寬度,判斷在當前picture的寬度之下,一行能容納多少文字,剩下的文字就在下一行繪制。
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?font?As?New?Font("宋體",?16)
Dim?g?=?PictureBox1.CreateGraphics
Dim?str?As?String?=?"a001"
Dim?x?As?Integer?=?(PictureBox1.Size.Width?-?g.MeasureString(str,?font).Width)?/?2?'文字居中
Dim?y?As?Integer?=?0
Dim?nBrush?As?New?SolidBrush(Color.Turquoise)
g.FillRectangle(nBrush,?0,?0,?PictureBox1.Size.Width,?g.MeasureString(str,?font).Height)
nBrush?=?New?SolidBrush(Color.Red)
g.DrawString(str,?font,?nBrush,?x,?y)
g?=?Nothing
End?Sub
兩種方法:
圖片框上蓋個Label 向其輸入內容。
載入圖片,通過內存直接?DrawImage繪制個新圖,然后在圖上蓋文字。最后賦值給圖片框。
VB6的print 實質是向圖片框打印文字,不管有無圖都能在上面Print. 考慮速度和實現難度問題,如果純粹顯示,最好直接蓋個Label最簡單。第二種方法 需要考慮文字大小、顏色、坐標定位等等。如果一行文字顯示不下,不會自動換行,得自己切。
當前標題:vb.net字圖 vb·net
鏈接地址:http://vcdvsql.cn/article46/dosdchg.html
成都網站建設公司_創新互聯,為您提供外貿網站建設、用戶體驗、網站策劃、ChatGPT、定制開發、品牌網站制作
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯