Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在vb.net中使用savefiledialog_Vb.net_Savefiledialog_Textedit - Fatal编程技术网

如何在vb.net中使用savefiledialog

如何在vb.net中使用savefiledialog,vb.net,savefiledialog,textedit,Vb.net,Savefiledialog,Textedit,我有一个叫做TextEditPro的程序,我刚启动它,我遇到了一个问题 当我有代码点击另存为。。。我不知道如何使用savefiledialog,因此当您单击“另存为”时,它会弹出 有什么帮助吗?学习使用-forSaveFileDialog有一个例子 Private Sub button1_Click(sender As Object, e As System.EventArgs) Dim myStream As Stream Dim saveFileDialog1 As New

我有一个叫做TextEditPro的程序,我刚启动它,我遇到了一个问题

当我有代码点击另存为。。。我不知道如何使用savefiledialog,因此当您单击“另存为”时,它会弹出

有什么帮助吗?

学习使用-for
SaveFileDialog
有一个例子

Private Sub button1_Click(sender As Object, e As System.EventArgs)
    Dim myStream As Stream
    Dim saveFileDialog1 As New SaveFileDialog()

    saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
    saveFileDialog1.FilterIndex = 2
    saveFileDialog1.RestoreDirectory = True 

    If saveFileDialog1.ShowDialog() = DialogResult.OK Then
        myStream = saveFileDialog1.OpenFile()
        If (myStream IsNot Nothing) Then 
            ' Code to write the stream goes here.
            myStream.Close()
        End If 
    End If 
End Sub