如何制作通过多种形式识别的变量

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代码，但是如果你使用不同的版本，它应该是非常相似的。）希望这有助于！