2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題(含答案詳解+作文范文)_第1頁(yè)
已閱讀1頁(yè),還剩22頁(yè)未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

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

文檔簡(jiǎn)介

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

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

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

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

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

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

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

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

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

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

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

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

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

14、t = "TXT"</p><p>  SaveFileDialog1.Filter = "文本文件(*.TXT)|*.TXT"</p><p>  SaveFileDialog1.ShowDialog()</p><p>  Dim str1 As String</p><p>  str1 = Sa

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

32、;</p><p>  SaveFileDialog1.Filter = "文本文件(*.TXT)|*.TXT"</p><p>  SaveFileDialog1.ShowDialog()</p><p>  Dim str1 As String</p><p>  str1 = SaveFileDialog1.File

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

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

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

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

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

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

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

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

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

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

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

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

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

46、les 左對(duì)齊ToolStripMenuItem.Click</p><p>  RichTextBox1.SelectionAlignment = HorizontalAlignment.Left</p><p><b>  End Sub</b></p><p>  Private Sub 居中ToolStripMenuItem_Click

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

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

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

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

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

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

53、</b></p><p><b>  編輯菜單功能</b></p><p><b>  格式菜單功能</b></p><p><b>  5.2主要功能</b></p><p><b>  居中對(duì)齊</b></p><p&g

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

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

56、么多,仍然是按照課本上的去做。</p><p>  經(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ù),條件語(yǔ)句,循環(huán)語(yǔ)句等概念較多.要真正能進(jìn)行程序設(shè)計(jì),就要深入理解這些概念.應(yīng)該重視概念的學(xué)習(xí).(3)自己動(dòng)手編寫程序,親自動(dòng)手進(jìn)行程序設(shè)計(jì)是

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

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

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

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

61、Name As String</p><p>  RichTextBox1.Text = ""</p><p>  FileName = "未命名"</p><p>  Me.Text = FileName</p><p><b>  End Sub</b></p>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

78、ick</p><p>  RichTextBox1.SelectAll()</p><p><b>  End Sub</b></p><p>  Private Sub 左對(duì)齊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

79、 Handles 左對(duì)齊ToolStripMenuItem.Click</p><p>  RichTextBox1.SelectionAlignment = HorizontalAlignment.Left</p><p><b>  End Sub</b></p><p>  Private Sub 居中ToolStripMenuItem_

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

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

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

83、nuItem.Click</p><p>  FontDialog1.ShowDialog()</p><p>  RichTextBox1.SelectionFont = FontDialog1.Font</p><p><b>  End Sub</b></p><p>  Private Sub 顏色ToolStr

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

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

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

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

溫馨提示

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

評(píng)論

0/150

提交評(píng)論