中文字幕av专区_日韩电影在线播放_精品国产精品久久一区免费式_av在线免费观看网站

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

如何使用VB語言制作一個簡單的調查表

發布時間:2022-01-14 18:02:49 來源:億速云 閱讀:443 作者:小新 欄目:大數據

小編給大家分享一下如何使用VB語言制作一個簡單的調查表,希望大家閱讀完這篇文章之后都有所收獲,下面讓我們一起去探討吧!

一、案例要求

我們需要制作一個簡單的調查表,要求如下:

1.form1窗體為啟動窗體,通過窗體初始化時間將標題初始化為"調查表"。

2.制作窗體界面。

3.點擊“上傳”按鈕,將把輸入的“姓名”從form2窗體輸出。將其它選中的控件文本輸出到form2窗體。

界面如下:

如何使用VB語言制作一個簡單的調查表

界面1

如何使用VB語言制作一個簡單的調查表

界面2

二、知識要求

這里可能遇到的問題是不同窗體之間數據的傳遞問題。

那么,如何在form1中去改變form2的標題?

form2.caption="這里是要改變的內容"

需要補充的符號運用:

&符號的作用:將字符串類型的數據進行連接

;符號的作用:也是連接字符串,且會把下一行的print輸出內容連接起來

提問:如何使得窗體居中顯示?

1.選中form窗體

2.在屬性中找到StartUpPosition屬性選擇2-屏幕中心

復選框checkbox

  • 設置文本:caption屬性

  • 設置是否選中:value屬性

value屬性的值:0代表沒有選中,1代表選中,2代表強制選中

單選框optionbutton

  • 設置文本:caption屬性

  • 判斷是否選中:value屬性

value屬性的值:true表示選中,false表示沒有選中

本節知識form1窗體源代碼:

Private Sub Command1_Click()Form2.Show


Form2.Caption = Text2.Text & "的調查表"
Form2.Print "姓名:" & Text2.Text
'夢想
If Check1.Value = 1 Then    Form2.Print "夢想:" & Check1.CaptionEnd If

If Check2.Value = 1 Then    Form2.Print "夢想:" & Check2.CaptionEnd If
If Check3.Value = 1 Then    Form2.Print "夢想:" & Text1.TextEnd 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窗體標題Form1.Caption = "調查表"

End Sub

看完了這篇文章,相信你對“如何使用VB語言制作一個簡單的調查表”有了一定的了解,如果想了解更多相關知識,歡迎關注億速云行業資訊頻道,感謝各位的閱讀!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

德昌县| 吉林市| 进贤县| 原平市| 明光市| 南陵县| 连山| 肃南| 当雄县| 衡南县| 宁强县| 垣曲县| 潜山县| 许昌市| 加查县| 台中县| 九龙城区| 耒阳市| 米林县| 临汾市| 黑龙江省| 莆田市| 贵溪市| 鄂托克前旗| 襄城县| 台州市| 锡林浩特市| 万全县| 萨嘎县| 汝州市| 武城县| 曲周县| 西峡县| 澜沧| 云梦县| 丰原市| 荣成市| 新河县| 古田县| 沙湾县| 郎溪县|