189 8069 5689
vb.net 啊。好语言。。这个如果用DATASET更新，记得用 COMMANDBUILDER。。。。
创新互联成立十载来，这条路我们正越走越好，积累了技术与客户资源，形成了良好的口碑。为客户提供成都做网站、成都网站设计、网站策划、网页设计、主机域名、网络营销、VI设计、网站改版、漏洞修补等服务。网站是否美观、功能强大、用户体验好、性价比高、打开快等等，这些对于网站建设都非常重要，创新互联通过对建站技术性的掌握、对创意设计的研究为客户提供一站式互联网解决方案，携手广大客户，共同发展进步。
分类: 电脑/网络 程序设计 其他编程语言
问题描述:
我用的是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)慢点的话就来不及了.
另为把你的程序小改了下、应该可以满足你的要求了.
给你一段我过去的vb代码,vb连接access的,用adodb,很方便
代码比较丑陋,凑合看吧,是个自用的通讯录程序
txl是表名,Mobile,QQ,MSN...都是字段名称
'将列表框内容逐项加入数据库,创建更新sql字串
sqlString
=
"update
txl
set
Mobile='"
Trim$(txt(1).Text)
"',QQ='"
_
Trim$(txt(2).Text)
"',MSN='"
Trim$(txt(3).Text)
"',Email='"
Trim$(txt(4).Text)
"',Phone='"
_
Trim$(txt(5).Text)
"',Home='"
Trim$(txt(6).Text)
"',Birthday='"
txt(7).Text
"',Address='"
_
Trim$(txt(8).Text)
"',Postcode='"
Trim$(txt(9).Text)
"',Info='"
Trim$(txt(10).Text)
_
"'
where
Name='"
Trim$(ListView1.ListItems.Item(SelectIndex).Text)
"'"
'更新记录
Set
rs
=
conn.Execute(sqlString,
,
adCmdText)
要创建全局变量
Dim
conn
As
ADODB.Connection
'数据库连接
然后form在load的时候打开链接,可以操作数据库
'连接无密码数据库
Set
conn
=
New
ADODB.Connection
conn.ConnectionString
=
_
"Provider=Microsoft.Jet.OLEDB.4.0;"
_
"Data
Source="
dbName
";"
_
"Persist
Security
Info=False"
'打开连接
conn.Open。
保存文件的步骤为：
关闭流，特别是写入流
关闭并保存文件
示例代码如下：
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