高手来一下啊.

[z2955147]

怎么一点击就显示图片,Adodc这嗰我已经设置好了,就是差那嗰代码,谁知道代码说下,我不会帖图弄不上来

[Alco2007]

把问题说清楚先
是不是用数据库来显示图片?

[z2955147]

[Quote=引用楼主 z2955147 的帖子:]
怎么一点击就显示图片,Adodc这嗰我已经设置好了,就是差那嗰代码,谁知道代码说下,我不会帖图弄不上来
[/Quote]

shi 是的!

[liuxu2559]

Private Sub DataGrid1_Click()
    On Error GoTo err
    Dim str As String
    
    DataGrid1.Col = 5   '图片位置所在的列
    
    If DataGrid1.Text <> "" Then
        str = App.Path & "\Pics\" & DataGrid1.Text
        Picture1.Picture = LoadPicture(str)
        Picture1.Refresh
    Else
        MsgBox "没有图片信息"
    End If
    Exit Sub
err:
    MsgBox "图片不存在或路径不正确"
End Sub