vb課程設(shè)計報告----文本編輯器

1、<p><b>　　VB課程設(shè)計報告</b></p><p><b>　　——文本編輯器</b></p><p><b>　　課程設(shè)計題目</b></p><p>　　用Visual Basic程序設(shè)計語言編寫一個簡易的文本編輯器</p><p>　　要求：有最基本的

2、文本編輯功能，包括復(fù)制、剪切、粘貼、字體設(shè)置、背景顏色設(shè)置、字體顏色設(shè)置；同時擁有文本管理功能，包括打開文件、保存文件；以及完整的系統(tǒng)運行退出等功能，所有的操作可選擇設(shè)定的快捷鍵。</p><p><b>　　課程設(shè)計目的</b></p><p>　　通過一學(xué)期的VB自學(xué)，初步掌握了VB程序設(shè)計的一些方法，學(xué)會了編寫最基本的VB程序；對于完整的VB程序設(shè)計來講是很不足

3、的，平時掌握的只是單獨的窗體程序編寫，以及各種簡單控件的使用，沒有做到很好連貫性，所以沒有必要做一次完整的VB程序設(shè)計，結(jié)合所學(xué)的基本知識，使用多個窗體自成一套系統(tǒng)，加上各種控件的綜合運用，初步設(shè)計一個合格的VB應(yīng)用程序，這樣在鞏固VB所學(xué)的同時，更好地學(xué)會程序設(shè)計的一些思想和方法，對于以后的編程學(xué)習(xí)或者是工作有重要的實踐意義。</p><p><b>　　課程設(shè)計說明</b></p&

4、gt;<p>　　題目為文本編輯器，即是最基本的文本編輯程序，首先必須做好文本編輯本身 的功能，然后對其完善，做成一個完整的小程序。</p><p><b>　　源代碼</b></p><p><b>　　定義全局變量</b></p><p>　　Dim sfind As String</p&g

5、t;<p>　　Dim FileType, FiType As String</p><p><b>　　設(shè)置窗體大小</b></p><p>　　Private Sub Form_Load()</p><p>　　Me.Height = 7500</p><p>　　Me.Width = 5000<

6、/p><p><b>　　End Sub </b></p><p>　　設(shè)置文本編輯框的位置和大小</p><p>　　Private Sub Form_Resize()</p><p>　　On Error Resume Next</p><p>　　RichTextBox1.Top = 20<

7、;/p><p>　　RichTextBox1.Left = 20</p><p>　　RichTextBox1.Height = ScaleHeight - 40</p><p>　　RichTextBox1.Width = ScaleWidth - 40</p><p><b>　　End Sub</b></p>

8、;<p>　　以下是對菜單編輯器的設(shè)置</p><p>　　Private Sub mnuAbout_Click()</p><p>　　MsgBox "寫字板1.0版權(quán)所有（C）DXL", vbOKOnly, "關(guān)于"</p><p><b>　　End Sub</b></p>

9、<p>　　Private Sub mnucopy_Click()</p><p>　　Clipboard.Clear</p><p>　　Clipboard.SetText RichTextBox1.SelText</p><p><b>　　End Sub</b></p><p>　　Private S

10、ub mnucut_Click()</p><p>　　Clipboard.Clear</p><p>　　Clipboard.SetText RichTextBox1.SelText</p><p>　　RichTextBox1.SelText = ""</p><p><b>　　End Sub</b&

11、gt;</p><p>　　Private Sub mnuexit_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub mnuFind_Click()</p><p>　　

12、sfind = InputBox("請輸入要查找的字符：", "查找內(nèi)容")</p><p>　　RichTextBox1.Find sfind</p><p><b>　　End Sub</b></p><p>　　Private Sub mnuFindOn_Click()</p><

13、;p>　　RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1</p><p>　　RichTextBox1.Find sfind, , Len(RichTextBox1)</p><p><b>　　End Sub</b></p><p>　

14、　Private Sub mnunew_Click()</p><p>　　RichTextBox1.Text = ""</p><p>　　FileName = "未命名"</p><p>　　Me.Caption = FileName</p><p><b>　　End Sub</b

15、></p><p>　　Private Sub mnuOpen_Click()</p><p>　　CommonDialog1.Filter = "文本文檔（*.txt)|*.txt|RTF 文檔（*.rtf）|*.rtf|所有文件（*.*)|*.*"</p><p>　　CommonDialog1.ShowOpen</p>

16、<p>　　RichTextBox1.Text = ""</p><p>　　FileName = CommonDialog1.FileName</p><p>　　RichTextBox1.LoadFile FileName</p><p>　　Me.Caption = "寫字板：" & FileName&

17、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub mnuPaste_Click()</p><p>　　RichTextBox1.SelText = Clipboard.GetText</p><p><b>　　End Sub</b></p>

18、;<p>　　Private Sub mnuSave_Click()</p><p>　　CommonDialog1.Filter = "文本文檔（*.txt)|*.txt|RTF 文檔（*.rtf）|*.rtf|所有文件（*.*)|*.*"</p><p>　　CommonDialog1.ShowSave</p><p>　　Fi

19、leType = CommonDialog1.Filter</p><p>　　FiType = LCase(Right(FileType, 3))</p><p>　　FileName = CommonDialog1.FileName</p><p>　　Select Case FiType</p><p>　　Case "txt

20、"</p><p>　　RichTextBox1.SaveFile FileName, rtfText</p><p>　　Case "rtf"</p><p>　　RichTextBox1.SaveFile FileName, rtfRTF</p><p>　　Case "*.*"</

21、p><p>　　RichTextBox1.SaveFile FileName</p><p>　　End Select</p><p>　　Me.Caption = "寫字板：" & FileName</p><p><b>　　End Sub</b></p><p>　　

22、Private Sub mnuSelectAll_Click()</p><p>　　RichTextBox1.SelStart = 0</p><p>　　RichTextBox1.SelLength = Len(RichTextBox1.Text)</p><p><b>　　End Sub</b></p><p>

23、　　Private Sub mnuUsage_Click()</p><p>　　On Error GoTo handler</p><p>　　RichTextBox1.LoadFile "Readme.txt", rtfText</p><p>　　Me.Caption = "寫字板：" & "使用說明&

24、quot;</p><p><b>　　Exit Sub</b></p><p><b>　　handler:</b></p><p>　　MsgBox "使用說明文檔可能已經(jīng)被移除，請與作者聯(lián)系。", vbOKOnly, "錯誤信息"</p><p><

25、;b>　　End Sub</b></p><p>　　設(shè)置彈出式菜單（即在編輯框中單擊鼠標(biāo)右鍵時彈出的動態(tài)菜單）</p><p>　　Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)</p><p>　　

26、If Button = 2 Then</p><p>　　PopupMenu mnuedit, vbPopupMenuLeftAlign</p><p><b>　　Else</b></p><p><b>　　Exit Sub</b></p><p><b>　　End If</b

27、></p><p><b>　　End Sub</b></p><p><b>　　五、運行結(jié)果</b></p><p>　　圖5 幫助使用說明窗口</p><p>　　圖6 幫助關(guān)于窗口</p><p><b>　　圖7 文件打開窗口</b>

28、</p><p>　　圖8 文件打開后的窗口</p><p><b>　　圖9 動態(tài)窗口右擊</b></p><p><b>　　六、心得體會</b></p><p>　　1、通過本次課程設(shè)計，自己又對Vb有了更進(jìn)一步的理解和掌握，通過實踐，感覺到這一學(xué)期的VB學(xué)習(xí)不是很深入，很多真正需要掌握的東西

29、還沒學(xué)會，或者是沒學(xué)好，原因是平時理論學(xué)習(xí)不夠，沒有真正理解，其次就是實踐太少，不能熟練地使用VB開發(fā)環(huán)境。</p><p>　　2、具體說文本編輯器的設(shè)計，首先是控件的使用要注意，例如不能使用平時的Text文本框，因為其只適用于一般的文本顯示。編寫代碼的時候應(yīng)該注意必須與菜單中的名字一一對應(yīng)，否則會出現(xiàn)錯誤；最后要注意程序的完整性以及實用性、便捷性，能夠有友好的界面設(shè)計，給用戶最好的體驗。</p>