怎樣用做記事本？步驟一：草圖界面。新建一個標(biāo)準(zhǔn)EXE工程，將其Caption屬性轉(zhuǎn)成“灰常記事本”，再點(diǎn)Icon屬性給它找個比較好的Icon圖標(biāo)。左鍵單擊菜單“工程”-“部件”，在彈出的“部件”對話框

怎樣用做記事本？

步驟一：草圖界面。

新建一個標(biāo)準(zhǔn)EXE工程，將其Caption屬性轉(zhuǎn)成“灰常記事本”，再點(diǎn)Icon屬性給它找個比較好的Icon圖標(biāo)。左鍵單擊菜單“工程”-“部件”，在彈出的“部件”對話框里不能找到Microsoft RichText Box6.0和公共考試對話框Microsoft Common Dialog6.0并全選它們，右擊“確定”按鈕。這時左邊的工具欄上直接出現(xiàn)了我們剛剛新添的兩個控件了。在窗體上繪制的RichTextBox和CommnDialog，其中RichTextBox的大小和位置可你不理睬，我們將在代碼中如何處理它，肯定，有必要把它的ScrollBar屬性設(shè)為2-rtfVertical，那樣的話在然后打開和編輯文件時垂直滾動條才用下。

步驟二：編輯菜單。

按CtrlE打開系統(tǒng)菜單編輯器，我們來做萬分感謝幾個菜單：

一.文件菜單：

文件（第一層）mnuFile

新建（第二層）mnuNew

打開（第二層）mnuOpen

保存（第二層）mnuSave

-（第二層）mnuFileSep(分隔線）

逃離（第二層）mnuExit

二.編輯菜單：

編輯時（第一層）mnuEdit

圖片文件夾（第二層）mnuCopy

拷貝（第二層）mnuCut

粘帖（第二層）mnuPaste

-（第二層）mnuEditSep（分隔線）

ctrl a全選（第二層）mnuSelecAll

三.搜索菜單：

搜索（第一層）mnuSearch

查看（第二層）mnuFind

里查下一個（第二層）mnuFindOn

四.指導(dǎo)菜單：

幫（第一層）mnuHelp

使用說明（第二層）mnuUsage

麻煩問下（第二層）mnuAbout

(注：各菜單項(xiàng)的快捷鍵請無法設(shè)置里)

再說，其它的菜單項(xiàng)以后再據(jù)要添加。現(xiàn)在進(jìn)入：

步驟三：編寫代碼。

聲明直接輸入變量

DimsFindsuchString

聲明文件類型

DimFileType,FiTypeasString

重新初始化程序

Private Sub Form_Load()

可以設(shè)置程序起動時的大小

Me.Height6000

Me.Width9000

EndSub

可以設(shè)置編輯框的位置和大小

PrivateSubForm_Resize()

OnErrorResumeNext出現(xiàn)錯誤全面處理

RichTextBox1.Left20

RichTextBox1.Height ScaleHeight-40

RichTextBox1.WidthScaleWidth-40

EndSub

剛建文件

Private Sub mnuNew_Click()

RichTextBox1.Text

VB中Scroll的使用方法？

PrivateSubForm_Load()100設(shè)置中Timer1想執(zhí)行的時間間隔為100msEndSubPrivateSubForm_Resize()滾動條位置隨窗體變化而波動VScroll1.Left-0VScroll1.Height SubPrivate Sub Timer1_Timer()利用Timer控件來視頻監(jiān)視窗體狀態(tài)If2Thenwindowstate屬性你可以去看下窗體的屬性窗口FalseElseIf0TrueEndIfEndSub