vb编程代码大全(必知!VB编程实现一次输入的数据供多窗体使用)

vb编程代码大全 程序需求:在我们编写VB程序的时候,往往会遇到一次输入的数据,想在多窗体同时获取并且使用的情况。在同一个窗体下,输入一个数据可以很轻松的实现在本窗体其他对象或者控…

vb编程代码大全

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

这时候我们就需要一个公共的模块了,在里面定义公有的属性和方法,这样即可实现在多窗体中同时获取输入的数据。
下面我们以计算圆的面积为例,简单介绍一下实现的过程。
首先要在模块中定义下列内容。
Public a$
Public c%
Public d As Double
Public Const pi = 3.14
然后我们在form1中写下列代码:
Private Sub Command1_Click() ‘在form1中通过输入对话框输入数据,然后得到数据
a = InputBox(“请输入学习感想”)
c = 5
Text1 = a
Text2 = c
d = pi * c * c
‘Print a; vbCrLf; c; vbCrLf; d
Print “您输入的感想是:” & a; vbCrLf; “圆的半径是:” & c; vbCrLf; “计算得到的面积是:” & d
End Su
bPrivate Sub Form_Click() ‘加载form2
Form2.Show
Unload Me
End Su
b
程序运行如下图,输入的数据直接显示到窗体和文本框

然后我们在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
End Su
b程序运行如下图,在form1中输入的数据直接显示到了form2的窗体并且以form1中计算得到的面积为半径,再次计算圆的面积。

至此,本程序完成,大家可以实际的练习操作一下,在学习中有问题可以随时添加小编微信号解决。
跟我学VB微信平台2019年春季视频指导进行中,利用春天时间让自己真正掌握一门编程语言,方便我们的工作和学习,提高自身技能!

大家在学习的过程中有问题
可以扫描下方二维码添加小编微信号
获取更多学习帮助。

愿大家都能顺利学好VB,轻松编程!
跟我学VB微信平台
3月钜惠献礼
优惠活动1、VB全套学习资料,包括视频资料、课件教程、编程实例大全(包含源代码工程文件)限时优惠发放;

2、2019年春季VB视频学习课程和数据库开发课程(包括Access和MySQL)正在进行中 ,报名学习还送全套学习资料,想学好VB与数据库开发的朋友可以与小编联系,微信号:vbyjk521 。

vb编程代码大全相关文章

为您推荐

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注

返回顶部