有關VISUAL BASIC

Question

要怎麼吧TEXTBOX數字化 我知道是用VAL但是忘記怎麼打了@@
我要打的是 "if (val)text1=100 then
perfect"
還有出現文字是用啥?是用label嗎?
就是TEXT裡面打數字 然後出現文字出來~幫個忙~謝謝

Answer 1

這簡單ㄚ!
就是
if val(text1.text)=100 then
print "it is 100"
else
print "it is no 100"
end if

Answer 2

Private Sub Text1_Change()

' 如果文字長度等於 3 個字，才判斷是不是輸入了 100
If Len(Text1.Text) = 3 And Val(Text1.Text) = 100 Then
Text1.Text = "perfect"
End If

End Sub


利用 text1 的動作 Change (Text1_Change) 去檢查輸入結果，如果是 100 則改變 text1 的內容文字變成 perfect