VB.NET加載圖片問題

'先建立一個(gè)bitmap對(duì)象，指向圖像文件

創(chuàng)新互聯(lián)公司服務(wù)項(xiàng)目包括潯陽(yáng)網(wǎng)站建設(shè)、潯陽(yáng)網(wǎng)站制作、潯陽(yáng)網(wǎng)頁(yè)制作以及潯陽(yáng)網(wǎng)絡(luò)營(yíng)銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，潯陽(yáng)網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到潯陽(yáng)省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

Dim pic As Bitmap = New Bitmap("e:\1.jpg")

'定義一個(gè)圖片框的graphics對(duì)象

Dim g As Graphics = PictureBox1.CreateGraphics()

'在圖片框上繪圖

g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

'釋放bitmap對(duì)象

pic.Dispose()

'現(xiàn)在即可對(duì)文件進(jìn)行操作

VB.net 如何快速加載顯示較大圖片

1,不要將這些代碼放在Form.Load事件里,最好放在構(gòu)造函數(shù)中!

2,加上:

me.SuspendLayout()'如果按鈕在其它容器中(如GroupBox):me.grp.SuspendLayout();

'...Loading Images

me.ResumeLayout();

圖形繪制最快的是Panel控件，用Panel速度蠻快

VB.net加載圖片某一位置

你要確定每個(gè)狀態(tài)的大小是一樣的才可以：

Public Bitmap CutImage(ByVal start As Point, ByVal end As Point, ByVal b As Bitmap)

Dim f As New Bitmap(end.X - start.X + 1, end.Y - start.Y + 1)

For i As Integer = start.X To end.X + 1

For j As Integer = start.Y To end.Y + 1

Dim c As Color = b.GetPixel(i, j)

f.SetPixel(i - start.X, j - start.Y, c)

Next

Next

Return f

End Sub

這個(gè)函數(shù)就可以用于裁剪圖像，返回裁剪后的圖像，start是開始裁剪的位置，end是結(jié)束裁剪的位置，b是要裁剪的圖像，假如你的這些按鈕每個(gè)寬30，高20，你就可以用

PictureBox1.Image = CutImage(New Point(第n - 1個(gè)按鈕 * 30, 0), New Point(第n個(gè)按鈕 * 30, 20), 按鈕存在的位圖)

文章標(biāo)題：vb.net加載圖片 vbnet imagelist
文章轉(zhuǎn)載：http://www.chinadenli.net/article28/dddsgjp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、小程序開發(fā)、服務(wù)器托管、外貿(mào)網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站、App開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)