Visual Basic 教程

1、VB教程第一章：我的第一個VB程序“跟我來學VB神童教程”作者：未知閱讀人次：293003文章來源：未知發(fā)布時間：2004/12/15網友評論(1072)條一、打開程序：點擊桌面上的 Visual Basic 圖標，在彈出的如圖一的窗口中選擇“創(chuàng)建標準 EXE”按鈕。圖一確定后的狀態(tài)如圖二圖二這就是創(chuàng)建了一個新的“標準 EXE”文件了。二、工作界面簡介：默認的 VB 工作界面由標題欄（1）、菜單欄（2）、工具欄（3）、工具箱面板（4）、程序設計區(qū)（5）、項目窗口（6）、屬性窗口（7）、布局窗口（8）組成，至于它們具體有什么作用，我們將在以后的實例學習中接觸，這里就不予以說明。三、編寫我的第一個

2、應用程序：1、應用程序要產生的效果：創(chuàng)建的應用程序要有什么樣的功能？這是開發(fā)每一個應用程序必須最先想到的。我們的第一個應用程序非常簡單，使用者只需點擊程序上的一個按鈕，程序界面上就會顯現“跟我來學 VB 神童教程”字樣。2、開發(fā)思路：根據應用程序要實現的功能，那么我們至少需要制作一個按鈕、一個程序界面，為了讓應用程序更規(guī)范，我們還需要創(chuàng)建一個用來顯示“跟我來學 VB 神童教程”字樣的容器。3、具體制作過程：1、創(chuàng)建一個新的“標準 EXE”文件，如第一步所做。需要指出的是，這個以 Form1 為標題欄的程序界面就是我們需要的“程序界面”，也是用戶首先看到的對象，所以盡可能將其做得美觀一點。當然，

3、對應用界面的美化問題我們將在以后探討。2、根據開發(fā)思路，現在我們來制作按鈕。雙擊工具箱面板上的命令按鈕（Command Button）圖標，如圖三：圖三然后你會發(fā)現程序界面上多了一個命令按鈕，如圖四：圖四用鼠標拖動新建的按鈕到適當位置，如圖五：圖五再創(chuàng)建一個標簽按鈕，雙擊如圖六的圖標：圖六完成后程序界面如圖七：圖七用鼠標拖動標簽按鈕到合適位置，如圖八：圖八將鼠標放在標簽按鈕左右邊緣任意一處，當鼠標呈左右鍵頭時橫向拖動，把標簽按鈕拖長，最后的程序界面如圖九：圖九3、對按鈕屬性進行設置：開發(fā)任何應用程序，在完成界面布局后，應該就每一個元素進行屬性設置以達到自己的要求。當然，也可以在元素布局的過程中

4、進行屬性設置。 首先點選箭頭狀的“選擇”圖標以便進行選擇，如圖十：圖十選中程序界面上的命令按鈕，然后找到屬性面板，如圖十一：圖十一其中，“名稱：Command1”是此按鈕的名稱，主要用于程序引用，所以不要用中文名字。此處，可以不修改按鈕的名字，但為了程序更規(guī)范，我們將其名字改成“CmdShow”，如圖十二：圖十二“Caption：Command1”是命令按鈕的標題，也就是顯示在命令按鈕上的字樣，我們將其改成“顯示”，如圖十三：圖十三用上面的方法，我們將標簽按鈕的名字改為“LblShow”，如圖十四：圖十四將標簽按鈕的標題改成空字符串，也就是沒有任何文字，如圖十五：圖十五4、輸入程序代碼：我們前

5、面講到的元素布局、屬性設置只不過是對應用程序操作界面的定制，要讓程序實現功能，關鍵還得輸入程序代碼。選中命令按鈕 CmdShow ，然后雙擊它，彈出如圖十六的程序代碼輸入窗口：圖十六在光標閃爍處輸入代碼：LblShow.Caption = 跟我來學 VB 神童教程（這句程序是什么意思？以后我們講述）。如圖十七：圖十七輸入完畢，點擊右上角的 “X” 回到對象窗口，然后點擊工具欄上的“啟動”按鈕（快捷鍵：F5），可以看最終結果了！四、知識點：1、我們的第一個程序確實非常簡單，但它道出了程序設計的基本方法：首先，應用程序要用來做什么？也就是開發(fā)應用程序的目的；其次，應用程序大體上由哪些元素組成？也就

6、是應用程序的操作界面如何，如果可能，最好先用筆把程序界面畫出來；然后是對程序界面中每一個元素的屬性進行設置；最后輸入程序代碼和調試。2、前面我們所談到的“命令按鈕”、“標簽按鈕”，其實它們準確的說法是“命令按鈕控件”、“標簽按鈕控件”，無論是這些控件，還是剛才作為應用程序界面的“窗體”，都是“對象”，因此， VB 是一門面向對象的編程語言，每一個對象都具有很多屬性，如大小、位置、標題等等。屬性的設置通過屬性窗口完成。3、這一點的內容不需強記，在以后的控件講述中將會涉及。除了“命令控鈕控件”、“標簽按鈕控件”，默認的工具箱面板上還有“指針”工具（用來選擇程序設計窗口中的對象）、圖片控件（在界面上

7、添加圖片）、文本框控件（在界面上顯示文本或用來輸入文本）、選項框控件（主要用來作為區(qū)域劃分的控件，一般把相同類型的控件放置在一個選項框中，把其他類型的控件放在其他選項框中）、復選控件（用來制作復選按鈕）、單選控件（制作單選按鈕）、組合框控件（用來制作功能更為強大的列表框，既有文本框控件的功能，還有列表框控件的功能）、列表框控件（制作各種列表）、滾動條控件（共有橫向與豎直兩種）、時鐘控件（一般用來添加時間觸發(fā)）、文件操作控件（共有磁盤列表框控件、文件夾列表框、文件列表框三種），另外，還有繪圖控件、圖像框控件、日期控件。4、VB 提供了豐富的控件選擇，除了默認的工具箱面板上的控件外，還有很多控件沒

8、有羅列出來，我們可以通過“工程部件”命令或在工具箱面板上單擊鼠標右鍵，在彈出的快捷菜單中選擇“部件”命令，彈出如圖十八的窗口：圖十八本窗口羅列了當前系統(tǒng)中所有的控件，只需選中所需控件前面對應的復選框就行了。5、編寫程序應該養(yǎng)成好習慣，在給每一個對象命名時首先要保證規(guī)范，其次要能“望文生義”，也就是看見一個對象的名字就能知道它是做什么的，如前面我們給命令按鈕控件起名為“CmdShow”，一看就知道是用來 Show 的 Command 類型控件。6、我們最初進入的程序設計界面是對象界面，進入代碼界面的辦法很簡單，前面用到的雙擊控件是一種辦法，另外還可以通過點擊項目窗口中的“查看代碼”按鈕進入，如果

9、點按旁邊的“查看對象”按鈕就會又回到原來的對象界面。如圖十九：圖十九7、在前面的例子：LblShow.Caption = 跟我來學 VB 神童教程中，“”并不是數學中的等號，而是一種賦值符號，表示：將“跟我來學 VB 神童教程”這個字符串賦值給 LblShow ，并作為它的標題。另外如：X = X+6 ，在數學中，這種表達式不存立，而在 VB 中，是指在 X 本來的基礎上加 6 ，然后把結果重新賦給 X ，這時 X 的值不再是原來的數字，而是加上 6 后的值。8、程序的保存：在 VB 中進行保存，常常用“保存工程”命令，而在保存過程中，必須保存兩次，一次是以 .frm 為擴展名的文件保存，另一

10、次是以 .VBP 為擴展名的文件保存。前者是保存應用程序的窗體文件，后者是保存應用程序的工程文件。如圖二十與圖二十一：圖二十圖二十一VB教程第二章：控件學習作者：未知閱讀人次：285985文章來源：未知發(fā)布時間：2004/12/15網友評論(527)條第一節(jié)Label 控件在第一章，我們已經知道，任何一個 VB 程序都是由操作界面及與之相應的程序代碼組成，而操作界面則是由諸如“命令按鈕控件”、“標簽控件”等控件以及窗體共同組成。從本章開始，我們進入控件的學習過程。Label（標簽控件）是圖形控件，主要作用在于顯示文字信息，如大家比較熟悉的程序安裝界面：在某個軟件安裝過程中，常常會顯示一些幫助信

11、息或與產品相關的介紹信息，而這些，大多是用標簽控件制成的。與以后我們要學到的文本框控件（TextBox）不同的是，標簽控件顯示的文字不能直接進行修改，要修改的話只能在設計階段進行；文本框既可以用來顯示文本，還能夠在文本框中輸入文本。在 Visual Basic 工具箱中，標簽控件的圖標如圖一所示。標簽的默認名稱（Name）和標題（Caption）為 LabelX（X為1、2、3，等等），規(guī)范的命名方式為：LblX（X為自己定義的詞，如 LblShow 、LblRed ，等等）圖一一、標簽控件的主要屬性：1、Caption（標題）屬性：此屬性用來設置在標簽上顯示的文本信息，可以在創(chuàng)建界面時設置，

12、也可以在程序中改變文本信息，如第一章的例子中，通過點擊按鈕改變標簽顯示的字樣。如果要在程序中修改標題屬性，代碼規(guī)則如下：標簽名稱.Caption = 欲顯示的文本如第一章在程序中改變標簽 LblShow 的 Caption 屬性：LblShow.Caption = 跟我來學 VB 神童教程但是請大家注意，上面的代碼應該寫入供觸發(fā)的控件對應的程序代碼區(qū)，如第一章中，是在命令按鈕的程序代碼區(qū)輸入的代碼，而不是標簽本身的代碼區(qū)喲。這也是初學者常常大惑不解的地方，為什么我要讓標簽改變字樣，卻要在其他控件中輸入代碼？這是因為，我們是通過觸發(fā)其他控件這個事件來讓標簽改變 Caption 屬性的。當然，你也

13、可以讓標簽本身來觸發(fā) Caption 屬性改變事件，如用鼠標點擊標簽，這時你就需要在標簽對應的程序代碼區(qū)輸入代碼了，但在實際編寫中，這種情況非常罕見。畢竟，標簽控件用于顯示信息的本意遠遠超過了響應鼠標點擊的意圖。2、BorderStyle（邊框）屬性：本屬性用來設置標簽的邊框類型，有兩種值可選：0，代表標簽無邊框；1，代表標簽有邊框，并且具有三維效果，如圖二顯示的兩個標簽：圖二BorderStyle 屬性可以在設計界面時指定，如圖三：圖三也可以在程序中改變（但這種應用不多見），程序代碼規(guī)則：標簽名.BorderStyle = 0/1（0或1，兩者取一）習題一：創(chuàng)建一個標簽（LblShow）、兩

14、個按鈕（CmdChange1、CmdChange2），點按 CmdChange1 ，標簽有邊框；點按 CmdChange2 ，標簽無邊框。聯想：在完成本題后，你可能會想到，有沒有辦法用一個按鈕來完成本題的功能？即鼠標點擊一下，標簽有邊框，再點一下，標簽邊框消除，再點一下，邊框又出現，以此類推?；卮鹗强隙ǖ?，不過，這是在以后的學習中要講的。答案：見本節(jié)最后的答案區(qū)。3、Font（字體）屬性：本屬性用來設置標簽顯示的字體，既可以在創(chuàng)建界面時設定，也可以在程序中改變。在創(chuàng)建界面時設定，如圖四：圖四在圖四的設置界面中，除了可以選擇字體，還可以設置顯示文字是否為粗體、斜體、下劃線等。在程序中改變 Fon

15、t 屬性，程序代碼書寫規(guī)則如下：字體改變：標簽名.FontName = 字體類型，其中，“字體類型”可以是中文，如“宋體”、“隸書”；也可以是英文名，如“Arial”、“Times New Roman”，等等，不過，這些字體名稱必須是電腦上有的。字體大小改變：標簽名.FontSize = X ，其中，X 是阿拉伯數字，代表字體是幾號字。如：LblShow.FontSize = 11 。粗體（FontBold）、斜體（FontItalic）、下劃線（FontUnderline）、刪除線（FontStrikethru）屬性的設置值是代表真/假的邏輯判斷值 True/False ，如下：LblSho

16、w.FontBold = True/FalseLblShow.FontItalic = True/False習題二：一個標簽（LblShow）用于顯示文本；按鈕1（Cmd1）可以讓標簽顯示的字體變成隸書；按鈕2（Cmd2）可以讓標簽顯示的字體變成 13 號字；按鈕3（Cmd3）可以讓字體變成粗體。答案：見本節(jié)最后的答案區(qū)。4、Alignment（對齊）屬性：此屬性用來設置標簽上顯示的文本的對齊方式，分別是：左對齊，0；右對齊，1；居中顯示，2?？梢栽诮缑嬖O置時設定，如圖五：圖五也可以在程序中改變，代碼如下：標簽名.Alignment = 0/1/25、Visible（可見）屬性：本屬性在大多數

17、控件中都有，它能設定該控件是否可見。當值為 True ，控件可見；當值為 False ，控件隱藏?？丶目梢妼傩钥梢栽诮缑嬖O置時設定，如圖六：圖六也可以在程序中改變，代碼如下：標簽名.Visible = True/False習題三：一個標簽（LblShow），在界面設置時為可見；按鈕1（Cmd1），能夠讓標簽隱藏；按鈕2（Cmd2），能夠讓標簽顯現。答案：見本節(jié)最后的答案區(qū)二、標簽控件（Label）的主要事件：所謂的事件，其實就是用戶對應用程序的操作，如第一章中用鼠標點擊命令按鈕觸發(fā)的 Click 事件。事件的作用在于觸發(fā)程序的執(zhí)行，如第一章中的 Click 事件改變了標簽控件的 Captio

18、n 屬性。標簽控件的主要作用在于顯示文本信息，但也支持一些為數不多的事件。1、Click 事件（鼠標單擊）：用鼠標點擊標簽時觸發(fā)的事件，如改變標簽的字體屬性：Private Sub LblShow_Click()LblShow.FontName = 隸書End Sub2、DbClick 事件（鼠標雙擊）：鼠標雙擊引發(fā)的事件，如改變標簽的可見性：Private Sub LblShow_DbClick()LblShow.Visible = FalseEnd Sub三、知識點：1、用 VB 編寫程序猶如搭積木，把每塊“積木”（控件或其他對象）放在合理的位置，然后以某種機制（程序）將這些“積木”們運用

19、起來，最后就搭成了我們需要的東西。所以，掌握每一種控件，包括它們的屬性與主要事件，是我們學習編程的基礎！2、某些屬性是大多數控件所共有的，如 Name 、FontBold、FontItalic、Visible ，等等；但也有些屬性是某個控件所獨有的，如標簽控件的 WordWrap （標簽的標題顯示方式）。本節(jié)中我們只是講述了部分標簽控件的屬性，其他屬性可以在 VB 的幫助文件中查找到。3、大家在學習過程中一定會疑惑，為什么在屬性設置時，“” 右邊有時使用 ，有時又不使用 。不知大家注意到沒有，我們在使用 時，是因為引號里面的內容是字符串，如隸書、Times New Roman，等等。4、字符的

20、大小寫問題：初學者還常常疑惑，字母什么時候應該大寫，什么時候應該小寫？其實，大寫小寫在 VB 程序中都是一樣的，但為了讓程序編寫得更為規(guī)范，程序可讀性更高，英文單詞的第一個字母一般都要大寫，如 Visible 、Name ，等等；控件的命名也遵循以上原則，不同的是，命名都是由“控件類型名具體名字”組成的，控件類型名的第一個字母要大寫，具體名字的第一個字母要大寫，如 LblShow 、CmdShow 、LblChange ，等等。5、程序代碼的規(guī)范：上面有這樣的例子：Private Sub CmdShow_Click()LblShow.Caption = 跟我來學 VB 神童教程End SubP

21、rivate Sub CmdShow_Click()代表一個過程，共由兩部分組成，CmdShow 代表 CmdShow 這個按鈕，Click 代表這個按鈕的觸發(fā)事件。以此類推，Private Sub LblShow_DbClick ()也代表一個過程，LblShow 是個標簽，DbClick 是雙擊事件。另外，Private 意為“私有”，表明這個事件過程的類型；此外還有 Public 即“公有”事件。Sub 表明這個過程是“子程序”，若干個“子程序”共同組成最終的應用程序。()里面是用來裝參數的，關于參數，我們以后講述，如果沒有參數，()里面為空。四、答案區(qū)：第一題：第一個按鈕的點擊事件：P

22、rivate Sub CmdChange1_Click()LblShow.BorderStyle = 1End Sub第二個按鈕的點擊事件：Private Sub CmdChange2_Click()LblShow.BorderStyle = 0End Sub第二題：按鈕1：Private Sub Cmd1_Click()LblShow.FontName = 隸書End Sub按鈕2：Private Sub Cmd2_Click()LblShow.FontSize = 13End Sub按鈕3：Private Sub Cmd3_Click()LblShow.FontBold = TrueEnd

23、 Sub第三題：按鈕1：Private Sub Cmd1_Click()LblShow.Visible = FalseEnd Sub按鈕2：Private Sub Cmd2_Click()LblShow.Visible = TrueEnd Sub第二節(jié)TextBox控件在Visual Basic 操作界面中，TextBox（文本框）控件所代表的圖標如圖一：圖一TextBox 控件主要用來顯示文本或用來輸入文本，如 Windows 登陸時的“口令”窗口，或者記事本的整個編輯區(qū)域。雙擊工具箱中的文本框控件或者單擊文本控件，然后用鼠標在 VB 的工作區(qū)域拖拉，就可以創(chuàng)建文本框了。如圖二：圖二文本框控

24、件的默認名稱為 TextX（X為 1、2、3，等等），命名規(guī)則為 TxtX（X為用戶自定義的名字，如 TxtShow、TxtFont、TxtColor ，等等）一、文本框控件的主要屬性：1、Text（文本）屬性：本控件最重要的屬性，用來顯示文本框中的文本內容，可以在界面設置時指定，如圖三：圖三也可以在程序中動態(tài)修改，程序代碼規(guī)則：文本框控件名.Text = 欲顯示的文本內容如要在一個名為 TxtFont 的文本框控件中顯示“隸書”字樣，那么輸入代碼：TxtFont.Text = 隸書習題一：創(chuàng)建一個文本框（TxtContent）用來顯示文本；按鈕一（Cmd1），點擊時文本框內容變?yōu)椤案襾韺WV

25、B神童教程”；按鈕二（Cmd2），點擊時文本框內容清空（也就是沒有內容）。答案：見答案區(qū)。2、SelText（選中文本）屬性：本屬性返回或設置當前所選文本的字符串，如果沒有選中的字符，那么返回值為空字符串即。請注意，本屬性的結果是個返回值，或為空，或為選中的文本。一般來說，選中文本屬性跟文件復制、剪切等剪貼板（在 VB 中，剪貼板用 Clipboard 表示）操作有關，如要將文本框選中的文本拷貝到剪貼板上：Clipboard.SetText 文本框名稱.SelText（注意，本行沒有表示賦值的等號。）要將剪貼板上的文本粘貼到文本框內：文本框名稱.SelText = Clipboard.GetT

26、ext（注意，本行有表示賦值的等號。）例：一個文本框（TxtContent），按鈕一（CmdCopy）用于復制文本框中的選中文本；按鈕二（CmdPaste）用于將剪貼板上的內容粘貼到文本框內。按鈕一：Private Sub CmdCopy_Click()Clipboard.SetText TxtContent.SelTextEnd Sub按鈕二：Private Sub CmdPaste_Click()TxtContent.SelText = Clipboard.GetTextEnd Sub3、SelStart 與 SelLength 屬性：SelStart ，選中文本的起始位置，返回的是選中文

27、本的第一個字符的位置。SelLength ，選中文本的長度，返回的是選中文本的字符串個數。 例如：文本框 TxtContent 中有內容如下：跟我一起學習 VB 神童教程假設選中“一起學習”四個字，那么，SelStart 為 3 ，SelLength 為 4 。4、MaxLength（最大長度）屬性：本屬性限制了文本框中可以輸入字符個數的最大限度，默認為 0 ，表示在文本框所能容納的字符數之內沒有限制，文本框所能容納的字符個數是 64K ，如果超過這個范圍，則應該用其他控件來代替文本框控件。這跟 Windows 中用記事本打開文件一樣，當文件過大，系統(tǒng)會自動調用寫字板來打開文件，而不是用記事本

28、。文本框控件 MaxLength 屬性既可以在界面設置過程中予以指定，如圖四：圖四也可以在設計時予以改變，代碼如下：文本框控件名.Maxlength = X（X為阿拉伯數字，如 10、20、57，等等）。5、MultiLine（多行）屬性：本屬性決定了文本框是否可以顯示或輸入多行文本，當值為 True ，文本框可以容納多行文本；當值為 False ，文本框則只能容納單行文本。本屬性只能在界面設置時指定，程序運行時不能加以改變。如圖五：圖五6、PasswordChar（密碼）屬性：本屬性主要用來作為口令功能進行使用。例如，若希望在密碼框中顯示星號，則可在“屬性”窗口中將 PasswordChar

29、 屬性指定為 “*” 。這時，無論用戶輸入什么字符，文本框中都顯示星號。如圖六：圖六在 VB 中，PasswordChar 屬性的默認符號是星號，但你也可以指定為其他符號。但請注意，如果文本框控件的 MultiLine（多行）屬性為 True ，那么文本框控件的 PasswordChar 屬性將不起作用。習題二：一個文本框（TxtPassword），PasswordChar 屬性指定為星號“*”；一個按鈕（CmdShow）；另外還有一個標簽（LblShow），在初始狀態(tài)下，Caption 為空。程序目的在于，點擊 CmdShow 按鈕，LblShow 能顯示文本框控件中輸入的密碼。答案：見本節(jié)

30、后面的答案區(qū)。7、ScrollBars（滾動條）屬性：本屬性可以設置文本框是否有滾動條。當值為 0 ，文本框無滾動條；值為 1 ，只有橫向滾動條；值為 2 ，只有縱向滾動條；值為 3 ，文本框的橫豎滾動條都具有。如圖七：圖七8、Locked（鎖定）屬性：當值為 False ，文本框中的內容可以編輯；當值為 True ，文本框中的內容不能編輯，只能查看或進行滾動操作。二、文本框控件的事件：除了 Click、DbClick 這些不常用的事件外，與文本框相關的主要事件是 Change、GotFocus、LostFocus 事件。1、Change 事件：當用戶向文本框中輸入新內容，或當程序把文本框控件

31、的 Text 屬性設置為新值時，觸發(fā) Change 事件。2、GotFocus 事件：本事件又名“獲得焦點事件”。所謂獲得焦點，其實就是指處于活動狀態(tài)。在電腦日常操作中，我們常常用 Alt+Tab 鍵在各個程序中切換，處于活動中的程序獲得了焦點，不處于活動的程序則失去了焦點（LostFocus）。3、LostFocus 事件：失去焦點，詳情如上。 例子：一個文本框（TxtContent），默認狀態(tài)下內容為空；當獲得焦點時，文本框內容顯示“大家好，課程還難嗎”字樣；當失去焦點，文本框回到初始狀態(tài)。另外再創(chuàng)建一個標簽（LblShow），當用戶試圖向文本框輸入文本或改變文本框本來的文本時，標簽顯示“

32、標簽的作用大家還清楚嗎”字樣。界面如圖八：圖八程序如下：文本框：Private Sub TxtContent_GotFocus()TxtContent.Text = 大家好，課程還難嗎End SubPrivate Sub TxtContent_LostFocus()TxtContent.Text = End SubPrivate Sub TxtContent_Change()LblShow.Caption = 標簽的作用大家還清楚嗎End Sub三、知識點：1、請記住，Clipboard 指的是 Windows 剪貼板，剪貼板最常用的操作是所選文本的拷貝與粘貼?？截悾篊lipboard.Set

33、Text 文本框名稱.SelText粘貼：文本框名稱.SelText = Clipboard.GetText2、Multiline 屬性為 True 時，文本框控件的 PasswrodChar 屬性不起作用。3、如果要讓文本框的內容自動換行，只需取消文本框的橫向滾動條就行了。四、答案區(qū)：習題一：按鈕一：Private Sub Cmd1_Click()TxtContent.Text = 跟我來學 VB 神童教程End Sub按鈕二：Private Sub Cmd2_Click()TxtContent.Text = End Sub習題二：按鈕：Private Sub CmdShow_Click()

34、LblShow.Caption = TxtPassword.TextEnd SubVB神童教程第二章第三節(jié)綜合示例一作者：未知閱讀人次：108178文章來源：未知發(fā)布時間：2004/12/15網友評論(292)條在前面兩節(jié)里，我們學到了VB 的操作方法，以及 Label 與 TextBox 控件的使用方法，現在我們用這兩節(jié)學到的知識來做一個簡單的文本編輯器。一、程序最終目的：用戶可以在程序的編輯窗口輸入文本；對輸入的文本可以進行復制、粘貼、清除操作；另外，還能在兩個標簽上分別顯示選中文本的起始位置、選中文本的長度。二、界面設置：根據程序的要求，我們需要制作一個文本框控件（TxtContent）

35、，它將做為程序的輸入窗口；另外還有四個按鈕，分別是復制按鈕（CmdCopy）、粘貼按鈕（CmdPaste）、清除按鈕（CmdClear）、退出程序按鈕（CmdQuit）；此外，還需要兩個用來顯示所選文本起始位置的標簽一（LblStart）和顯示所選文本長度的標簽二（LblLength）。最終界面如圖一：圖一請大家仿照圖一制作。三、屬性設置：如圖一所示，但請注意，文本框控件的 Multiline（多行）屬性要設置為 True ，這樣，文本框才能自動換行。如圖二：圖二四、程序書寫：1、文本框（TxtContent）的鼠標事件：對文本的選擇，可以理解為這樣的過程：先在欲選擇的文本前點擊鼠標，按下左鍵

36、不放，拖動鼠標直到選擇文本的結束處，最后松開鼠標。這說明，松開鼠標代表著文本選擇的結束，從而應該在文本框的鼠標彈起事件（MouseUp）中書寫代碼，以改變兩個標簽的標題。具體代碼如下：Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)括號中這一長串內容大家不必管它，這主要是產生位移時的坐標變動。LblStart.Caption = 起始位置： & TxtContent.SelStartLblLength.Caption = 文本長度： & TxtContent

37、.SelLengthEnd Sub注意：這個 “&”符號表示將兩個字符串連接起來。另外如： A & B ，結果是 AB ；ABC & EFG ，結果是 ABCEFG ，等等。2、復制按鈕的點擊事件：Private Sub CmdCopy_Click()Clipboard.SetText TxtContent.SelTextEnd Sub3、粘貼按鈕的點擊事件：Private Sub CmdPaste_Click()TxtContent.SelText = Clipboard.GetTextEnd Sub4、清空按鈕的點擊事件：Private Sub CmdClear_Click()TxtCon

38、tent.Text = End Sub5、退出程序按鈕的點擊事件：Private Sub CmdQuit_Click()EndEnd 在 VB 中，代表程序結束，用它可以直接退出程序。End Sub五、運行調試：按 F5 鍵，或者點按運行按鈕，這個簡單的文本編輯器可以用了嗎？六、控件的一些基本操作：在 VB “菜單欄”中有一個“格式”命令，通過它提供的一些功能可以讓我們的工作事半功倍。1、對齊：分別是縱向對齊的“左對齊”、“居中對齊”、“右對齊”；橫向對齊的“頂端”、“中間”、“底端”對齊；以及面向網格的“網格對齊”。它們的功能非常簡單，你只需隨意繪制幾個控件，然后選擇它們，再試著使用相關命令

39、就能掌握了。如圖三是隨意繪制的程序界面：圖三全部選中后，使用“左對齊”的結果如圖四：圖四也許你要問，這個對齊是以哪一個控件做為參照物的？再仔細看看圖三，那個 Command1 按鈕四周是八個實心的黑色小點，而其他控件則是白色的小點，現在你知道了吧，正是以 Command1 按鈕為參照物進行對齊的，也就是說你最后選擇的那一個控件。2、統(tǒng)一尺寸：以某個控件為參照物，統(tǒng)一其他控件的大小尺寸。3、水平間距與垂直間距：調整某幾個控件的水平間距或垂直間距?；钣蒙厦鎺讉€操作，將使你的工作事半功倍！VB神童教程第二章第四節(jié)CommandButton控件作者：未知閱讀人次：73699文章來源：未知發(fā)布時間：20

40、04/12/15網友評論(150)條在 Visual Basic 操作界面中，CommandButton（命令按鈕）控件所代表的圖標如圖一：圖一CommandButton 控件在程序中主要作為按鈕進行使用。默認的名稱為 CommandX（X為 1、2、3，等等），命名規(guī)則為 CmdX（X為用戶自定義的名字，如 CmdCopy、CmdPaste ，等等）。一、CommandButton 的主要屬性：1、Cancel（取消）屬性：當一個按鈕的 Cancel 屬性設置為 True 時，按 ESC 鍵與單擊此命令按鈕的作用相同，因此，這個命令按鈕被稱為取消按鈕。在一個窗體中，只允許一個命令按鈕的 Ca

41、ncel 屬性為 True 。如圖二：圖二2、Default（默認）屬性：當一個按鈕的 Default 屬性設置為 True 時，按回車鍵與單擊此命令按鈕的作用相同，因此，這個命令按鈕被稱為默認按鈕。與 Cancel 的設置一樣，在一個窗體中，只允許一個命令按鈕的 Default 屬性設置為 True ，如圖三：圖三3、Caption（標題）屬性：跟其他控件的 Caption 屬性一樣，都用來顯示控件標題的屬性。這里要強調的是，作為按鈕控件，用戶可以給按鈕控件的 Caption 指定快捷方式。方法是在按鈕 Caption 屬性中欲作為快捷鍵的字母前加上一個 “&” 符號，程序運行時，該字母的下

42、面會自帶一條下劃線，同時按下 Alt 鍵和帶有下劃線的字母，功效相當于用鼠標點擊該按鈕。如圖四：圖四4、Enabled（可用）屬性：本屬性決定了控件是否可用的問題。當值為 False ，按鈕在程序運行時呈灰色，不能響應用戶的鼠標動作；只有當值為 True ，按鈕才能使用。本屬性可以在設置界面時予以指定，如圖五：圖五也可以在程序中修改，代碼如下： 按鈕控件名稱.Enabled = True/False例一：兩個命令按鈕，按鈕一（CmdEnable）初始狀態(tài)為可用，按鈕二（CmdFalse）初始狀態(tài)不可用。點擊按鈕一，按鈕二變?yōu)榭捎?，按鈕一變?yōu)椴豢捎?；點擊按鈕二，按鈕一變?yōu)榭捎?，按鈕二變?yōu)椴豢捎谩?/p>

43、程序界面如圖六：圖六程序代碼如下：按鈕一：Private Sub CmdEnable_Click()CmdFalse.Enabled = TrueCmdEnable.Enabled = FalseEnd Sub按鈕二：Private Sub CmdFalse_Click()CmdFalse.Enabled = FalseCmdEnable.Enabled = TrueEnd Sub5、Style（類型）與 Picture（圖片）屬性：也許你想讓應用程序的操作界面更美觀一點，也許你想在某個按鈕上添加幅小圖片，那么，你就得使用到本控件的 Style 與 Picture 屬性。銨鈕控件共有兩種 St

44、yle ，一種是標準型（Standard），VB 中用 VbButtonStandard ，或者 0 表示；另外一種是圖形型（Graphical），VB 中用 VbButtonGraphical ，或者 1 表示。Style 屬性可以在界面設置過程中予以指定，如圖七：圖七也可以在程序中改變，代碼如下：按鈕名稱.Style = VbButtonStandard/VbButtonGraphical或者：按鈕名稱.Style = 0/1只有當按鈕的 Style 設置為 Graphical 類型時，按鈕的 Picture 屬性才起作用。本屬性能在指定的按鈕上添加圖片?？梢栽诮缑嬖O置過程中為按鈕指定圖片

45、，如圖八：圖八也可以在程序中進行指定，代碼如下：按鈕名稱.Picture = 圖形文件所在的路徑與文件名，例如：CmdPicture.Picture = D:image01.jpg二、CommandButton 的事件：命令按鈕最常用的事件是鼠標點擊（Click）事件，當點擊按鈕時，猶如發(fā)出了一道命令，而這也正是“命令按鈕”這個說法的由來。VB神童教程第二章第五節(jié)單選與復選控件作者：未知閱讀人次：65665文章來源：未知發(fā)布時間：2004/12/15網友評論(133)條在 Visual Basic中，單選與復選按鈕控件主要作為選項提供給用戶選擇。不同的是，在一組選擇按鈕中，單選控件只能選擇一個

46、，其他單選控件自動變?yōu)槲幢贿x中狀態(tài)；而在一組復選按鈕中，可以選定任意數量的按鈕。一、單選控件（OptionButton）與復選控件（CheckBox）的主要屬性：單選控件默認名稱為 OptionX（X為阿拉伯數字 1、2、3，等等），起名規(guī)則為 OptX（X為用戶自定義名字，如 OptRed、OptArial，等等）；復選控件默認名稱為 CheckX（X為 1、2、3，等等），起名規(guī)則為 ChkX（X為用戶自定義名字，如 ChkName、ChkRed ，等等）。在 VB 操作界面中，單選控件與復選控件的圖標如圖一所示：圖一以前講到的大多數屬性都適用于單選與復選控件，包括：Caption、Ena

47、bled、Font（FontBold、FontItalic、FontName，等等）、Name、Height ，等等，此處不再贅述。Value 屬性是單選與復選控件最主要的屬性，但單選與復選控件的 Value 值有些微的差別。單選控件：選中時，Value 值為 True ；未被選中，Value 值為 False 。復選控件：選中時，Value 值為 1 ；未被選中，Value 值為 0 ；禁止對該按鈕進行選擇， Value 值為 2 。請大家注意，單選控件與復選控件的 Value 值是不同的，而這是初學者最容易混淆的。二、單選按鈕與復選按鈕的事件：這兩種控件最主要的事件是 Click 事件，當

48、選中時，Value 值變?yōu)?True 或者 1 ，控件也自動變?yōu)檫x中狀態(tài)。三、單選按鈕程序舉例：有如圖二這樣一個程序：圖二文本框（TxtContent）顯示預設的字樣；單選按鈕一（OptArial），單擊此按鈕可以將文本框里顯示的字樣改變成 Arial 字體；單選按鈕二（OptModern），單擊此按鈕能將文本框里顯示的字樣改變成 Modern 字體。1、單選按鈕一：Private Sub OptArial_Click()TxtContent.FontName = ArialEnd Sub2、單選按鈕二：Private Sub OptModern_Click()TxtContent.FontN

49、ame = ModernEnd Sub四、復選按鈕的判斷過程：復選按鈕的使用跟單選按鈕相似，但由于一次可以選擇多個復選按鈕，所以復選按鈕的選擇比單選按鈕多了一個判斷過程。這個判斷過程在 VB 中可以用 IfThenElseIfEnd If 語句完成。IfThenElseIfEnd If 是 VB 中的塊結構條件語句，主要用來針對不同的情況，讓應用程序做出不同的反應。語句功能如下：If 假設情況一 Then假設情況一成立時執(zhí)行的語句塊一ElseIF 假設情況二 Then假設情況二成立時執(zhí)行的語句塊二ElseIf 假設情況三 Then假設情況三成立時執(zhí)行的語句塊三Else所有條件都不成立時要執(zhí)行的

50、語句塊End If上面的語句塊含義為：如果“情況一”成立，則執(zhí)行“語句塊一”；否則如果“情況二”成立，則執(zhí)行“語句塊二”；如果所有情況都不成立，則執(zhí)行 Else 之后的語句塊并最后跳出判斷過程。例：假設輸入學生成績（Score），如果分數小于 60 ，標簽（LblShow）顯示“成績不及格”；如果分數大于 90 ，標簽顯示“成績優(yōu)秀”；如果分數介于兩者之間，標簽顯示“成績優(yōu)良”。If Score 90 ThenLblShow.Caption = 成績優(yōu)秀ElseLblShow.Caption = 成績優(yōu)良End If有幾點必須加以注意：（1）、在上面的語句塊中，ElseIf 之間沒有空格，如果

51、有空格即 Else If ，塊結構則不成立。Else If 這種形式只能在單行結構條件語句中成立，而不能在塊結構條件中成立。（2）、執(zhí)行語句塊的程序代碼不能緊跟 Then ，必須放到下一行中，這是塊狀結構的規(guī)定。（3）、在塊結構判斷語句中，ElseIf 子句的數量沒有限制，可以根據需要加入任意多個 ElseIf 子句。（4）、ElseIf 與 Else 都是可選的，最簡單的判斷語句塊形式如下：If 條件 Then要執(zhí)行的語句塊End If如：If Score 60 ThenLblShow.Caption = 成績不及格End If（5）、塊結構語句必須以 If 開始，以 End If 結束。五

52、、復選按鈕舉例：上面我們學習了復選按鈕的判斷過程，現在進入實例學習。 有如圖三這樣一個應用程序：圖三文本框（TxtContent）顯示預設的字樣；復選按鈕一（ChkBold）可以將文本框里面的字變?yōu)榇煮w；復選按鈕二（ChkItalic）可以將文本框里面的字變?yōu)樾斌w；復選按鈕三（ChkUnderline）可以給文本框里面的文字加上下劃線。復選按鈕一：Private Sub ChkBold_Click()If ChkBold.Value = 1 ThenTxtContent.FontBold = TrueElseTxtContent.FontBold = FalseEnd Sub復選按鈕二：Pri

53、vate Sub ChkItalic_Click()If ChkItalic.Value = 1 ThenTxtContent.FontItalic = TrueElseTxtContent.FontItalic = FalseEnd Sub復選按鈕三：Private Sub ChkUnderline_Click()If ChkUnderline.Value = 1 ThenTxtContent.FontUnderline = TrueElseTxtContent.FontUnderline = FalseEnd Sub聯想：復選按鈕是不是非得經過這種選擇判斷？能不能如單選按鈕那樣直接使用呢？

54、這是許多初學者，包括筆者自己，曾經感到疑惑的地方。（雖然現在看來它們的區(qū)別是如此之大）還是上面這個例子，假設復選按鈕一不經過判斷，而直接在點擊事件中輸入代碼：Private Sub ChkBold_Click()TxtContent.FontBold = TrueEnd Sub那么你會發(fā)現，復選按鈕一經點擊就不能取消字體加粗的效果了；而實際上，復選按鈕一的功能是，點擊一次即選中時，字體加粗；點擊第二次即取消選擇，字體不再加粗；以此類推。六：知識點：1、切記，單選按鈕與復選按鈕的 Value 值是不同的。單選按鈕：選中時，Value 值為 True ；未被選中時，Value 值為 False 。復選按鈕：選中時，Value 值為 1 ；未被選中時，Value 值為 0 ；禁止選擇，Value 值為 2 。你可以試驗一下，將復選按鈕的 Value 值分別用 True/False 代替，看一下會出現什么問題。2、兩種選擇按鈕都針對 Click 事件做出反應，但單選按鈕比較簡單，只需直接輸入代碼即可；復選按鈕比較復雜，