Question

vb里如何显示图片或者文件

建立了一个“打开”对话框，然后选择了目标图片之后，怎么编程才能打开显示这个图片呢？
Private Sub Command4_Click()
CommonDialog1.Filter = "BMP图片(*.BMP)|*.BMP|JPG图片(*.JPG)|*.JPG|GIF图片(*.GIF)|*.GIF|所有文件(*.*)|*.*"
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileTitle
Text2.Text = CommonDialog1.FileName

End Sub

程序就是上面的程序了，然后图片怎么打开显示呢？文档应该也是通用的吧我以为？
谢谢楼上两位，请问文档类的怎么打开呢？我想显示那种浮动在窗体上可以移动的，不是像图片这样粘在窗体上那种.....请指导

Answer 1

Set rs = con.Execute("select * from tsb")
Do Until rs.EOF
If rs.Fields(0).Value = Item.Text Then
Exit Do
End If
rs.MoveNext
Loop
If rs.Fields(7).ActualSize = 0 Then
Image1.Picture = LoadPicture(App.Path & "\NotPic.jpg")
Else
Dim PicFile As String '声明图片路径变量
Dim byt() As Byte '声明二进制数组接收数据库信息
Dim lngch As Long
PicFile = App.Path & "\BokPic\" & rs.Fields(0).Value & ".jpg"
'给该变量符值用图书书号作文件名创建一个图片文件
ReDim byt(rs.Fields(7).ActualSize)
'ActualSize指示字段的值的实际长度
byt = rs.Fields(7).Value
'得到数据库图片信息
lngch = FreeFile '取得空闲的文件号
'将二进制数组byt符值给PicFile的文件
Open PicFile For Binary As #lngch
Put #lngch, , byt
Close #lngch
Image1.Picture = LoadPicture(PicFile)
End If
rs.Close
Set rs = Nothing
以前写的SQL数据库存图片的程序，其中Image1为PictureBox控件。
SQL中存图片表的字段类型应为image类型。
另外item应该是一个文本框用来输入图片的文件名。
该程序的数据库中以图片的有存储文件名及图片的两个字段，该程序的作用就是输入图片的文件名从数据库中查找到该图片，读取并显示。

Answer 2

先在窗口上加一个picture控件然后在command4_click最后加一句
picture1.Picture = LoadPicture(CommonDialog1.FileName)
文档类的例如txt文档
open 文件名 for input as #1
……
把内容读取出来
用textbox显示

Answer 3

在属性中设好图片，就可以，不能用代码LOAD。

Answer 4

Image1.Picture = LoadPicture(CommonDialog1.FileName)