以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 Dot NET,C#,ASP,VB 』  (http://bbs.xml.org.cn/list.asp?boardid=43)
----  [求助]VB 显示图片？？急  (http://bbs.xml.org.cn/dispbbs.asp?boardid=43&rootid=&id=48954)

--  作者：zlq
--  发布时间：6/24/2007 4:59:00 PM

--  [求助]VB 显示图片？？急
通过二进制方式从access中读出一图片（jpg)，在picturebox loadpicture时 出现错误 “无效图片”，不知那位大虾给以指点？？ 代码如下：

'读取:
  Dim rs     As New ADODB.Recordset
  Dim Rss     As New ADODB.Stream
  Dim cnn     As ADODB.Connection
  Dim cnstr     As String
  cnstr = "rovider=Microsoft.Jet.OLEDB.4.0;Data   Source=" + App.Path + "\纸牌.mdb;Mode=ReadWriteersist   Security   Info=False"
  Set cnn = New ADODB.Connection
  'cnn.Open cnstr
  cnn.Open "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\纸牌.mdb"
  rs.Open "test", cnn, adOpenStatic, adLockOptimistic
  Rss.Type = adTypeBinary
  Rss.Open
  If Not rs.EOF Then
          Rss.Write rs.Fields("a2")
          Rss.SaveToFile App.Path & "\tmp.jpg"           '存为硬盘文件
          Picture1.Picture = LoadPicture(App.Path & "\tmp.jpg")                  出现错误，“无效图片” runtime error'481'
          Kill App.Path & "\tmp.jpg"
  End If
  rs.Close
  cnn.Close

--  作者：lizhong
--  发布时间：7/4/2007 2:21:00 PM

--  
是不是因为不是矢量图片所以进行的有问题呀
如果采用矢量图控件的方式不知道是否可以
用vc调用 visual graph这个ActiveX控件 在visual graph中Design（设计）和Run（运行)
我以前做工业图形控制系统做过

http://www.visual-graph.com
参考下也许有用也许帮不到你 后面的朋友帮忙呀!

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 31.250ms