作者Y78 (Y78)
看板Visual_Basic
标题Re: [VB2008]一个TextBox的问题
时间Sat Apr 11 11:30:11 2009
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
1F：推 j76992001:请问Nothing改为"", ""代表的意思是...?? 不嫌麻烦请跟 04/11 13:19
2F：→ j76992001:我讲解一下~"~ 还有 第4个项目我保留我原本的样子,运算 04/11 13:20
3F：→ j76992001:结果还是可以,是因为前後都是数值的关系吗?所以"+"变成 04/11 13:20
4F：→ j76992001:数值运算子,是这样子吗? 04/11 13:21
5F：→ j76992001:也感谢Y大的热心回答^^ 04/11 13:23
6F：→ Y78:""代表的就是空字串,例如说你想要把TextBox1的Text变成空白 04/11 22:11
7F：→ Y78:就用TextBox1.Text = "" 就会变成空白了 04/11 22:11
8F：→ Y78:至於你用的Nothing,抱歉 我没用过 所以也不太知道功用 04/11 22:12
9F：→ Y78:至於数值那边 如果把Val()去掉 我这边的执行结果会错误 04/11 22:12
10F：→ Y78:因为 Label2.Text得到的值不管Label2的内容是2还是"2" 04/11 22:13
11F：→ Y78:都会回传一个字串"2" (我记得是这样) 所以要加上Val转成数值 04/11 22:13
12F：推 Peruheru:应该是反过来说，Label2的Text属性就是字串类型 04/11 23:34
13F：→ Peruheru:所以不管你给他值或是跟他要值，都是字串 04/11 23:34
14F：→ Peruheru:只是给它值时，他会帮你转换成字串 04/11 23:35
15F：→ Peruheru:Nothing好像指的是一切物件的初始值 04/11 23:35
16F：→ Peruheru:或者是说，没有内容的物件，其内容就等於Nothing 04/11 23:36
17F：→ Peruheru:但是空字串并不等於Nothing，空字串就是"" 04/11 23:36