Re: [VB2008]一個TextBox的問題

看板Visual_Basic作者Y78 (Y78)時間16年前 (2009/04/11 11:30)推噓2(2推 0噓 15→)

留言17則, 3人參與討論串2/2 (看更多)

Public Class Form1 Dim x, y, z Dim sum As Integer Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If MsgBox("確定離開程式", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "\離開程式") = MsgBoxResult.Yes Then End End If End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged x = Val(TextBox1.Text) If x < 0 Or x > 1000 Then MsgBox("數值輸入錯誤", , "警告") TextBox1.Text = "" End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Or x < 0 Or x > 1000 Then MsgBox("還沒輸入喔", , "警告") TextBox1.Text = "" Else Label2.Text = Val(Label2.Text) + 1 Label5.Text = Val(Label5.Text) + 1 Label8.Text = Val(Label8.Text) + x TextBox1.Text = "" End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = "" End Sub End Class 做了小幅修改應該可以正常執行 1.把nothing改成"" 2.判斷的地方把x=nothing改成textbox1.text="" 3.Button2_click的地方改成textbox1.text="" 4.把button1_click那邊label的地方加上val() -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.116.162.36

推

j76992001

04/11 13:19, , 1^F

04/11 13:19, 1^F

→

j76992001

04/11 13:20, , 2^F

04/11 13:20, 2^F

→

j76992001

04/11 13:20, , 3^F

04/11 13:20, 3^F