Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
創(chuàng)新互聯專注為客戶提供全方位的互聯網綜合服務,包含不限于成都網站設計、成都網站制作、外貿網站建設、鄆城網絡推廣、小程序開發(fā)、鄆城網絡營銷、鄆城企業(yè)策劃、鄆城品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;創(chuàng)新互聯為所有大學生創(chuàng)業(yè)者提供鄆城建站搭建服務,24小時服務熱線:028-86922220,官方網址:chinadenli.net
PictureBox1.Image = Image.FromFile("D:\python\001.jpg")
PictureBox2.Image = Image.FromFile("D:\python\001.png")
End Sub
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
'建立新的系統(tǒng)進程????
Dim?process?As?New?System.Diagnostics.Process()
If?RadioButton1.Checked?Then
'設置文件名,此處為圖片的真實路徑+文件名????
process.StartInfo.FileName?=?"c:\a.bmp"
'設置進程運行參數????
process.StartInfo.Arguments?=?"rundll32.exe?shimgvw.dll"
Else
process.StartInfo.FileName?=?"mspaint.exe"
process.StartInfo.Arguments?=?"c:\a.bmp"
End?If
'此項為是否使用Shell執(zhí)行程序,因系統(tǒng)默認為true,此項也可不設,但若設置必須為true????
'process.StartInfo.UseShellExecute?=?True
'此處可以更改進程所打開窗體的顯示樣式,可以不設????
'process.StartInfo.WindowStyle?=?System.Diagnostics.ProcessWindowStyle.Hidden
process.Start()
process.Close()
End?Sub
放在解決方案資源管理器還沒完。進入項目屬性,資源,把解決方案資源管理器里的資源文件拖進來,改個便于調用的名稱,然后My.Resources里面就可以調用了。如果是VS可以識別的,那么就直接是Bitmap類型的,可以隱式轉換成Image類型。
點擊菜單--項目--WindowsApplication屬性(工程屬性),在打開的屬性窗口,選擇”資源“頁,點擊菜單--添加資源--添加現有文件,將硬盤上圖片文件添加進資源文件,文件名自動變?yōu)橘Y源名。
在代碼中,需要改變按鈕圖像時,用:
Button1.Image?=?My.Resources.FACE01??'FACE01是我的資源文件名,你要改成你自己的
'先建立一個bitmap對象,指向圖像文件
Dim pic As Bitmap = New Bitmap("e:\1.jpg")
'定義一個圖片框的graphics對象
Dim g As Graphics = PictureBox1.CreateGraphics()
'在圖片框上繪圖
g.DrawImage(pic, 0, 0, pic.Width, pic.Height)
'釋放bitmap對象
pic.Dispose()
'現在即可對文件進行操作
分享名稱:vb.net調用圖片 vb添加圖片
本文鏈接:http://chinadenli.net/article4/doddgoe.html
成都網站建設公司_創(chuàng)新互聯,為您提供企業(yè)網站制作、外貿網站建設、用戶體驗、標簽優(yōu)化、動態(tài)網站、網站設計公司
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯