vb点虐预加载图片 vb加载图片的代码

怎么在vb中的image控件中加载图片呀？！

将图形加载到 Image 控件中可通过以下两种方法实现。

专注于为中小企业提供成都做网站、成都网站制作、成都外贸网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业中宁免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上1000家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

1）设计时从控件的“属性”窗口中选择 Picture 属性，

在image控件属性窗口对Picture属性进行设置-点右侧小按钮

选择图片-打开，图片就加载到Image控件。

2）在运行时使用 Picture 属性和 LoadPicture 函数都可将图形加载到 Image 控件。

Private Sub Form_Load()

Image1.Picture = LoadPicture("c:\Sunset.jpg", vbLPLarge, vbLPColor)

End Sub

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

1 在工具箱把OpenFileDialog和SaveFileDialog拖到窗体，此处设定其名称为OpenDlg和SaveDlg；

2 触发Button的点击事件，或PictureBox的点击事件，其对应的方法

OpenDlg.Filter = "图片文件(*.jpg,*.gif,*.bmp)|*.jpg|*.gif|*.bmp" '这是限定图片的格式

If OpenDlg.ShowDialog() = DialogResult.OK Then

Me.pictureBox1.image = image.fromFile(OpenDlg.FileName)

EndIf

3 保存图片

If SaveDlg.ShowDialog = DialogResult.OK Then

Me.pictureBox1.image.Save(SaveDlg.FileName, "") '第二个参数是图片格式

EndIf

纯手打，若拼写错误，那是很正常的。还有问题，请追问。

'先建立一个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点虐预加载图片 vb加载图片的代码
分享地址：http://scyanting.com/article/ddisoss.html