您好,登錄后才能下訂單哦!
小編給大家分享一下如何使用VB語言制作一個簡單的調(diào)查表,希望大家閱讀完這篇文章之后都有所收獲,下面讓我們一起去探討吧!
一、案例要求
我們需要制作一個簡單的調(diào)查表,要求如下:
1.form1窗體為啟動窗體,通過窗體初始化時間將標(biāo)題初始化為"調(diào)查表"。
2.制作窗體界面。
3.點(diǎn)擊“上傳”按鈕,將把輸入的“姓名”從form2窗體輸出。將其它選中的控件文本輸出到form2窗體。
界面如下:
界面1
界面2
二、知識要求
這里可能遇到的問題是不同窗體之間數(shù)據(jù)的傳遞問題。
那么,如何在form1中去改變form2的標(biāo)題?
form2.caption="這里是要改變的內(nèi)容"
需要補(bǔ)充的符號運(yùn)用:
&符號的作用:將字符串類型的數(shù)據(jù)進(jìn)行連接
;符號的作用:也是連接字符串,且會把下一行的print輸出內(nèi)容連接起來
提問:如何使得窗體居中顯示?
1.選中form窗體
2.在屬性中找到StartUpPosition屬性選擇2-屏幕中心
復(fù)選框checkbox
設(shè)置文本:caption屬性
設(shè)置是否選中:value屬性
value屬性的值:0代表沒有選中,1代表選中,2代表強(qiáng)制選中
單選框optionbutton
設(shè)置文本:caption屬性
判斷是否選中:value屬性
value屬性的值:true表示選中,false表示沒有選中
本節(jié)知識form1窗體源代碼:
Private Sub Command1_Click()
Form2.Show
Form2.Caption = Text2.Text & "的調(diào)查表"
Form2.Print "姓名:" & Text2.Text
'夢想
If Check1.Value = 1 Then
Form2.Print "夢想:" & Check1.Caption
End If
If Check2.Value = 1 Then
Form2.Print "夢想:" & Check2.Caption
End If
If Check3.Value = 1 Then
Form2.Print "夢想:" & Text1.Text
End If
'性別
If Option1.Value = True Then
Form2.Print "性別:" & Option1.Caption
End If
If Option2.Value = True Then
Form2.Print "性別:" & Option2.Caption
End If
End Sub
Private Sub Form_Load()
'作者:劉金玉
'初始化form1窗體標(biāo)題
Form1.Caption = "調(diào)查表"
End Sub
看完了這篇文章,相信你對“如何使用VB語言制作一個簡單的調(diào)查表”有了一定的了解,如果想了解更多相關(guān)知識,歡迎關(guān)注億速云行業(yè)資訊頻道,感謝各位的閱讀!
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報,并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。