国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

跟我學做記事本

2019-11-18 17:27:11
字體：大 中 小
來源：轉載
供稿：網友
用VB做一個記事本實在不很復雜，我們完全可以通過向導來很方便地做出來。但本文只打算討論用手動方法制作記事本，旨在向VB初學者展示：學VB原來是如此容易！
通過閱讀、研究本文并按本文所述進行嘗試，初學者將學到很多東西,如怎樣使用RichText控件來打開和保存文件，怎樣制作菜單、工具欄和狀態欄以及如何對其編寫代碼等。

第一章讓我們的記事本馬上運行

急于求成是初學者共有的心愿。那好，請按如下三個步驟做，我們的愿望立即就可以實現！

步驟一：繪制界面。
新建一個標準EXE工程，將其Caption屬性改為“超級記事本”，點擊Icon屬性給它找個合適的Icon圖標。單擊菜單“工程”-“部件”，在彈出的“部件”對話框里找到MicrosoftRichTextBox6.0和公共對話框MicrosoftCommonDialog6.0并選中它們，單擊“確定”按鈕。這時左邊的工具欄上出現了我們剛才新添的兩個控件了。在窗體上繪制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，我們將在代碼中處理它，當然，有必要把它的ScrollBar屬性設為2-rtfVertical，這樣在打開和編輯文件時垂直滾動條才可用。

步驟二：編輯菜單。
按Ctrl E調出菜單編輯器，我們來做如下幾個菜單：
一.文件菜單：
文件（第一層）mnuFile
新建（第二層）mnuNew
打開（第二層）mnuOpen
保存（第二層）mnuSave
-（第二層）mnuFileSep(分隔線）
退出（第二層）mnuExit
二.編輯菜單：
編輯（第一層）mnuEdit
復制（第二層）mnuCopy
剪切（第二層）mnuCut
粘貼（第二層）mnuPaste
-（第二層）mnuEditSep（分隔線）
全選（第二層）mnuSelecAll
三.搜索菜單：
搜索（第一層）mnuSearch
查找（第二層）mnuFind
查找下一個（第二層）mnuFindOn
四.幫助菜單：
幫助（第一層）mnuHelp
使用說明（第二層）mnuUsage
關于（第二層）mnuAbout
(注：各菜單項的快捷鍵請自行設置)

好了，其它的菜單項以后再根據需要添加。現在進入：

步驟三：編寫代碼。

'聲明查找變量
DimsFindAsString
'聲明文件類型
DimFileType,FiTypeAsString

'初始化程序
PrivateSubmnuCopy_Click()
ClPrivateSubmnuFindOn_Click()
RichTextBox1.SelStart=RichTextBox1.SelStart RichTextBox1.SelLength 1
RichTextBox1.FindsFind,,Len(RichTextBox1)
EndSub

'使用說明
PrivateSubmnuReadme_Click()
OnErrorGoTohandler
RichTextBox1.LoadFile"Readme.txt",rtfText'請寫好Readme.txt文件并存入程序所在文件夾中
Me.Caption="超級記事本："&"使用說明"
ExitSub
handler:
MsgBox"使用說明文檔可能已經被移除，請與作者聯系。",vbOKOnly,"錯誤信息"
EndSub

'關于
PrivateSubmnuAbout_Click()
MsgBox"超級記事本Ver1.0版權所有(C)2001土人",vbOKOnly,"關于"
EndSub

'設置彈出式菜單（即在編輯框中單擊鼠標右鍵時彈出的動態菜單）
PrivateSubRichTextBox1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
PopupMenumnuEdit,vbPopupMenuLeftAlign
Else
ExitSub
EndIf
EndSub

'防止在切換輸入法時EndSelect
EndSub

完成后試運行一下我們的程序，我們發現，有了工具欄之后，程序變得漂亮多了，只是有一個問題：打開一個較長的文檔后，編輯框的下拉滾動條向上的箭頭不見了。原因是：工具條占用一定的空間。解決方法：將“設置編輯框的位置和大小”中的RichTextBox1.Top=20和RichTextBox1.Height=Me.ScaleHeight-40分別改為RichTextBox1.Top=380，RichTextBox1.Height=Me.ScaleHeight-400即可。

二.狀態欄
(一)制作狀態欄
狀態欄的英文名字叫StatusBar，在窗體上添加它后會默認出現在窗體的最下方。用鼠標右鍵點擊它，調出“屬性頁”對話框，單擊“窗格”項，插入一些窗格，可以將各個窗格的“樣式”設置為：
0-sbrText顯示文本，需編寫代碼
1-sbrCaps顯示大小寫狀態，無需編程
2-sbrNum顯示NumLock鍵開關狀態，無需編程
3-sbrIns顯示Insert鍵狀態，無需編程
4-sbrScr1
5-sbrTime顯示時間，不編程時時間不會隨系統時鐘變化
6-sbrDate顯示日期，無需編程
注意：加進狀態欄后需將Form_Resze中的RichTextBox1.Height=Me.ScaleHeight-400改為RichTextBox1.Height=Me.ScaleHeight-600。
(二)狀態欄根據其“樣式”屬性決定用不用編寫代碼(如上文所述)。下面舉些例子，讀者可以認真揣摩，從而達到舉一反三的效果。

例一：用戶選取了“新建”后，讓第一個窗格顯示：“目前狀態：正在打開文件《……》”。請將下面代碼寫進“打開”菜單里面：
　　StatusBar1.Panels(1).Text="目前狀態：正在打開文件"&"《"&CommonDialog1.FileTitle&"》"

例二：讓第三個窗格顯示時間并讓時間跟隨系統時鐘變化。
首先，給程序加一個Timer控件，將其Interval屬性設為1000。然后：
在Form_Load過程加入：StatusBar1.Panels(1).Text=Time；然后給Timer控件編寫代碼：

PrivateSubTimer1_Timer()
IfStatusBar1.Panels(3).Text<>CStr(Time)Then
StatusBar1.Panels(3).Text=Time
EndIf
EndSub

例三：當編輯框的文本發生變化時讓第一個窗格顯示：“正在編輯文檔：文件名”。
PrivateSubRichTextBox1_Chang()
StatusBar1.Panels(1).Text="正在編輯文檔："&CommonDialog1.FileName
EndSub

辛苦了那么久，我們現在已經擁有一個象模象樣的記事本了。這個記事本由于用了RichText控件，理論上它能打開和編輯任意大的文檔，使用起來的確比Windows自帶的記事本方便得多。當然，還有一些其它的功能需要添加和完善，這就靠你慢慢去完成了。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 武城县| 涟水县| 信丰县| 鄂托克前旗| 恩施市| 玉门市| 通山县| 木里| 云霄县| 治县。| 高碑店市| 拜城县| 洪雅县| 商丘市| 峨眉山市| 上高县| 淮阳县| 颍上县| 安多县| 二手房| 金堂县| 淮北市| 平泉县| 赤峰市| 宿州市| 班玛县| 革吉县| 阳春市| 海安县| 中方县| 上虞市| 谢通门县| 孝昌县| 岱山县| 噶尔县| 体育| 鄂温| 元朗区| 丹寨县| 浏阳市| 历史|