[VB6 ] commondialog的問題
小弟我寫了以下的程式，用來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