返回首页

在这里,我不能在下面的编码可以查看(RTF)和文件(DOC)
所以请我指导下面的编码


Imports System.IO

Public Class Form1

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Using fold As New OpenFileDialog

            fold.Filter = "document files (*.doc)|*.doc |richtext format(*.rtf) | *.rtf |All files (*.*)|*.*"

            fold.Title = "Select file"

            If fold.ShowDialog() = Windows.Forms.DialogResult.OK Then

                ' fold.FilterIndex = 2

                fold.RestoreDirectory = True

                MessageBox.Show("You selected " & fold.FileName)

            End If

        End Using

    End Sub

End Class

回答

评论会员:LanFanNinja 时间:2012/02/06
您需要在您的过滤器中删除空格使用这个

fold.Filter = "document files (*.doc)|*.doc|richtext format(*.rtf)|*.rtf|All files (*.*)|*.*"
评论会员:游客 时间:2012/02/06
韦恩Gaylard:你不应该有任何空格之间的文件声明。试试这个codeprelang="vb"spanclass="code-keyword"Using/spanfoldspanclass="code-keyword"As/spanspanclass="code-keyword"New/spanOpenFileDialogfold.Filter=spanclass="code-string""/spanspanclass="code-string"documentfiles(*.doc)|*.docx|richtextformatfiles(*.rtf)|*.rtf|Allfiles(*.*)|*.*"/spanfold.Title=spanclass="code-string""/spanspanclass="code-string"Selectfile"/spanspanclass="code-keyword"If/spanfold.ShowDialog()=Windows.Forms.DialogResult.OKspanclass="code-keyword"Then/spanspanclass="code-comment"'/spanspanclass="code-comment"fold.FilterIndex=2/spanfold.RestoreDirectory=spanclass="code-keyword"True/spanMessageBox.Show(spanclass="code-string""/spanspanclass="code-string"Youselected"/span&fold.FileName)spanclass="code-keyword"End/spanspanclass="code-keyword"If/spanspanclass="code-keyword"End/spanspanclass="code-keyword"Using/span/pre/code希望这有助于