VB.NET加載圖片問題

'先建立一個bitmap對象，指向圖像文件

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

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()

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

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

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

2,加上:

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

'...Loading Images

me.ResumeLayout();

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

VB.net加載圖片某一位置

你要確定每個狀態(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

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

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