以下是引用blackzhu在2012-6-7 8:03:00的发言: Dim txt AS WinForm.TextBox
Dim
pbx AS WinForm.PictureBox
pbx = Forms("窗口1").Controls("PictureBox1")
txt = Forms("窗口1").Controls("TextBox1")
pbx.Image = GetImage("C:\" & txt.Value & ".bmp")
试试这样!
pbx.Image = GetImage("d:\Photo\" & txt.Value & ".bmp")
pbx.Image = GetImage("d:\Photo\" & txt.Value & ".jpg")
......
根据常用的图片文件后缀名设置一个判断,用if,或sleect等。
[此贴子已经被作者于2013-6-14 11:07:34编辑过]