如何製作通過多種形式識別的變量

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代碼，但是如果你使用不同的版本，它應該是非常相似的。）希望這有助於！