Dim
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等。