如何创建通过多个表单识别的变量

Question

我的程序有问题。我想知道我如何能够以任何形式识别像整数这样的全局变量，因此本质上可以将两种形式连接在一起。

另外，如何将用户输入的整数存储到文本框中？然后，该整数将存储在全局变量中。我有两种形式，一种是用户与之交互，另一种是用于显示全局变量。

Answer 1

要创建一个全局变量（在您的情况下，是一个整数），您应该声明：

Public x As Integer

在任何方法或子程序之外。

让用户单击命令按钮是在将变量（或任何其他信息）输入文本框后存储变量（或任何其他信息）的好方法。命令按钮的代码将是这样的：

Private Sub commandButton_Click()
    x = textBox.Text
End Sub

如果你想防止文本框中的非数字输入，你可以考虑添加一个简单的If语句：

If IsNumeric(textBox.text) Then
    x = textBox.Text
Else
    MsgBox "Please enter a numeric value"
End If

您还可以编写一些简单的代码行，如果输入不是文本（这些将在If语句的Else条件下），则会自动将用户的焦点重定向回文本框并突出显示有问题的输入：

textBox.SetFocus
textBox.SelStart = 0
textBox.SelLength = Len(textBox.Text)

SetFocus将用户的光标放回文本框，SelStart将光标位置放在输入文本的开头，SelLength将突出显示的长度设置为整个文本。

（注意：这是所有VB6代码，但如果您使用的是其他版本，它应该非常相似。）希望这会有所帮助！