我正在尝试使用savefiledialog工具,但它不会将文件创建到所选目标位置...
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "txt files (*.txt)|*.txt"
saveFileDialog1.Title = "Save a Text File"
If saveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK & saveFileDialog1.FileName.Length > 0 Then
RichTextBox2.SaveFile(saveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
End Sub
VB.NET中的二进制逻辑运算符AND用关键字AND表示,而不使用&(字符串串联运算符)
If saveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK And
saveFileDialog1.FileName.Length > 0 Then
....
如果您将Option Strict设置为On,则会在编译时提示此问题(顺便说一句,无需测试文件名长度。如果不提供文件名,则对话框不会关闭)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句