Question

我是使用VB的新手。我确定有办法做我正在寻找的东西，但我不知道该怎么办。

Form1中 x = 6 + 8

窗体2 y = 8 + 7

 label1.text = x + y

不确定如何将x值从表单1传递到表单2 （声明x为公共整数）

每次运行我的程序时x值都会改变，所以我无法在模块中声明它的值...我不认为

基本上计时器开始倒计时 - 点击停止它将当前时间添加到标签 - 转到下一个表格 - 在下一个表格中，如何让标签显示标签在表格1中的相同值？

Answer 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

用法：

在Form1上，

setVar(6,8, "x")

在Form2上，

setVar(8,7,"y")

在标签上，

label1.Text = getResult().ToString

尚未测试代码，但它应该可以工作：）

添加不同形式的VB

1 个答案: