Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

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