'打开
Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
OpenFileDialog1.InitialDirectory = “c:” '设置默认位置
OpenFileDialog1.Filter = “txt file (.txt)|.txt|All Files(.)|(.)” '设置文件过滤器
OpenFileDialog1.Title = “打开文件” '设置对话框标题
OpenFileDialog1.ShowDialog() '显示打开对话框
End Sub
‘保存
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click
Dim SaveFileDialog1 As SaveFileDialog = New SaveFileDialog()
If RichTextBox1.TextLength > 0 Then
SaveFileDialog1.Filter = “Text files (.txt)|.txt|All Files(.)|(.)”
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> “” Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
End If
End Sub
VB.NET===关于OpenFileDialog, SaveFileDialog的控件的例程
最新推荐文章于 2024-03-19 18:01:43 发布