應用實例：

給VB程序加菜單圖標：

在VB里面加圖標比較麻煩,你需要用到API函數(shù)進行調用，參數(shù)不好理解：

給菜單添加圖標的API函數(shù)：GetMenu、GetSubMenu、GetMenuItemID、SetMenuItemBitmaps。

寫代碼前你要把ImageList控件放到窗體上，如果工具欄中找不到它，通過“工程”菜單下的“部件”進行添加：

將ImageList控件添加到窗體后，右鍵屬性彈出窗口，插入圖片添加你需要用的小圖像：

編寫代碼：

代碼解釋：

前面你要聲明幾個API函數(shù)

GetMenu：獲得彈出菜單的句柄，判斷窗體上到底有沒有菜單控件，否則返回Null值，hwnd參數(shù)用來指定有菜單的窗口。

GetSubMenu：獲得彈出菜單的句柄，hmenu參數(shù)用來指定父菜單，npos菜單用來指定彈出菜單在主菜單中的位置。

SetMenuItemBitmaps：把位圖搞過來，wflags參數(shù)決定npos參數(shù)指定的是ID還是順序編號，hBitmapUnchecked和hBitmapChecked指定菜單項的位圖。

如果知道這幾個函數(shù)的功能和參數(shù)的作用就不難理解窗體程序中加載的代碼了：

menu1 = GetMenu(Me.hwnd)：判斷有沒有菜單

menuid = GetMenuItemID(GetSubMenu(menu1, 0), i - 1)：獲取菜單的ID數(shù)值

SetMenuItemBitmaps menu1, menuid, bitmap, ImageList1.ListImages(i).Picture, ImageList1.ListImages(i).Picture：將圖像通過FOR循環(huán)依次賦值給這個菜單

運行：

應用實例

控件用法：

在Visual Basic環(huán)境下，TextBox控件主要的作用是接收用戶輸入、編輯和修改的內容，顯示程序輸出的信息，體現(xiàn)了程序與用戶的交互性。

實現(xiàn)：

登錄系統(tǒng)需要輸入用戶名和密碼，使用TextBox控件限制用戶輸入用戶名和密碼的字符數(shù)量，限制密碼框中輸入的字符數(shù)量不超過6位，當用戶輸入的數(shù)量超限時，則彈出消息框加以提示。

實現(xiàn)步驟：

1、創(chuàng)建一個新窗體默認名稱Form1

2、添加PictureBox控件，Picture屬性設置為

3、在窗體上添加兩個TextBox控件，對這兩個控件的MaxLength屬性進行設置，，密碼框的PasswordChar屬性設置為“*”：

4、在窗體上放置兩個Label控件：

5、在窗體加載事件中編寫代碼：

6、運行程序，向用戶名框內輸入字符：

輸入字符密碼：

應用實例：

在學生管理系統(tǒng)中顯示學號時，要求文本框中顯示的學號要體現(xiàn)入學日期、班級信息和學生編號

實現(xiàn)步驟

1、創(chuàng)建一個新窗體默認名稱Form1

2、在窗體上添加Frame控件，你可以在它里面放置其它控件，這樣使得它們成為一個區(qū)域的整體，窗體設計中常常用到這個控件，通過它可以創(chuàng)建控件組：

3、修改Frame控件的Caption屬性，并在Frame控件中添加四個Label控件和四個TextBox控件，并分別對四個Label控件的Caption屬性進行相應修改：

4、在窗體上放置兩個CommandButton控件，通過點擊“確定”按鈕，實現(xiàn)學號自動顯示，單擊“退出”按鈕，實現(xiàn)結束程序：

5、添加程序代碼

Private Sub Command1_Click() Dim a, b, c a = Text1.Text b = Text2.Text c = Text3.Text Text4.Text = Trim(a) & Trim(b) & Trim(c)End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ""End Sub

6、運行程序，輸入入學日期、編入班級和編號，自動生成學號

點擊確定按鈕

實現(xiàn)了學號的自動生成，實際上我們可以通過讀取學生信息文件，將所有的學生學號進行自動生成并保存到文件中，可以保存成文本格式文件，也可以保存成表格文件，還可以保存成數(shù)據(jù)庫格式文件。

應用實例：

在添加學生信息時，當添加到學生所在地時，不需要手動輸入，可以直接從列表中進行選擇

實現(xiàn)步驟

再添加一個Label控件、一個文本框控件和一個ComboBox控件，Label控件的內容為“學生所在省份”，ComboBox控件的下拉列表框將省份名稱送給文本框控件：

代碼：

Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ""End SubPrivate Sub Combo1_Click() Text5.Text = Combo1.TextEnd Sub

運行程序，輸入學生信息，在下拉列表框中選擇學生的住所：

應用實例4：

不允許用戶在文本框中輸入數(shù)字信息，如果用戶在文本框中輸入數(shù)字信息，則自動進行刪除操作。

實現(xiàn)步驟：

在窗體中放置一個Label控件和一個TextBox控件，并將TextBox控件的MultiLine屬性設置為True，ScrollBars屬性設置為2-Vertical：

代碼：

Private Sub Text1_Change() Dim j, c If Text1.Text = "" Then Text1.SetFocus Exit Sub Else j = Len(Text1.Text) Do While (j <> 0) c = Left(Right(Text1.Text, j), 1) If IsNumeric(c) Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - j) + Right(Text1.Text, j - 1) Text1.SelStart = Len(Text1.Text) End If j = j - 1 Loop End IfEnd Sub

這里面用到了幾個函數(shù)：

Len(Text1.Text)：求取文本的長度

Left(Right(Text1.Text, j), 1)：從左邊和右邊截取字符

IsNumeric(c)：判斷是否為數(shù)字

還用到了Do While…loop循環(huán)語句

運行程序，你輸入數(shù)字，則文本框直接過濾掉，輸不進去：

結語：如果想學更多，請關注轉發(fā)收藏