vb.net程序设计笔记 vb程序设计dim

VB制作一个类似笔记软件，不知道怎么解决列表框listbox以及读取文件问题，请教一下各位

给vb.net程序设计笔记你个思路

在文本中保存vb.net程序设计笔记的时候这么个格式

标题

内容

标题

内容

……

读取的时候用按行读取 判断文件的EOF决定是否结束读取

第一行是标题

下面都是内容

如果读到一行是空的

那么下一行又是标题再下面是内容

相关问答

Q1: vb程序设计，急求！！给出代码，感激！

'10个text1，1个命令按钮

Private Sub Command1_Click()

Dim I As Integer

Dim J As Long '总共生成随机数的次数

Dim K As Integer '生成座位

Dim s(12) As Integer '座位中对应的人

For I = 1 To 10 '按人选座位

Do

J = J + 1

Randomize

K = Int(Rnd * 12 + 1)

Loop While (s(K) 0) '当作为中已经有人，重新选座位

s(K) = I '记录座位中的人

Next I

For I = 1 To 12

Text1(I - 1) = IIf(s(I) = 0, "Empty", Chr(64 + s(I)))

Next I

Debug.Print J

End Sub

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

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

问题描述:

我用vb.net程序设计笔记的是Timer计时器vb.net程序设计笔记：

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

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事件vb.net程序设计笔记你设定的时间太短了.估计只设置了1-5s左右.那么程序运行还需要时间.所以他就不停地调用timetick时间.你的savedialog对话框根本来不急弹出来.

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

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

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

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

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

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

vb.net程序设计笔记的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb程序设计dim、vb.net程序设计笔记的信息别忘了在本站进行查找喔。