亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

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

跟我學做記事本

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自帶的記事本方便得多。當然，還有一些其它的功能需要添加和完善，這就靠你慢慢去完成了。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产精品吊钟奶在线| 亚洲一区二区三区乱码aⅴ蜜桃女| 欧美精品中文字幕一区| 久久亚洲一区二区三区四区五区高| 欧美日韩性视频| 日韩电影中文字幕一区| 亚洲欧美中文字幕在线一区| 日韩亚洲精品视频| 国产热re99久久6国产精品| 亚洲午夜久久久影院| 91成人在线播放| 亚洲精品久久久久中文字幕欢迎你| 丰满岳妇乱一区二区三区| 国产亚洲成av人片在线观看桃| 亚洲最大激情中文字幕| 久久伊人色综合| 国产精品观看在线亚洲人成网| 久久亚洲精品毛片| 91在线免费网站| 另类少妇人与禽zozz0性伦| 日本三级韩国三级久久| 日韩综合中文字幕| 成人有码视频在线播放| 亚洲丁香婷深爱综合| 热久久99这里有精品| 久久全国免费视频| 午夜精品久久久久久久99黑人| 国产精品美女主播在线观看纯欲| 国产91在线播放九色快色| 欧美高清无遮挡| 精品久久中文字幕久久av| 亚洲国产日韩欧美在线图片| 裸体女人亚洲精品一区| 亚洲欧美激情四射在线日| 日韩精品电影网| 亚洲色图av在线| 久久久成人精品视频| 美女黄色丝袜一区| 日韩美女写真福利在线观看| 国产精品美女www爽爽爽视频| 色与欲影视天天看综合网| 欧洲成人午夜免费大片| 精品亚洲一区二区| 久久天堂电影网| 91久久精品国产| 国产一区二区三区视频在线观看| 久久久免费观看| 97人人模人人爽人人喊中文字| 国产日产亚洲精品| 国产日韩av在线| 欧美激情小视频| 午夜精品久久久久久久99热浪潮| 午夜精品一区二区三区在线| 亚洲日韩欧美视频一区| 国产精品一区二区久久国产| 亚洲最大福利视频网站| 欧美日本高清一区| 亚洲a级在线播放观看| 97国产真实伦对白精彩视频8| 欧美国产日韩中文字幕在线| 影音先锋欧美精品| 97av在线视频免费播放| 欧美成人自拍视频| 欧美多人爱爱视频网站| 久久久国产精品亚洲一区| 国产欧美日韩视频| 欧美久久精品午夜青青大伊人| 欧美精品性视频| 韩国国内大量揄拍精品视频| 国产精品视频不卡| 中文字幕在线看视频国产欧美在线看完整| 日韩精品在线影院| 欧美一级大片在线免费观看| 日本aⅴ大伊香蕉精品视频| 日韩精品极品毛片系列视频| 国产精品一区二区三区在线播放| 欧美精品久久久久久久久久| 中文字幕在线日韩| www.午夜精品| 2018中文字幕一区二区三区| 国产一区二区三区视频在线观看| 久久精品国产一区二区三区| 久久久成人av| 奇米四色中文综合久久| 精品露脸国产偷人在视频| 欧美激情成人在线视频| 91精品国产综合久久香蕉的用户体验| 国产丝袜一区二区三区| 欧美黑人又粗大| 亚洲无限乱码一二三四麻| 亚洲国产高清高潮精品美女| 欧洲美女7788成人免费视频| 亚洲国产高清高潮精品美女| 欧美性猛交xxxx乱大交蜜桃| 91久久国产精品| 欧美激情精品久久久久久变态| 国产一区在线播放| 最近免费中文字幕视频2019| 欧美日韩在线观看视频| 日韩欧美福利视频| 国产精品久久久久7777婷婷| 成人黄色短视频在线观看| 亚洲香蕉成人av网站在线观看| 国产精品影院在线观看| 欧美精品免费播放| 国产91色在线播放| 亚洲第五色综合网| 国产精品视频26uuu| 亚洲日本中文字幕| 久久6精品影院| 欧美国产高跟鞋裸体秀xxxhd| 91欧美视频网站| 久久久国产精品免费| 日本精品免费一区二区三区| 亚洲色在线视频| 精品国产一区二区三区久久久| 97热在线精品视频在线观看| 成人在线一区二区| 中文国产成人精品久久一| 91成人在线视频| 91沈先生在线观看| 91视频九色网站| 国产精品99久久久久久人| 欧美性猛交xxxx黑人猛交| www.久久草.com| 中文字幕在线国产精品| 国外成人性视频| 91精品国产高清久久久久久| 91国内精品久久| 中国日韩欧美久久久久久久久| 国产精品视频永久免费播放| 日韩在线视频线视频免费网站| 久久精品国产精品亚洲| 夜色77av精品影院| 91久久久久久久久| 色综合天天狠天天透天天伊人| 九九热r在线视频精品| 57pao成人永久免费视频| 国产mv久久久| 91免费看片在线| 欧美日本精品在线| 久久99热这里只有精品国产| 中文字幕久久久av一区| 日韩成人在线播放| 欧美在线激情网| 中文字幕一区电影| 亚洲人成伊人成综合网久久久| 中文字幕欧美日韩| 欧美激情精品久久久| 在线看欧美日韩| 欧美性69xxxx肥| 国产欧美日韩中文字幕在线| 欧美巨猛xxxx猛交黑人97人| www.欧美视频| 日韩精品在线观看一区| 亚洲高清免费观看高清完整版| 欧美一级电影在线| 欧美激情免费看| 国产极品jizzhd欧美| 国产成人一区二区三区电影| 亚洲新中文字幕| 亚洲成avwww人| 91欧美日韩一区| 欧美最猛性xxxxx免费|