读取图片

[jp0077777]

Private Sub Command1_Click()
a = Text1.Text & Text2.Text
Image1.Picture = LoadPicture("d:/'a'.bmp")
End Sub


图片名为 TEXT1。TEXT & TEXT2。TEXT

如果TEXT1。TEXT=1
TEXT2。TEXT=23

那么图片名为123
a=text1.text & text2.text
我用Image1.Picture = LoadPicture("d:\333.'a'.bmp")
读不出来
应该怎么样读
我想读到d:\333\目录下

谢了

[jp0077777]

说错了 是从d:的333目录下读取

[jhone99]

Image1.Picture = LoadPicture("d:\333\" & a & ".bmp")

[clear_zero]

Image1.Picture = LoadPicture("d:\333\" & a & ".bmp")

[jp0077777]

很奇怪啊 我不加LoadPicture("d:\" & a & ".bmp") 直接读就能读出来
但是一加LoadPicture("d:\333\ " & a & ".bmp") 就读不出来了
不知道是什么原因啊

[jp0077777]

好了搞定了 谢了

[jhone99]

你的文件到底在哪？
****************************************
LoadPicture("d:\333\ " & a & ".bmp")

这多个空格，看到没？

应该是
LoadPicture("d:\333\" & a & ".bmp")