當我想把"**.RTF"檔案載入RICHTEXTBOX時,卻在CommonDialog1下找不到檔案,為什麼?此時我已將word檔轉成rtf檔案
Private Sub menOpen_Click()
On Error GoTo ErrHandler
CMDialog1.Filter = "RTF files(*.rtf) ! *.rtf ! Text files(*.txt) ! *.txt"
CMDialog1.FilterIndex = 1
CMDialog1.Action = 1
rtfBox.LoadFile CMDialog1.FileName
ErrHandler:
Exit Sub
End Sub
Private Sub menOpen_Click()
On Error GoTo ErrHandler
CMDialog1.Filter = "RTF files(*.rtf) ! *.rtf ! Text files(*.txt) ! *.txt"
CMDialog1.FilterIndex = 1
CMDialog1.Action = 1
rtfBox.LoadFile CMDialog1.FileName
ErrHandler:
Exit Sub
End Sub
文章標籤
全站熱搜
