首页
学习
活动
专区
圈层
工具
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

VB语言基础重要知识点10

本节我们通过一个案例进行学习。

一、案例要求

我们需要制作一个简单的调查表,要求如下:

1.form1窗体为启动窗体,通过窗体初始化时间将标题初始化为"调查表"。

2.制作窗体界面。

3.点击“上传”按钮,将把输入的“姓名”从form2窗体输出。将其它选中的控件文本输出到form2窗体。

界面如下:

界面1

界面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窗体源代码:

代码语言:javascript
复制
Private Sub Command1_Click()
Form2.Show



Form2.Caption = Text2.Text & "的调查表"

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窗体标题
Form1.Caption = "调查表"


End Sub
举报
领券