vb.net 畫圖對象問題

參考一下下面這段代碼：

成都創新互聯2013年至今，先為云巖等服務建站，云巖等地企業，進行企業商務咨詢服務。為云巖企業網站制作PC+手機+微官網三網同步一站式服務解決您的所有建站問題。

‘?首先picturebox1?加載一張圖像

FolderBrowserDialog1.Description?=?"選擇圖片文件夾導入圖片"

FolderBrowserDialog1.ShowDialog()

path?=?FolderBrowserDialog1.SelectedPath()

If?path?=?""?Then?Return

strSrcFile?=?Dir(path??"\*.tif")

PictureBox1.Image?=?Image.FromFile(path??"\"??strSrcFile)

’??然后再在picturebox1中用graphic畫圖而不清空原圖像

'?建立一個畫圖對象

Dim?g?As?Graphics?=?Me.PictureBox1.CreateGraphics

‘?定義畫筆

Dim?myPen?As?System.Drawing.Pen?=?New?System.Drawing.Pen(Color.Blue)

’?畫出矩形框并且填充顏色（顏色保持50%的透明度，使得下面原來的圖片背景能看得到）

g.DrawRectangle(myPen,?New?System.Drawing.Rectangle(50,?50,?30,?20))

g.FillRectangle(New?SolidBrush(Color.FromArgb(50,?Color.YellowGreen)),?New?System.Drawing.Rectangle(50,?50,?30,?20))

'?最后釋放畫圖對象

g.Dispose()

效果大致如下圖所示：

請問vb.net中如何實現窗體的清空

要在VB.NET中清屏已經不再是象是在VB6中那么簡單使用一條Cls就能搞定的,因為現在的VB.NET已經是完全面向對象的語言了,方法就不能和以前那樣了,下面給出清空窗體的源代碼,通過單擊按鈕清空,如下:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim g As Graphics

g = Me.CreateGraphics

g.Clear(Me.BackColor)

g.Dispose()

'釋放對象g所占用的資源

End Sub

OK,程序已經成功實現你要的功能,運行環境VS.NET2003+Windows 2003 Server

歡迎你加入群:30538950進行交流!

vb.net清空所有窗口

清空所有窗口的話，直接就是把所有的東西都劃掉就可以了，很簡單的。

文章標題：vb.netgdi清空 清空顯示內容
標題URL：http://vcdvsql.cn/article2/hehhoc.html

成都網站建設公司_創新互聯，為您提供ChatGPT、品牌網站設計、做網站、營銷型網站建設、網站策劃、網站建設

廣告

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