新聞中心
怎么設(shè)置VB清除按鈕,清除PictureBox里的圖片
可在VB的按鈕事件中可對PictureBox圖片框控件屬性Picture賦值?LoadPicture(),清除裝載在PictureBox圖片框內(nèi)的圖片。
10年積累的成都做網(wǎng)站、成都網(wǎng)站建設(shè)經(jīng)驗,可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你,你也不認識我。但先網(wǎng)站設(shè)計制作后付款的網(wǎng)站建設(shè)流程,更有懷仁免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
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
vb.net怎么強制刪除文件
先殺進程再刪除文件
Visual Basic code
//殺進程代碼
Private?Sub?KillProcess(ByVal?processName?As?String)
Dim?myproc?As?System.Diagnostics.Process?=?New?System.Diagnostics.Process
Try
For?Each?thisproc?As?Process?In?Process.GetProcessesByName(processName)
If?(Not?thisproc.CloseMainWindow())?Then
thisproc.Kill()
End?If
Next
Catch
End?Try
End?Sub
用vb.net代碼如何實現(xiàn)清空picturebox控件所加載的圖片?
雙擊button,在代碼窗中寫入下面這句話:
this.pictureBox1.Image = null
就可以實現(xiàn)你說的功能啦
vb.net刪除文件
Private?Sub?btnRemovePath_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?btnRemovePath.Click
Try
'?先建立目錄以便用于后續(xù)的刪除示范。
If?Not?Directory.Exists("D:\網(wǎng)易")?Then
Directory.CreateDirectory("?D:\網(wǎng)易?\Test1")
Directory.CreateDirectory("?D:\網(wǎng)易?\Test2")
Directory.CreateDirectory("?D:\網(wǎng)易?\Test3")
End?If
'?刪除子目錄?Test1。
Directory.Delete("?D:\網(wǎng)易?\Test1",?True)
'?刪除子目錄?Test2。
Dim?myDirectoryInfo?As?New?DirectoryInfo("?D:\網(wǎng)易?\Test2")
myDirectoryInfo.Delete(True)
'?將目錄?C:\AlexDirDemo?及其以下的文件和子目錄全數(shù)刪除。
Directory.Delete("?D:\網(wǎng)易?",?True)
Catch?ex?As?Exception
MessageBox.Show(ex.Message)
Exit?Sub
End?Try
'?啟動?Windows?資源管理器。
Process.Start("explorer.exe",?"D:\")
End?Sub
網(wǎng)頁標題:vb.net刪除圖片 vb刪除背景圖片
文章位置:http://www.ef60e0e.cn/article/doggoid.html