具體操作步驟如下:
成都創(chuàng)新互聯(lián)公司成立與2013年,是專業(yè)互聯(lián)網技術服務公司,擁有項目成都做網站、成都網站制作網站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元單縣做網站,已為上家服務,為單縣各地企業(yè)和個人服務,聯(lián)系電話:13518219792
一、打開VB軟件,在窗體上面添加一個列表框,如下圖所示。
二、單擊列表框,在屬性窗口中,設置列表框的屬性和內容,如下圖所示。
三、在窗體上面,添加一個命令按鈕,如下圖所示。
四、設置,一個命令按鈕的屬性,名稱別為“清除”,如下圖所示。
五、雙擊“清除”命令按鈕,編輯其代碼,如下圖所示。
六、運行程序,驗證結果。選擇“政治”,點擊“清除”命令按鈕。
七、則列表框中“政治”項目消失。如下圖所示。
可在VB的按鈕事件中可對PictureBox圖片框控件屬性Picture賦值?LoadPicture(),清除裝載在PictureBox圖片框內的圖片。
LoadPicture 函數,將圖形載入到窗體的 Picture 屬性、PictureBox 控件或 Image 控件。
VB語言中LoadPicture函數用法示例:
本例使用 LoadPicture 函數將圖片加載到窗體的 PictureBox 控件并從控件上清除掉該圖片。要試用此例,將 PictureBox 控件添加入 Form 對象,然后將以下代碼粘貼到 Form?
的聲明部分,然后運行此例,單擊 Form 。
Private?Sub?Form_Click()
Dim?Msg?As?String???'?聲明變量。
On?Error?Resume?Next???'?設置錯誤句柄。
Height?=?3990
Width?=?4890???'?設置高度和寬度。
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
Imports?System.IO
Imports?System.IO.Directory
'?======================================================
'?實現一個靜態(tài)方法將指定文件夾下面的所有內容del
'?如果目標文件夾為只讀屬性就會報錯。
'?======================================================
Public?Shared?Sub?DelDir(ByVal?srcPath?As?String,?ByVal?aimPath?As?String)
Try
'?檢查目標目錄是否以目錄分割字符\結束,如果不是則添加之
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)
'?得到源目錄的文件列表,該里面是包含文件以及目錄路徑的一個數組
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設定循環(huán)時間,時間到則調用這個即可
雙擊button,在代碼窗中寫入下面這句話:
this.pictureBox1.Image = null
就可以實現你說的功能啦