vb点虐 保存 vbnet savefiledialog用法

vb点虐 保存两个文本框

1、首先，点击保存按毁橘悄钮后应检查文纤渣本框内容。

我们提供的服务有：成都网站建设、成都网站设计、微信公众号开发、网站优化、网站认证、封丘ssl等。为成百上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的封丘网站制作公司

2其次，如果在文本框4中输入的值以400开头则保存反之更改为400。

3、最后，再次检查文本框伍桥5如果文本框5中的值为29或31则保存反之则更改即可。

vb点虐 保存后怎么打开

vb点虐 保存后在谨塌菜单文件中打开。

在菜单中文件中选择生成EXE文件，然后打开Exe文件就可以了。

VB.NET是基于.NET框架的完全对向对象的编程语言，而vb6.0只是半面向对象的语言，首悉使用vb点虐 可以编祥芹圆制出功能更加强大的windows程序。

VB点虐 怎样保存文件

保存文件的步骤为：

关闭流，特别是写入流搜兄桥

关闭并保存文件

示例代码如下：

Imports System.Windows.Forms

Imports System.IO

Imports System.Text

Sub SaveFileDemo()

'打开文件。如果文件不存在则创建新的文件

Dim myFile As New IO.FileStream("d:\data.txt", _

尘带                            FileMode.OpenOrCreate, _

FileAccess.Write)

'在文件末尾添加一行 

Dim 世猛tw As New StreamWriter(myFile)

myFile.Seek(0, SeekOrigin.End)

tw.WriteLine("白刃格斗英雄连英模部队方队亮相阅兵")

'关闭流

tw.Close()

'关闭文件并保存文件

myFile.Close()

End Sub

关于VB.NET制作记事本自动保存的问题

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

我用的是Timer计时器：

如何将毕卖程序控制住，让它第一次发现没保存后，只击活一次提示保存，然后使用修改后的保存路径：（代码如下）

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'如何将程序控制住，让它第一次发现没保存后，只击活一次提示保存，然后使用修改后的保存路径

If SaveFileDialog1.FileName = "" Then

If SaveFileDialog1.ShowDialog Then

rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)

End If

Else

'如果已经选择了要保存的文件名，则保存文本到文件中

rtbox.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)

End If

End Sub

————————————————————

此代码执行后变成死睁早循环。

解析:

经过我的潜心修炼问题终于悉数雀是解决了.请看代码

Imports System.IO

Private strFileName As String = "myRTFdoc.txt"

Private flgFirst As Boolean = True

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

'如何将程序控制住，让它第一次发现没保存后，只击活一次提示保存，然后使用修改后的保存路径

Call zc()

End Sub

Private Sub zc()

'Timer2.Stop()

With SaveFileDialog1

.DefaultExt = "txt"

.FileName = strFileName

.Filter = "Text files(*.txt)|*.txt|All files(*.*)|*.*"

.FilterIndex = 1

.InitialDirectory = "c:\"

.OverwritePrompt = True

.Title = "Save Reminding"

End With

'Timer2.Enabled = False

If flgFirst = True Then

If SaveFileDialog1.ShowDialog = DialogResult.OK Then

strFileName = SaveFileDialog1.FileName

Dim objWriter As StreamWriter = New StreamWriter(strFileName, False)

objWriter.Write(rtbox.Text)

objWriter.Close()

objWriter = Nothing

End If

flgFirst = False

'Timer2.Enabled = True

' Timer2.Start()

Else

'flg= second

Dim objWriter As StreamWriter = New StreamWriter(strFileName, False)

objWriter.Write(rtbox.Text)

objWriter.Close()

objWriter = Nothing

End If

'Timer2.Enabled = True

'Timer2.Start()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer2.Enabled = True

' zc()

End Sub

知道问题在哪里嘛?我调试了确实是"死循环"、其实不是真正的死循环、是time tick事件你设定的时间太短了.估计只设置了1-5s左右.那么程序运行还需要时间.所以他就不停地调用timetick时间.你的savedialog对话框根本来不急弹出来.

所以建议你把timer的interval的值设置高点最好12-15秒 触发一次.

当然我想还有其他的方法、还没有彻底取研究下.

比如stop 什么 、那还需要时间.

至少目前我的方法是可以了.

我设置的12s P4. 3.0 1G 内存 跑下我的程序如果 F10(F8)慢点的话就来不及了.

另为把你的程序小改了下、应该可以满足你的要求了.