作者ai15 (振袖)
看板Visual_Basic
标题[.NET] VS2008 richtextbox的几个小问题
时间Thu Jun 23 14:32:37 2011
请输入专案类型(网站专案或者应用程式专案)：vs2008
1.我想做出像记事本一样可以有自动换行的功能，请问该怎麽做?
我想用MenuStrip_Click来执行，
本来的想法是当文章内容遇上句号就自动断行(IF....EndIf)，
可是做不出来┬▽┬
上网查了一下，我是不是应该用循序抓取出句号再+vbCrLf这样比较好?("。"+vbCrLf)
只是特别抓出某字元再断行的程式我写不出来......
2.开启旧档的功能(已解决)
按照课本的方法写下这段程式
Dim st As String
dlgopen.Filter = "文书档(*.txt)|*.txt|所有档案(*.*)|*.*"
dlgopen.FilterIndex = 1
dlgopen.RestoreDirectory = True
dlgopen.DefaultExt = ".txt"
If dlgopen.ShowDialog() = Windows.Forms.DialogResult.OK Then
txtnote.Text = ""
pf_name = dlgopen.FileName
f_name = IO.Path.GetFileNameWithoutExtension(pf_name)
f_num = FreeFile()
FileOpen(f_num, pf_name, OpenMode.Input)
Do While Not EOF(f_num)
Input(f_num, st)
txtnote.Text = txtnote.Text + st
Loop
Me.Text = f_name & "-记事本"
End If
FileClose(f_num)
可是在倒数第六行 Input(f_num,st) 的地方会出现错误
像这样↓
变数 'st' 已在指派值之前透过传址方式传递。
可能会在执行阶段产生 null 参考例外状况。
在一开始有宣告
Public Class Form1
Dim pf_name As String
Dim f_name As String
Dim f_num As Integer
像这样↑
以上两个问题请大家帮帮忙 谢谢! ^▽^
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.241.89.150
1F：→ MOONRAKER:给st设个初值VS就不会抱怨了。 06/23 14:42
2F：→ MOONRAKER:至於第一个问题，richtextbox没用过，不过我会用个timer 06/23 14:44
3F：→ MOONRAKER:每1000ms把richtextbox.text里面的"."换成 "."+vbcrlf 06/23 14:45
4F：→ ai15:谢谢，第一个问题已解决，目前正在处理第二个问题 06/23 14:54
5F：→ ai15:要用if~end if 的方法吗? 想让长篇文章可以有段落orz，谢谢 06/23 15:00
6F：→ ai15:说错，应该说st的问题解决了，可是断行的问题还没解决orz 06/23 23:09
※ 编辑: ai15 来自: 218.174.19.192 (06/23 23:13)