作者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)