作者SixM (只有流星没有雨)
看板Visual_Basic
标题[VB6 ] commondialog的问题
时间Wed Oct 29 19:50:15 2008
小弟我写了以下的程式，用来load图片
程式中用到command1, commad2, text1, picture1,以及commondialog1
Private Sub Command1_Click()
Dim b As String
b = Text1.Text
Picture1.Picture = LoadPicture(".\Pic\" & b & ".bmp")
End Sub
Private Sub Command2_Click()
Dim LoadPic() As String
CommonDialog1.InitDir = ".\Pic"
CommonDialog1.ShowOpen
LoadPic() = Split(CommonDialog1.FileTitle, ".")
Text1.Text = LoadPic(0)
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
按下command1，程式会把写在text1.text上的图片名称的图片load进到picture1里面
按下command2，可以去浏览图片，并将选择的图片load到picutre1中
问题来了
当我按下command2，浏览图片时，按下取消，都会出现error
另外若是我成功的透过command2把图片load到picture1中之後
当我在text1.text在打图片名称，再按下command1，同样会出现错误
可以请各位版大帮我看看是哪边出了问题
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.87.130.125