[VB6 ] 開啟圖片檔案

[capslook1218 (努力向上..封棋..)]

我要做開啟圖片檔案

可是不知道為啥做不出來

是因為我的語法錯了嗎??

還是說要改成open的方式來開啟...

試過了但是一樣沒辦法開

以下附上我的source code

先謝謝大家的回答嚕

感謝

Private Sub Command2_Click()
    CommonDialog1.FileName = "chocolate"

    CommonDialog1.InitDir = App.Path

    CommonDialog1.Filter = "圖片檔(*.jpg)|*.jpg|所有檔案(*.)|*."

    CommonDialog1.ShowOpen

    If CommonDialog1.FileName = "chocolate" Then
       Exit Sub
    Else
       Picture1.picture = CommonDialog1.FileName

    End If
End Sub


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.136.150.91
→ tpjobp:Picture1.picture =LoadPicture(CommonDialog1.FileName)
→ capslook1218:okok....謝啦...