关于显示图片

Question

在text框内输入图片路径，按命令按钮显示图片，如何编写判断该图片是否存在？谢谢

Answer 1

显示
Picture1.Picture = LoadPicture(Text1.Text)

Answer 2

Private Sub Command1_Click()
    If Dir(Text1) <> "" Then
        Picture1.Picture = LoadPicture(Text1)
    End If
End Sub

Answer 3

判断是否存在    
    i = Len(Dir$(Text1.Text))
    If i <> 0 Then
        Picture1.Picture = LoadPicture(Text1.Text)
    Else
        MsgBox "无效路径！"
    End If

Answer 4

使用image控件，stretch属性为true即可