應(yīng)用實例：

給VB程序加菜單圖標(biāo)：

 

 

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

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

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

 

 

將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)依次賦值給這個菜單

運行：

 

 

應(yīng)用實例

控件用法：

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

實現(xiàn)：

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

實現(xiàn)步驟：

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

 

 

2、添加PictureBox控件，Picture屬性設(shè)置為

 

 

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

 

 

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

 

 

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

 

 

6、運行程序，向用戶名框內(nèi)輸入字符：

 

 

輸入字符密碼：

 

 

應(yīng)用實例：

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

實現(xiàn)步驟

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

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

 

 

3、修改Frame控件的Caption屬性，并在Frame控件中添加四個Label控件和四個TextBox控件，并分別對四個Label控件的Caption屬性進(jìn)行相應(yīng)修改：

 

 

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

 

 

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 Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

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

 

 

點擊確定按鈕

 

 

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

應(yīng)用實例：

在添加學(xué)生信息時，當(dāng)添加到學(xué)生所在地時，不需要手動輸入，可以直接從列表中進(jìn)行選擇

實現(xiàn)步驟

再添加一個Label控件、一個文本框控件和一個ComboBox控件，Label控件的內(nèi)容為“學(xué)生所在省份”，ComboBox控件的下拉列表框?qū)⑹》菝Q送給文本框控件：

 

 

代碼：

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Combo1_Click()

Text5.Text = Combo1.Text

End Sub

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

 

 

應(yīng)用實例4：

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

實現(xiàn)步驟：

在窗體中放置一個Label控件和一個TextBox控件，并將TextBox控件的MultiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為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 If

End Sub

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

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

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

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

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

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