7,762
社区成员
发帖
与我相关
我的任务
分享
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