雙擊button,在代碼窗中寫入下面這句話:

站在用戶的角度思考問題,與客戶深入溝通,找到文山州網(wǎng)站設(shè)計與文山州網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、申請域名、網(wǎng)站空間、企業(yè)郵箱。業(yè)務(wù)覆蓋文山州地區(qū)。
this.pictureBox1.Image = null
就可以實現(xiàn)你說的功能啦
可在VB的按鈕事件中可對PictureBox圖片框控件屬性Picture賦值?LoadPicture(),清除裝載在PictureBox圖片框內(nèi)的圖片。
LoadPicture 函數(shù),將圖形載入到窗體的 Picture 屬性、PictureBox 控件或 Image 控件。
VB語言中LoadPicture函數(shù)用法示例:
本例使用 LoadPicture 函數(shù)將圖片加載到窗體的 PictureBox 控件并從控件上清除掉該圖片。要試用此例,將 PictureBox 控件添加入 Form 對象,然后將以下代碼粘貼到 Form?
的聲明部分,然后運行此例,單擊 Form 。
Private?Sub?Form_Click()
Dim?Msg?As?String???'?聲明變量。
On?Error?Resume?Next???'?設(shè)置錯誤句柄。
Height?=?3990
Width?=?4890???'?設(shè)置高度和寬度。
Picture1.Picture?=?LoadPicture("C:\Windows\Web\Wallpaper\Windows\img0.jpg",?vbLPCustom,?vbLPColor,?32,?32)
If?Err?Then
Msg?=?"Couldn't?find?the?.cur?file."
MsgBox?Msg???'?顯示錯誤消息。
Exit?Sub???'?如果發(fā)生錯誤則退出。
End?If
Msg?=?"Choose?OK?to?clear?the?bitmap?from?the?form."
MsgBox?Msg
Picture1.Picture?=?LoadPicture()???'清除?picturebox。
End?Sub
如果在程序中,可以用:PictureBox1.Image=Nothing
如果在設(shè)計階段,可以展開" Windows Form Designer generated code ",再找到
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)
刪除這一行就行了。
Imports?System.IO
Imports?System.IO.Directory
'?======================================================
'?實現(xiàn)一個靜態(tài)方法將指定文件夾下面的所有內(nèi)容del
'?如果目標文件夾為只讀屬性就會報錯。
'?======================================================
Public?Shared?Sub?DelDir(ByVal?srcPath?As?String,?ByVal?aimPath?As?String)
Try
'?檢查目標目錄是否以目錄分割字符\結(jié)束,如果不是則添加之
If?aimPath(aimPath.Length?-?1)??Path.DirectorySeparatorChar?Then
aimPath?+=?Path.DirectorySeparatorChar
End?If
'判斷源目錄是否存在,不存在則退出.
If?(Not?Directory.Exists(srcPath))?Then?Exit?Sub
'?判斷目標目錄是否存在如果不存在則新建之
If?(Not?Directory.Exists(aimPath))?Then?Directory.CreateDirectory(aimPath)
'?得到源目錄的文件列表,該里面是包含文件以及目錄路徑的一個數(shù)組
Dim?fileList()?As?String?=?Directory.GetFileSystemEntries(srcPath)
'?遍歷所有的文件和目錄
For?Each?FileName?As?String?In?fileList
'?先當作目錄處理如果存在這個目錄就遞歸Copy該目錄下面的文件
If?Directory.Exists(FileName)?Then
'?直接Delete文件
File.Delete(aimPath?+?Path.GetFileName(FileName))
end?if
Next
Catch?ex?As?Exception
MessageBox.Show(ex.ToString())
End?Try
End?Sub
然后你定義一個timer設(shè)定循環(huán)時間,時間到則調(diào)用這個即可
只需要用變量存儲 Image 對象,然后不需要的時候釋放掉就行了。
Dim img1 As Image
img1 = Image.FromFile(pic)
PictureBox1.Image = img1
'窗口關(guān)閉時
img1 = Nothing
如滿意,請采納。
名稱欄目:vb.net圖片清除,vb清除圖片框中的圖片
標題來源:http://chinadenli.net/article2/dsgihic.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站維護、網(wǎng)站導航、App開發(fā)、品牌網(wǎng)站建設(shè)、小程序開發(fā)、做網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)