vb.net 畫圖對(duì)象問(wèn)題

參考一下下面這段代碼：

成都創(chuàng)新互聯(lián)2013年至今，先為云巖等服務(wù)建站，云巖等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為云巖企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。

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

FolderBrowserDialog1.Description?=?"選擇圖片文件夾導(dǎo)入圖片"

FolderBrowserDialog1.ShowDialog()

path?=?FolderBrowserDialog1.SelectedPath()

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

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

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

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

'?建立一個(gè)畫圖對(duì)象

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

‘?定義畫筆

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

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

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))

'?最后釋放畫圖對(duì)象

g.Dispose()

效果大致如下圖所示：

請(qǐng)問(wèn)vb.net中如何實(shí)現(xiàn)窗體的清空

要在VB.NET中清屏已經(jīng)不再是象是在VB6中那么簡(jiǎn)單使用一條Cls就能搞定的,因?yàn)楝F(xiàn)在的VB.NET已經(jīng)是完全面向?qū)ο蟮恼Z(yǔ)言了,方法就不能和以前那樣了,下面給出清空窗體的源代碼,通過(guò)單擊按鈕清空,如下:

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()

'釋放對(duì)象g所占用的資源

End Sub

OK,程序已經(jīng)成功實(shí)現(xiàn)你要的功能,運(yùn)行環(huán)境VS.NET2003+Windows 2003 Server

歡迎你加入群:30538950進(jìn)行交流!

vb.net清空所有窗口

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