vb.net加载图片 VB添加图片

VB.net 如何快速加载显示较大图片

1,不要将这些代码放在Form.Load事件里,最好放在构造函数中!

目前创新互联公司已为上千余家的企业提供了网站建设、域名、虚拟主机、绵阳服务器托管、企业网站设计、绩溪网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

2,加上:

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

'...Loading Images

me.ResumeLayout();

图形绘制最快的是Panel控件，用Panel速度蛮快

'先建立一个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()

'现在即可对文件进行操作

先用image对象在后台加载。完了后赋给picturebox.image. 音乐文件类似用filestream

你要确定每个状态的大小是一样的才可以：

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)

Return f

End Sub

这个函数就可以用于裁剪图像，返回裁剪后的图像，start是开始裁剪的位置，end是结束裁剪的位置，b是要裁剪的图像，假如你的这些按钮每个宽30，高20，你就可以用

PictureBox1.Image = CutImage(New Point(第n - 1个按钮 * 30, 0), New Point(第n个按钮 * 30, 20), 按钮存在的位图)

网站栏目：vb.net加载图片 VB添加图片
网页网址：http://myzitong.com/article/dodidhj.html