本人新手,求一段代码:VB读取与保存图片

从ACCESS读出一些数据,同时出现同一目录下的对应图片;在增加新数据时,同时增加图片到此目录下,有类似的源代码能否发一份(jwbbs@)或上传一份给我,谢谢大侠了!

PictureBox

我也期待,能够学习下,可这上面好少人对图片的东东熟悉!

是啊！
名字可以保存到数据库，但不知道怎么读取出来并显示相应的图片？

PictureBox

已经会一点点了，请各位多多指教！谢谢！

选用图片
Private Sub Image1_Click()

If Image1.Enabled = True Then

   On Error GoTo s1

= True

= "Windows位图，图标 (*.bmp;*.ico)|*.bmp;*.ico|JPEG(*.jpg)|*.jpg;*.jpeg" '“指明打开图片的类型“


   

    If = "" Then Exit Sub

    strName =

    Me.Image1.Picture = LoadPicture(strName)   '“加载图片”



    Exit Sub

s1:

    strName = ""

End If

保存图片到指定的文件夹：

SavePicture Me.Image1.Picture, App.Path & "\Img\" & Text1.Text & ".jpg" '自定义图片名称

读取图片：

  Image1.Picture = LoadPicture(App.Path & "\Img\" & mrc.Fields(1) & ".jpg ")