恒大集团的企业文化:vb6问题,

来源:百度文库 编辑:高考问答 时间:2024/05/02 18:41:55
我想问一下,比如我在数据库里面写进了jpg图片信息,(以二进制数据形式保存),我通过data控件用image控件显示图片,我希望能这样: 双击image可以用window自带的打开jpg格式的程序(比如xp默认打开jpg文件的是图片和传真查看器)打开.请问可以怎么实现呢?

回答的好加分
to :jizhongbo
你给我的程序,功能是实现了,但果能是按我原本的工程作修改,我会再多给一些分的

兄弟,程序我帮你重写了一下,发你信箱了,花了我不少时间。给这么少的分,你也太不厚道了!

你自己根据实际需要进行修改吧,程序要是有什么小毛病就不要再找我了,你的功能都已实现。

Private Sub Image1_DblClick(Index As Integer)
If Trim(pic8) <> \"\" Then
frmsize.Image1.Picture = Image1(Index).Picture
frmsize.Show 1
End If
End Sub
Private Sub Form_Resize()
Image1.Left = 0
Image1.Top = 0
Me.Height = Image1.Height
Me.Width = Image1.Width
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub
Private Sub Image1_Click()
Unload Me
End Sub