應用實例：

給VB程序加菜單圖標：

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

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

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

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

編寫代碼：

代碼解釋：

前面你要聲明幾個API函數

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

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

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

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

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

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

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

運行：

應用實例

控件用法：

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

實現：

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

實現步驟：

1、創建一個新窗體默認名稱Form1

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

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

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

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

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

輸入字符密碼：

應用實例：

在學生管理系統中顯示學號時，要求文本框中顯示的學號要體現入學日期、班級信息和學生編號

實現步驟

1、創建一個新窗體默認名稱Form1

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

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

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

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、運行程序，輸入入學日期、編入班級和編號，自動生成學號

點擊確定按鈕

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

應用實例：

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

實現步驟

再添加一個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：

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

實現步驟：

在窗體中放置一個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

這里面用到了幾個函數：

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

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

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

還用到了Do While…loop循環語句

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

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