搜公众号
推荐 原创 视频 Java开发 开发工具 Python开发 Kotlin开发 Ruby开发 .NET开发 服务器运维 开放平台 架构师 大数据 云计算 人工智能 开发语言 其它开发 iOS开发 前端开发 JavaScript开发 Android开发 PHP开发 数据库
Lambda在线 > VB多窗体数据共享编程开发!

VB多窗体数据共享编程开发!

2019-02-11
举报

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 Sub

Private Sub Form_Click() '加载form2

Form2.Show

Unload Me

End Sub



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


VB多窗体数据共享编程开发!


VB多窗体数据共享编程开发!


然后我们在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 Sub



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





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




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

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

  3. 可以长按识别下方的二维码

  4. 获取更多学习帮助。


  5. 愿大家都能顺利学好VB

  6. 轻松掌握编程开发!


跟我学VB微信平台

2018年末钜惠献礼

优惠活动

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



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


版权声明:本站内容全部来自于腾讯微信公众号,属第三方自助推荐收录。《VB多窗体数据共享编程开发!》的版权归原作者「跟我学VB」所有,文章言论观点不代表Lambda在线的观点, Lambda在线不承担任何法律责任。如需删除可联系QQ:516101458

文章来源: 阅读原文

相关阅读

举报