在前面兩節(jié)里，我們學(xué)到了 VB 的操作方法，以及 Label 與 TextBox 控件的使用方法，現(xiàn)在我們用這兩節(jié)學(xué)到的知識(shí)來(lái)做一個(gè)簡(jiǎn)單的文本編輯器。

一、程序最終目的：

用戶可以在程序的編輯窗口輸入文本；對(duì)輸入的文本可以進(jìn)行復(fù)制、粘貼、清除操作；另外，還能在兩個(gè)標(biāo)簽上分別顯示選中文本的起始位置、選中文本的長(zhǎng)度。

二、界面設(shè)置：

根據(jù)程序的要求，我們需要制作一個(gè)文本框控件（TxtContent），它將做為程序的輸入窗口；另外還有四個(gè)按鈕，分別是復(fù)制按鈕（CmdCopy）、粘貼按鈕（CmdPaste）、清除按鈕（CmdClear）、退出程序按鈕（CmdQuit）；此外，還需要兩個(gè)用來(lái)顯示所選文本起始位置的標(biāo)簽一（LblStart）和顯示所選文本長(zhǎng)度的標(biāo)簽二（LblLength）。

最終界面如圖一：


圖一

請(qǐng)大家仿照?qǐng)D一制作。

三、屬性設(shè)置：

如圖一所示，但請(qǐng)注意，文本框控件的 Multiline（多行）屬性要設(shè)置為 True ，這樣，文本框才能自動(dòng)換行。如圖二：


圖二

四、程序書寫：

1、文本框（TxtContent）的鼠標(biāo)事件：

對(duì)文本的選擇，可以理解為這樣的過(guò)程：先在欲選擇的文本前點(diǎn)擊鼠標(biāo)，按下左鍵不放，拖動(dòng)鼠標(biāo)直到選擇文本的結(jié)束處，最后松開鼠標(biāo)。這說(shuō)明，松開鼠標(biāo)代表著文本選擇的結(jié)束，從而應(yīng)該在文本框的鼠標(biāo)彈起事件（MouseUp）中書寫代碼，以改變兩個(gè)標(biāo)簽的標(biāo)題。

具體代碼如下：



注意：這個(gè) “&”符號(hào)表示將兩個(gè)字符串連接起來(lái)。另外如： A & B ，結(jié)果是 AB ；ABC & EFG ，結(jié)果是 ABCEFG ，等等。

2、復(fù)制按鈕的點(diǎn)擊事件：



3、粘貼按鈕的點(diǎn)擊事件：



4、清空按鈕的點(diǎn)擊事件：



5、退出程序按鈕的點(diǎn)擊事件：



五、運(yùn)行調(diào)試：

按 F5 鍵，或者點(diǎn)按運(yùn)行按鈕，這個(gè)簡(jiǎn)單的文本編輯器可以用了嗎？

六、控件的一些基本操作:

在 VB “菜單欄”中有一個(gè)“格式”命令，通過(guò)它提供的一些功能可以讓我們的工作事半功倍。

1、對(duì)齊：

分別是縱向?qū)R的“左對(duì)齊”、“居中對(duì)齊”、“右對(duì)齊”；橫向?qū)R的“頂端”、“中間”、“底端”對(duì)齊；以及面向網(wǎng)格的“網(wǎng)格對(duì)齊”。它們的功能非常簡(jiǎn)單，你只需隨意繪制幾個(gè)控件，然后選擇它們，再試著使用相關(guān)命令就能掌握了。如圖三是隨意繪制的程序界面：


圖三

全部選中后，使用“左對(duì)齊”的結(jié)果如圖四：


圖四

也許你要問(wèn)，這個(gè)對(duì)齊是以哪一個(gè)控件做為參照物的？再仔細(xì)看看圖三，那個(gè) Command1 按鈕四周是八個(gè)實(shí)心的黑色小點(diǎn)，而其他控件則是白色的小點(diǎn)，現(xiàn)在你知道了吧，正是以 Command1 按鈕為參照物進(jìn)行對(duì)齊的，也就是說(shuō)你最后選擇的那一個(gè)控件。

2、統(tǒng)一尺寸：

以某個(gè)控件為參照物，統(tǒng)一其他控件的大小尺寸。

3、水平間距與垂直間距：

調(diào)整某幾個(gè)控件的水平間距或垂直間距。

活用上面幾個(gè)操作，將使你的工作事半功倍！