面向?qū)ο蟪绦蛟O(shè)計實用第3章

1、本章學(xué)習(xí)目標(biāo)應(yīng)知：Windows程序菜單的結(jié)構(gòu)文本框控件的作用應(yīng)會：使用菜單編輯器制作菜單在程序中顯示另一個窗體讀寫文本文件的方法使用循環(huán)語句項目1 制作簡單的文本編輯程序項目要做一個與Windows記事本相似的文本編輯程序任務(wù)1 使用菜單編輯器制作菜單單擊集成開發(fā)環(huán)境的菜單“工具”“菜單編輯器” 任務(wù)2 添加文本框控件 文本框控件是程序中經(jīng)常用的一個控件，它可以用于顯示文字信息和提供用戶輸入文字信息，還可以用于編輯文本用鼠標(biāo)單擊工具箱上的“文本框控件”按鈕，用鼠標(biāo)在窗體上畫出一個文本框控件。 設(shè)置Text1的相關(guān)屬性，讓它能編輯多行文字，并且顯示滾動條。 MultiLine屬性和Scroll

2、Bar屬性 任務(wù)3 編寫菜單的功能代碼 單擊窗體Form1的“文件”“新建”菜單，這時集成開發(fā)環(huán)境會顯示代碼窗口，并自動創(chuàng)建了一個mnuNew_Click事件過程，在該事件過程中輸入以下代碼：Private Sub mnuNew_Click() Text1.Text = “End Sub “文件”“退出”菜單 “全選”菜單 Private Sub mnuEdit_Click() Unload MeEnd Sub Private Sub mnuSelectAll_Click() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Su

3、b “復(fù)制”、“剪切”和“粘貼”菜單項 Private Sub mnuCopy_Click()“復(fù)制”菜單項的Click事件過程 Dim s As String s=Text1.SelText Clipboard.SetText sEnd SubPrivate Sub mnuCut_Click()“剪切”菜單項的Click事件過程 Dim s As String s=Text1.SelText Clipboard.SetText s Text1.SelText = End SubPrivate Sub mnuPaste_Click()“粘貼”菜單項的Click事件過程 Text1.SelTex

4、t = Clipboard.GetTextEnd Sub任務(wù)4 添加第二個窗體 給程序添加一個“關(guān)于”對話框，我們要在這個對話框上顯示工程的名稱及程序員的制作者。 “幫助”“關(guān)于”菜單 Private Sub mnuAbout_Click() Form2.Show vbModal End Sub 項目2 保存及讀取文本文件 “文件”“保存”菜單 Private Sub mnuSave_Click() Dim strText As String strText = Text1.Text 變量strText保存文本框的內(nèi)容 以O(shè)utput方式打開文件并賦予一個文件號1 Open C:MyNote.

5、txt For Output As #1 Print #1, strText 把變量的內(nèi)容寫入1號文件 Close #1 關(guān)閉1號文件 End Sub 任務(wù)2 添加讀取文本功能 “文件”“打開”菜單 Private Sub mnuOpen_Click() Dim strLine As String 儲存每一行的字符 Dim strText As String 儲存所有行的字符 Open C:MyNote.txt For Input As #1 Do If EOF(1) Then Exit Do Line Input #1, strLine strText = strText & strLine & vbCrLf Loop Close #1 Text1.Text=strTextEnd Sub 小結(jié) 本章通過制作一個記事本，了解了Windows菜單的結(jié)構(gòu)，并掌握了如何給程序制作菜單。學(xué)習(xí)了如何使用文本框控件，并結(jié)合Clipboard對象實現(xiàn)記事本常用的功能。通過學(xué)習(xí)保存和打開文件學(xué)習(xí)了如何對文件進(jìn)行操作。在這一章里，最重要的內(nèi)容是循環(huán)結(jié)構(gòu)，要掌握如何使用循環(huán)結(jié)構(gòu)并能熟練使用循環(huán)結(jié)構(gòu)去解決一些常見的問題。 思考與練習(xí)題 Windows下如何使用快捷鍵？Windows