vb課程設(shè)計(jì)報(bào)告----文本編輯器

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

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

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

4、gt;<p>　　題目為文本編輯器，即是最基本的文本編輯程序，首先必須做好文本編輯本身 的功能，然后對(duì)其完善，做成一個(gè)完整的小程序。</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>　　以下是對(duì)菜單編輯器的設(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("請(qǐng)輸入要查找的字符：", "查找內(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)被移除，請(qǐng)與作者聯(lián)系。", vbOKOnly, "錯(cuò)誤信息"</p><p><

25、;b>　　End Sub</b></p><p>　　設(shè)置彈出式菜單（即在編輯框中單擊鼠標(biāo)右鍵時(shí)彈出的動(dòng)態(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>　　五、運(yùn)行結(jié)果</b></p><p>　　圖5 幫助使用說明窗口</p><p>　　圖6 幫助關(guān)于窗口</p><p><b>　　圖7 文件打開窗口</b>

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

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