VB多窗体数据调用

程序需求:

在我们编写软件的时候,往往会遇到一次输入的数据,想在多窗体同时获取并且使用的情况。在同一个窗体下,输入一个数据可以很轻松的实现在本窗体其他对象或者控件的事件中使用,可是多窗体时如何做呢?

这时候我们就需要一个公共的模块了,在里面定义公有的属性和方法,这样即可实现在多窗体中同时获取输入的数据。

下面我们以计算圆的面积为例,简单介绍一下实现的过程。

首先要在模块中定义下列内容。

Public d As Double

Public Const pi = 3.14

然后我们在form1中写下列代码:

Private Sub Command1_Click()

'在form1中通过输入对话框输入数据,然后得到数据

a = InputBox("请输入学习感想")

d = pi * c * c

'Print a; vbCrLf; c; vbCrLf; d

Print "您输入的感想是:" & a; vbCrLf; "圆的半径是:" & c; vbCrLf; "计算得到的面积是:" & d

Private Sub Form_Click() '加载form2

程序运行如下图,输入的数据直接显示到窗体和文本框

然后我们在form2中写下列代码:

Dim d1 As Double

Private Sub Command1_Click()

Print "您form1中输入的感想是:" & a; vbCrLf; "form1中圆的半径是:" & c; vbCrLf; "form1中计算的面积是:" & d

d1 = pi * d * d '取form1中的数据计算的半径为基础,计算得到的新的面积

Print "本次计算得到的面积是:" & d1

程序运行如下图,在form1中输入的数据直接显示到了form2的窗体并且以form1中计算得到的面积为半径,再次计算圆的面积。

至此,本程序完成,大家可以实际的练习操作一下,在学习中有问题可以随时添加小编微信号解决。

跟我学VB微信平台2018年年末VB视频讲解进行中,利用好年末让自己真正掌握一门编程语言,方便我们的工作和学习,提高自身技能,就来跟我学VB!

大家在学习的过程中有问题

或者需要报名视频课程的朋友

添加小编微信号

获取更多学习帮助。

愿大家都能顺利学好VB

轻松掌握编程开发!

跟我学VB微信平台

2018年末钜惠献礼

1、VB全套学习资料,包括视频资料、课件教程、编程实例大全(包含源代码工程文件)限时优惠发放;

3、2019年3月份全国计算机二级考试辅导集训报名中,提前准备,认真备考。新考试政策调整下,不提前认真备考,可以说只能等着下次报名再考了。