Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 在VB中添加不同的表单_Vb.net_Vba - Fatal编程技术网

Vb.net 在VB中添加不同的表单

Vb.net 在VB中添加不同的表单,vb.net,vba,Vb.net,Vba,我不熟悉使用VB。我确信有一种方法可以实现我所期待的,但我只是不确定如何实现 表格1 x=6+8 表格2 y=8+7 label1.text = x + y 不确定如何将x值从表格1传送到表格2 (将x声明为公共整数) 而且每次我运行我的程序时x值都会改变,所以我不能在模式中声明它的值。。。我不这么认为 基本上计时器开始倒计时 -点击停止按钮,将当前时间添加到标签 -进入下一个表格 -在下一个表单上,如何使标签显示与表单1中标签相同的值?在模块写入上创建模块 Dim x As Integer

我不熟悉使用VB。我确信有一种方法可以实现我所期待的,但我只是不确定如何实现

表格1 x=6+8

表格2 y=8+7

 label1.text = x + y
不确定如何将x值从表格1传送到表格2 (将x声明为公共整数)

而且每次我运行我的程序时x值都会改变,所以我不能在模式中声明它的值。。。我不这么认为

基本上计时器开始倒计时 -点击停止按钮,将当前时间添加到标签 -进入下一个表格
-在下一个表单上,如何使标签显示与表单1中标签相同的值?

在模块写入上创建模块

Dim x As Integer = 0 'or double, depending on your datatype
Dim y As Integer = 0
Dim res As Integer = 0

Public Sub setVar(ByVal var1 As Integer, Byval Var2 As Integer, ByVal whatVar As String)
   If whatVar = "y" Then
      y = var1 + var2
   ElseIf whatVar = "x" Then
      x = var1 + var2
   End If
End Sub

Public Function getResult() As Integer
   res = x + y
   return res
End Function
用法:

在表格1中

setVar(6,8, "x")
在表格2上

setVar(8,7,"y")
在标签上

label1.Text = getResult().ToString
尚未测试代码,但它应该可以工作:)