VB語言中form窗體和控件怎么用

這篇文章主要介紹VB語言中form窗體和控件怎么用，文中介紹的非常詳細(xì)，具有一定的參考價值，感興趣的小伙伴們一定要看完！

一、有關(guān)考試的幾個問題

首先，提問：考試最重要的是什么？

答案其實很簡單：得分?。。。?！

想要得分，就要做到基本的保存。

保存哪些文件呢？

1.窗體代碼的文件frm擴展名的文件

2.工程文件vbp擴展名

3.應(yīng)用程序文件exe擴展名

如何查看文件擴展名？

組織----文件夾和搜索選項-----查看-----去掉“隱藏已知類型的擴展名”這個勾

對于報錯的心態(tài)？

把握正確的處理心態(tài)，把報錯看成是一種引導(dǎo)提示，幫助我們解決問題。

timer時鐘要啟動必須要有兩個要點：

1.配置時間間隔internal單位為毫秒，1秒=1000毫秒

2.配置是否可用熟悉enabled為true才能運行。如果為false那么是不能運行的。

二、基本復(fù)習(xí)知識點

form窗體初始化加載的事件：Form_Load

如何通過代碼設(shè)置label標(biāo)簽的字體？

有關(guān)字體的配置：

FontName  設(shè)置字體類型

FontSize  設(shè)置字體大小

FontBold  設(shè)置字體加粗

FontItalic 設(shè)置字體傾斜

FontUnderline 設(shè)置字體加上下劃線

FontStrikethru 設(shè)置字體的刪除線

使用方法：

Label1.FontName = "華文行楷"

Label1.FontSize = 60

Label1.FontBold = True

Label1.FontItalic = True

Label1.FontUnderline = True

Label1.FontStrikethru = True

三、新學(xué)一個控件

listbox列表框

listbox所在控件列表位置

在listbox中，加入的內(nèi)容是一項一項的，我們可以將列表框中的內(nèi)容單獨取出或者加入。

提問：如何在錄入屬性的時候連續(xù)錄入呢？

每一個項目的內(nèi)容錄入在list屬性中

需要按住快捷鍵ctrl+enter進行下一項錄入。

但是，實際上，往往在項目中，更多的是在代碼中往listbox中添加項目。

代碼添加一項，通過AddItem方法進行添加。

使用方法：

list控件對象.AddItem 字符串類型

獲取listbox控件中的項目

通過list屬性進行獲取，注意這個list屬性是一個數(shù)組。

數(shù)組的索引默認(rèn)情況下是從0開始的。

所以第一項的索引是0

第二項的索引就是1

使用方法：

List1.List(這里填寫索引項目)

從listbox中刪除一個項目，使用函數(shù)RemoveItem

使用方法：

List1.RemoveItem 這里填寫要刪除的索引。

ListIndex代表當(dāng)前l(fā)istbox中被選中的這一行的索引。

當(dāng)listindex的值為-1時代表listbox中的項目沒有被選中。

所以，我們可以通過這個值的判斷進行友情提示，防止報錯！

判斷代碼：

If List1.ListIndex = -1 Then

    MsgBox "請選擇項目"

Else

    List1.RemoveItem List1.ListIndex

End If

提問：如果一個專業(yè)有五個班，我們?nèi)绻谔砑拥臅r候一次添加5個班級？

例如：專業(yè)為“18軟件”，點擊“添加”按鈕后，在listbox中要立即出現(xiàn)18軟件1、18軟件2、18軟件3、18軟件4、18軟件5

通過for循環(huán)來實現(xiàn)。

For i = 1 To 5 Step 1

    List1.AddItem Text1.Text & i

Next i

本節(jié)教程相關(guān)源代碼：

工程文件列表：

form1窗體設(shè)計：

form1

form1源代碼：

Private Sub Form_Load()Label1.FontName = "華文行楷"Label1.FontSize = 60Label1.FontBold = TrueLabel1.FontItalic = TrueLabel1.FontUnderline = TrueLabel1.FontStrikethru = TrueEnd Sub
Private Sub Timer1_Timer()
If Label1.Caption = "0" Then    Timer1.Enabled = False    Form2.Show    Form1.HideElse    Label1.Caption = Val(Label1.Caption) - 1End If
End Sub

form2界面設(shè)計：

form2

form2源代碼：

Private Sub Command1_Click()For i = 1 To 5 Step 1    List1.AddItem Text1.Text & iNext i
End Sub
Private Sub Command2_Click()If List1.ListIndex = -1 Then    MsgBox "請選擇項目"Else    List1.RemoveItem List1.ListIndex
End IfEnd Sub
Private Sub Command3_Click()MsgBox List1.List(1)End Sub

以上是“VB語言中form窗體和控件怎么用”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對大家有幫助，更多相關(guān)知識，歡迎關(guān)注億速云行業(yè)資訊頻道！