vb.net点击按钮一次,数值加一

非常简单的一个问题:我就是想实现一个页面里,有一个button,一个label,label的text等于一个数值,每点击一次按钮,这个数值就加一,比如,点第一次的时候,页面显示:这是第一次点击,再点一次,就显示第二次点击……感觉非常简单的问题,咋就实现不了呢,真是老了 - -!

我这样写的按钮click事件:
dim a as integer
a=a+1
lebel1.text=cstr(a)

这样不行,然后我加个循环:
dim i,a as integer
for i=1 to 100
a=a+1
next
label1.text=cstr(a)

还是不行,点击一次直接显示到了100

我把a定义为全局变量也不行
我在click事件里识别页面也不行:加上if page.IsPostBack

唉,实在没辙了,跟我说下吧

第1个回答  2011-04-26
dim a as integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

a = a + 1
Label1.Text = a.ToString
End Sub追问

跟我写的代码完全一样,这样是不行的,不会累加

追答

但在我这里是可以的啊!
dim a as integer
不能放在按钮单击事件里面。

追问

还是不行,放在声明里也不行,你要不直接把所有代码给我看下,.aspx的、.aspx.vb的都给我看下,奇了个怪了,我感觉没啥问题的啊

追答

你是网页里的啊?
我是在窗体里调试的。

追问

嗯,我用vs2005做asp.net网站

追答

是服务器控件吧!
如label:

追问

是的

追答

我来做个试一试。
----------------------------------------------------------------------------------------
确实和你的结果一样。但是可以用Session保存,可以满足你的要求:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim a As Integer
a = Val(Session("A")) + 1
Session("A") = a
Label1.Text = Session("A").ToString
End Sub

追问

呵呵,哥们,在你回答之前,我就用session试过了,不行,按照你这个,好像也不行,但是我觉得原因不在于语句了,可能是其他地方的原因,我感觉session是肯定可以的,我再看看吧,非常感谢!

本回答被提问者采纳
相似回答