vb.net另存对话框 vbnet format
vb里面的对话框控件,打开“另存为”对话框后,单击取消选择不保存后还是会在目录保存文件
这个COM的对话框控件取消就是这样的机制,要判断用户点的是“取消”,就要设置控件的CancelError属性为True才可以接收到用户是否点了取消(这样真是增加了程序员的代码工作量),对了你的程序修改成这样就可以了:
创新互联致力于互联网网站建设与网站营销,提供做网站、成都网站制作、网站开发、seo优化、网站排名、互联网营销、微信小程序开发、公众号商城、等建站开发,创新互联网站建设策划专家,为不同类型的客户提供良好的互联网应用定制解决方案,帮助客户在新的全球化互联网环境中保持优势。
On Error Resume Next
Dialog.Flags = H4
Dialog.DefaultExt = ".txt"
Dialog.FilterIndex = 1
Dialog.CancelError = False
Dialog.ShowSave
If Err.Number = 0 Then
Open Dialog.FileName For Output As #1
Print #1, Text_List.Text
Close #1
End If 答案补充 有上的有误,下面的正确:
On Error Resume Next
Dialog.Flags = H4
Dialog.DefaultExt = ".txt"
Dialog.FilterIndex = 1
Dialog.CancelError = True
Dialog.ShowSave
If Err.Number = 0 Then
Open Dialog.FileName For Output As #1
Print #1, Text_List.Text
Close #1
End If
vb.net保存两个文本框
1、首先,点击保存按钮后应检查文本框内容。
2其次,如果在文本框4中输入的值以400开头则保存反之更改为400。
3、最后,再次检查文本框5如果文本框5中的值为29或31则保存反之则更改即可。
vb.net 保存excel弹出一个重命名对话框,另存为到其他盘
添加一个SaveFileDialog,在保存excle选择时候添加
SaveFileDialog1.show()
用法跟OpenFileDialog相同
vb.net如何让父窗体工具栏的保存对话框在所有子窗体通用
'代码中Button控件自行在窗体中添加并改名
***********************************父窗体代码:
Public Class Form1
Public Sub From1_保存Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles From1_保存Button.Click
Select Case sender.name
Case "From1_保存Button"
MsgBox("提交的窗体是From1")
Case "Form2_提交Button"
MsgBox("提交的窗体是From2")
End Select
Form2.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_显示子窗体.Click
Form2.ShowDialog()
End Sub
End Class
***********************************子窗体代码:
Public Class Form2
Private Sub Form2_提交Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2_提交Button.Click
Form1.From1_保存Button_Click(Form2_提交Button, New System.EventArgs)
End Sub
End Class
***********************************
方法满多的,起码三四种,比如用一个全局变量保存当前提交窗体名,执行操作的代码读取这个全局变量就行。最方便的应该是做过程
Public Sub DateBaseAdd(ByVal From As Form)
,然后父窗体跟子窗体都能调用这个全局过程,同时传入窗体名称
文章题目:vb.net另存对话框 vbnet format
URL链接:http://ybzwz.com/article/dosgpcs.html