建立一个新工程,在form1上放一个PictureBox,放一个textbox和一个CommandButton。
然后复制一下代码:
Private Sub Command1_Click()
On Error GoTo ErrMsg
Picture1.Picture = LoadPicture(Text1.Text)
Exit Sub
ErrMsg:
MsgBox Err.Description, vbOKOnly + vbInformation, "出错了"
End Sub
直接在显示文本框内输入文字就可以了
Picture1.Picture=LoadPicture(Text1.Text)