怎么在輸入的時候限制只能輸整數
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a, b As Double
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a + b
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim a, b As Double
a = TextBox1.Text
b = TextBox2.Text
TextBox3.Text = a * b
End Sub
End Class
我試過把double改成integer但只是計算的時候算整數，輸入的時候還是可以輸小數。
uj5u.com熱心網友回復：
你可以判斷一下,如果輸入的是小數,就用MsgBox報錯.判斷可以用:
IsNumeric(TextBox1.Text)
InStr(TextBox1.Text,".")>0
uj5u.com熱心網友回復：
1. 界面設計：TextBox，限制輸入，只能輸入數字字符0～9和+、- 這12個字符，
當輸入其它字符時將輸入“吃掉”，并且限制+、-只能輸入在第1個字符的位置。
2. 邏輯設計：
在“執行”運算前，檢查各 TextBox的輸入內容，首先得是“合法數值”；其次不含小數點。（參考1樓）
檢查通過后，再取值、執行運算；否則直接訊息提示輸入內容不合法（具體資訊細節你看著辦），不執行。
uj5u.com熱心網友回復：
Private Sub Command1_Click()Dim a, b As Double
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
Private Sub Command2_Click()
Dim a, b As Double
a = Text1.Text
b = Text2.Text
Text3.Text = a * b
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/36927.html
標籤：VB基礎類
上一篇：用VB6.0畫圓形按鈕。