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

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：23 大?。?98.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

visual_basic課程設(shè)計(jì)報(bào)告---文本編輯器_第1頁

已閱讀1頁，還剩22頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　第一章緒論　　Visual Basic.NET 是從 Visual Basic 語言演變而來的，是一種為高效地生成類型安全和面向?qū)ο蟮膽?yīng)用程序而設(shè)計(jì)的語言。Visual Basic 允許開發(fā)人員開發(fā)面向 Windows、Web 和移動(dòng)設(shè)備的程序。與所有面向 Microsoft .NET Framework 的語言一樣，使用 Vis

2、ual Basic 編寫的程序都具有安全性和語言互操作性方面的優(yōu)點(diǎn)。 　　這一代 Visual Basic 延續(xù)了為您提供一種簡單快捷的方法來創(chuàng)建基于 .NET Framework 的應(yīng)用程序的傳統(tǒng)。　　VB.net是微軟最新平臺技術(shù)，是.netframeworkSDK的一種語言。VB.net和VC#.net在功能上沒有區(qū)別。編譯以后生成的可執(zhí)行文件被稱

3、為Assembly，即程序集。 　　VB.net的版本號是VisualBasic7.0，它的運(yùn)行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虛擬器上的。其實(shí)，它的機(jī)制和Java差不多。　　VB.NET的特點(diǎn)：　　1.真正成為面

4、向?qū)ο笠约爸С掷^承性的語言。 　　2.窗體設(shè)計(jì)器支持可視化繼承，并且包含了許多新的特性，比如自動(dòng)改變窗體大小、資源本地化支持、數(shù)據(jù)類工具內(nèi)在支持XML數(shù)據(jù)。 　　3.直接建立在.NET的框架結(jié)構(gòu)上，因此開發(fā)人員可以充分利用所有.NET平臺特性，也可以與其他的.NET語言交互。 　　4.為Windows應(yīng)用程序提供

5、了XCOPY部署，開發(fā)者不再需要為DLL的版本問題擔(dān)憂。第二章問題定義　　2. 1需求分析　　本程序要求設(shè)計(jì)一個(gè)文本編輯器，主要用于對文本的簡易編輯，儲存信息等功

6、能的滿足的一款小程序，那么我們就按照應(yīng)該有的需求，設(shè)置相應(yīng)的菜單，來實(shí)現(xiàn)其要求。　　2. 2功能需求　　此程序雖然簡單，但是涉及到的問題也很多，這需要我們不停的去提出問題和尋找問題，更要去完善問題的答案，進(jìn)過探討，此程序有以下幾種功能：　?。?）功能：<

7、;/b>　　建立、打開、保存一個(gè)文本。　　具有全選、復(fù)制、剪切、粘貼等文字編輯功能。　　能夠運(yùn)行“字體”和“顏色”對話框。　　具有段落對齊和文檔打印功能。　　第三章總體設(shè)計(jì)與詳細(xì)設(shè)計(jì)<p&

8、gt;　　3.1文本編輯器的總體設(shè)計(jì)　　通過功能的描繪，我們把此程序設(shè)置3個(gè)菜單，分別完成其要求的功能：　　文件菜單：新建、打開、保存、打印、退出。　　編輯：剪切、復(fù)制、粘貼、全選。　　格式：對齊方式（左對齊、右對齊、居中）、字體、顏色<p&

9、gt;　　3.3詳細(xì)設(shè)計(jì)　　具體設(shè)計(jì)如下：　　實(shí)現(xiàn)“新建“功能　　新建功能的實(shí)質(zhì)是要求記事本清空RichTextBox1中原有的內(nèi)容，也就是執(zhí)行語句RichTextBox1.Text=““，新建的文件

10、文件名默認(rèn)為”未命名“。　　Dim FileName As String　　RichTextBox1.Text = ""　　FileName = "未命名"　　Me.Text = FileName<p&

11、gt;　　實(shí)現(xiàn)“打開”功能　　要求使用OpenFileDialog空間打開一個(gè)輸入框，選擇文件，打開的文件類型為文本文件。　　Dim str As String　　OpenFileDialog1.DefaultExt = "TXT"

12、　　OpenFileDialog1.Filter = "文本文件"　　OpenFileDialog1.ShowDialog()　　str = OpenFileDialog1.FileName　　RichTextBox1.LoadFile(str, RichTextBoxStr

13、eamType.PlainText)　　Me.Text = str　　實(shí)現(xiàn)“保存”功能　　要求使用SaveFileDialog控件打開一個(gè)“保存”對話框，用于保存編輯后的文本文件。　　SaveFileDialog1.DefaultEx

14、t = "TXT"　　SaveFileDialog1.Filter = "文本文件（*.TXT）|*.TXT"　　SaveFileDialog1.ShowDialog()　　Dim str1 As String　　str1 = Sa

15、veFileDialog1.FileName　　RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText)　　Me.Text = str1　　實(shí)現(xiàn)“打印”功能　　要求使用P

16、rintDialog控件實(shí)現(xiàn)打印功能。　　Dim pd As System.Drawing.Printing.PrintDocument　　pd = New System.Drawing.Printing.PrintDocument　　PrintDialog1.Document = pd&

17、lt;p>　　If (PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then　　pd.Print()　　End If　　實(shí)現(xiàn)“退出”功能

18、　　要求退出之前詢問用戶是否存盤，如果用戶選擇存盤，則要求使用SaveFileDialog空間打開一個(gè)“保存”對話框，保存編輯后的文本文件，否則不保存。　　Dim result As DialogResult　　result = MessageBox.Show("是否存盤？", "提示", Mes

19、sageBoxButtons.YesNo)　　If result = Windows.Forms.DialogResult.Yes Then　　SaveFileDialog1.ShowDialog()　　Dim str1 As String　　str1 = SaveFil

20、eDialog1.FileName　　RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText)　　Else　　Close()<

21、b>　　End If　　6、實(shí)現(xiàn)“編輯”菜單功能　　“編輯”菜單包括“剪切”、“復(fù)制”、“粘貼”和“全選“功能　　RichTextBox1.Cut()　　RichTextBox1.Copy()　　Rich

22、TextBox1.Paste()　　RichTextBox1.SelectAll（）　　7、實(shí)現(xiàn)“格式”菜單中的“對齊”子菜單功能　　“格式”菜單包括”剪切“、”復(fù)制“、”粘貼“和“全選”功能　　RichTextBox1.SelectionAlignment = Hori

23、zontalAlignment.Left　　RichTextBox1.SelectionAlignment = HorizontalAlignment.Center　　RichTextBox1.SelectionAlignment = HorizontalAlignment.Right　　8、實(shí)現(xiàn)“格式”菜單中的

24、”字體“和”顏色“子菜單　　選擇“格式“菜單的”字體“選項(xiàng)，彈出”字體“對話框，用戶可以進(jìn)行字體設(shè)置，選擇”顏色“選項(xiàng)，彈出”顏色“對話框，用戶進(jìn)行顏色設(shè)置。　　FontDialog1.ShowDialog()　　RichTextBox1.SelectionFont = FontDialog1.Font</

25、p>　　ColorDialog1.ShowDialog()　　RichTextBox1.SelectionColor = ColorDialog1.Color　　第四章編碼實(shí)現(xiàn)　　實(shí)現(xiàn)“新建”功能

26、Private Sub 新建NCtrlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NCtrlToolStripMenuItem.Click　　Dim FileName As String　　RichTextBox

27、1.Text = ""　　FileName = "未命名"　　Me.Text = FileName　　End Sub　　實(shí)現(xiàn)“打開”功能

28、　　Private Sub 打開OCtrlNToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打開OCtrlNToolStripMenuItem.Click　　Dim str As String　　O

29、penFileDialog1.DefaultExt = "TXT"　　OpenFileDialog1.Filter = "文本文件"　　OpenFileDialog1.ShowDialog()　　str = OpenFileDialog1.FileName

30、;　　RichTextBox1.LoadFile(str, RichTextBoxStreamType.PlainText)　　Me.Text = str　　End Sub　　實(shí)現(xiàn)“保存”功能

31、　　Private Sub 保存SCtrlSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存SCtrlSToolStripMenuItem.Click　　SaveFileDialog1.DefaultExt = "TXT"

32、;　　SaveFileDialog1.Filter = "文本文件（*.TXT）|*.TXT"　　SaveFileDialog1.ShowDialog()　　Dim str1 As String　　str1 = SaveFileDialog1.File

33、Name　　RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText)　　Me.Text = str1　　End Sub　　實(shí)現(xiàn)“打印”功能</b

34、>　　Private Sub 打印PCtrlPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印PCtrlPToolStripMenuItem.Click　　Dim pd As System.Drawing.Pr

35、inting.PrintDocument　　pd = New System.Drawing.Printing.PrintDocument　　PrintDialog1.Document = pd　　If (PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.

36、OK) Then　　pd.Print()　　End If　　End Sub　　5、實(shí)現(xiàn)“退出”功能　　Private Sub 退出XToolStripMe

37、nuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click　　Dim result As DialogResult　　result = MessageBox.Show("是否存盤？"

38、;, "提示", MessageBoxButtons.YesNo)　　If result = Windows.Forms.DialogResult.Yes Then　　SaveFileDialog1.ShowDialog()　　Dim str1 As String<

39、;p>　　str1 = SaveFileDialog1.FileName　　RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText)　　Else　　Close()<

40、;/p>　　End If　　End Sub　　6、實(shí)現(xiàn)“編輯”菜單功能　　Private Sub 剪切XCtrlXToolStripMenuItem_Click(ByVal sender As System.O

41、bject, ByVal e As System.EventArgs) Handles 剪切XCtrlXToolStripMenuItem.Click　　RichTextBox1.Cut()　　End Sub　　Private Sub 復(fù)制CCtrlcToolStripMen

42、uItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 復(fù)制CCtrlcToolStripMenuItem.Click　　RichTextBox1.Copy()　　End Sub<p&

43、gt;　　Private Sub 粘貼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘貼ToolStripMenuItem.Click　　RichTextBox1.Paste()　　End Sub&l

44、t;/b>　　Private Sub 全選ACtrlAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全選ACtrlAToolStripMenuItem.Click　　RichTextBox1.SelectAll(

45、)　　End Sub　　7、實(shí)現(xiàn)“格式”菜單中的“對齊”子菜單功能　　Private Sub 左對齊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand

46、les 左對齊ToolStripMenuItem.Click　　RichTextBox1.SelectionAlignment = HorizontalAlignment.Left　　End Sub　　Private Sub 居中ToolStripMenuItem_Click

47、(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 居中ToolStripMenuItem.Click　　RichTextBox1.SelectionAlignment = HorizontalAlignment.Center　　End Sub<

48、/b>　　Private Sub 右對齊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 右對齊ToolStripMenuItem.Click　　RichTextBox1.SelectionAlignment = H

49、orizontalAlignment.Right　　End Sub　　8、實(shí)現(xiàn)“格式”菜單中的“字體”和“顏色”子菜單　　Private Sub 字體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e

50、As System.EventArgs) Handles 字體ToolStripMenuItem.Click　　FontDialog1.ShowDialog()　　RichTextBox1.SelectionFont = FontDialog1.Font　　End Sub&l

51、t;/p>　　Private Sub 顏色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 顏色ToolStripMenuItem.Click　　ColorDialog1.ShowDialog()

52、;　　RichTextBox1.SelectionColor = ColorDialog1.Color　　End Sub　　第五章調(diào)試與測試　　5.1菜單欄　　文件菜單功能

53、　　編輯菜單功能　　格式菜單功能　　5.2主要功能　　居中對齊<p&g

54、t;　　右對齊　　左對齊　　新宋體傾斜四號　　新宋體傾斜四號藍(lán)色字體　　第六章總結(jié)與心得　　在課程設(shè)計(jì)過程中，

55、雖然我對程序設(shè)計(jì)不是很熟悉，但是通過老師詳細(xì)的講解，我按照步驟去做，遇到問題的時(shí)候先自己想辦法解決，解決不了的就去問同學(xué)，問老師，通過這種學(xué)習(xí)，收獲很大，學(xué)會了自己解決棘手問題，知道了團(tuán)結(jié)的力量。　　剛開始做程序的時(shí)候，就是完全按照老師的要求，老師的步驟去做的，結(jié)果卻發(fā)現(xiàn)，怎么運(yùn)行不了？明明是按照老師的步驟去做的，明明是按照老師的要求去做的，但是就是會遇到一些問題使程序運(yùn)行不了。開始也沒有管那

56、么多，仍然是按照課本上的去做。　　經(jīng)過這次的VB程序設(shè)計(jì)，讓我知道了更多學(xué)習(xí)的方法。具體如下：(1)保持良好的學(xué)習(xí)心態(tài)，第一，要有自信，自強(qiáng)，積極主動(dòng)學(xué)習(xí).第二，克服畏難情緒，樹立學(xué)好程序設(shè)計(jì)的信心(2)要了解概念：VB程序設(shè)計(jì)本身并不復(fù)雜，變量，函數(shù)，條件語句，循環(huán)語句等概念較多.要真正能進(jìn)行程序設(shè)計(jì)，就要深入理解這些概念.應(yīng)該重視概念的學(xué)習(xí).(3)自己動(dòng)手編寫程序，親自動(dòng)手進(jìn)行程序設(shè)計(jì)是

57、培養(yǎng)邏輯思維的好方法.因此我們得多動(dòng)手編寫程序，逐漸提高寫程序的能力.自己動(dòng)手，編寫一些程序，才會有成就感，進(jìn)而對課程產(chǎn)生興趣，做起來才比較從容.等你在編寫大量程序之后（4）上機(jī)調(diào)試程序應(yīng)注意多問問同學(xué)，多問問老師、，把不懂的地方標(biāo)出來。(5)養(yǎng)成良好的編程習(xí)慣，第一，程序構(gòu)思要有說明;第二，學(xué)會如何調(diào)試程序; 第三，對運(yùn)行結(jié)果要做正確與否的分析。　　但是，如果以前上課的時(shí)候不認(rèn)真的聽講的話，做

58、這個(gè)程序設(shè)計(jì)就會有點(diǎn)點(diǎn)困難，所以，同時(shí)也在提醒我們，學(xué)習(xí)，任何時(shí)候都要認(rèn)真！　　總之，在此次的VB程序設(shè)計(jì)中，如果沒有足夠的耐心，就不可能完成的很好。所以此次VB程序設(shè)計(jì)，讓我做事情更加有耐心，更加細(xì)心，學(xué)習(xí)更加認(rèn)真仔細(xì)。　　附錄：　　源程序：</b&

59、gt;　　Public Class Form1　　Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged<

60、;b>　　End Sub　　Private Sub 新建NCtrlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NCtrlToolStripMenuItem.Click　　Dim File

61、Name As String　　RichTextBox1.Text = ""　　FileName = "未命名"　　Me.Text = FileName　　End Sub

62、　　Private Sub 打開OCtrlNToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打開OCtrlNToolStripMenuItem.Click　　Dim str As String　　Ope

63、nFileDialog1.DefaultExt = "TXT"　　OpenFileDialog1.Filter = "文本文件"　　OpenFileDialog1.ShowDialog()　　str = OpenFileDialog1.FileName

64、　　RichTextBox1.LoadFile(str, RichTextBoxStreamType.PlainText)　　Me.Text = str　　End Sub　　Private Sub 保存SCtrlSToolStripMenuItem_Cli

65、ck(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存SCtrlSToolStripMenuItem.Click　　SaveFileDialog1.DefaultExt = "TXT"　　SaveFileDialog1.Filter = &qu

66、ot;文本文件（*.TXT）|*.TXT"　　SaveFileDialog1.ShowDialog()　　Dim str1 As String　　str1 = SaveFileDialog1.FileName　　RichTextBox1.SaveFile(str

67、1, RichTextBoxStreamType.PlainText)　　Me.Text = str1　　End Sub　　Private Sub 打印PCtrlPToolStripMenuItem_Click(ByVal sender As System.Object, B

68、yVal e As System.EventArgs) Handles 打印PCtrlPToolStripMenuItem.Click　　Dim pd As System.Drawing.Printing.PrintDocument　　pd = New System.Drawing.Printing.PrintDocument&l

69、t;p>　　PrintDialog1.Document = pd　　If (PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then　　pd.Print()　　End If&l

70、t;p>　　End Sub　　Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click　　Dim re

71、sult As DialogResult　　result = MessageBox.Show("是否存盤？", "提示", MessageBoxButtons.YesNo)　　If result = Windows.Forms.DialogResult.Yes Then

72、SaveFileDialog1.ShowDialog()　　Dim str1 As String　　str1 = SaveFileDialog1.FileName　　RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText)&l

73、t;p>　　Else　　Close()　　End If　　End Sub　　Private Sub 剪切XCtrl

74、XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切XCtrlXToolStripMenuItem.Click　　RichTextBox1.Cut()　　End Sub</p

75、>　　Private Sub 復(fù)制CCtrlcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 復(fù)制CCtrlcToolStripMenuItem.Click　　RichTextBox1.Copy()<p&

76、gt;　　End Sub　　Private Sub 粘貼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘貼ToolStripMenuItem.Click　　RichTextBox1

77、.Paste()　　End Sub　　Private Sub 全選ACtrlAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全選ACtrlAToolStripMenuItem.Cl

78、ick　　RichTextBox1.SelectAll()　　End Sub　　Private Sub 左對齊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

79、 Handles 左對齊ToolStripMenuItem.Click　　RichTextBox1.SelectionAlignment = HorizontalAlignment.Left　　End Sub　　Private Sub 居中ToolStripMenuItem_

80、Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 居中ToolStripMenuItem.Click　　RichTextBox1.SelectionAlignment = HorizontalAlignment.Center　　End Su

81、b　　Private Sub 右對齊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 右對齊ToolStripMenuItem.Click　　RichTextBox1.SelectionAlignmen

82、t = HorizontalAlignment.Right　　End Sub　　Private Sub 字體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字體ToolStripMe

83、nuItem.Click　　FontDialog1.ShowDialog()　　RichTextBox1.SelectionFont = FontDialog1.Font　　End Sub　　Private Sub 顏色ToolStr

84、ipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 顏色ToolStripMenuItem.Click　　ColorDialog1.ShowDialog()　　RichTextBox1.SelectionColor = ColorDial

85、og1.Color　　End Sub　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load　　End S

86、ub　　End Class　　參考文獻(xiàn)　　1.《Visual Basic.NET程序設(shè)計(jì)》北京：清華大學(xué)出版社，2008 劉炳文　　2.《Visual Basic.NET程

87、序設(shè)計(jì)》北京：冶金工業(yè)出版社，2007 劉懷亮　　3.《Visual Basic.NET程序設(shè)計(jì)基礎(chǔ)教程》北京：機(jī)械工業(yè)出版社，2006湯庸　　4.《Visual Basic.NET全程指南》北京：電子工業(yè)出版社，2008朱本城，王鳳林　　5.《Visual Basic.NET程序設(shè)計(jì)實(shí)用教程》北京：清華大

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載