我要实现如下功能:
按钮一点一下将a+1,并且在textbox中显示a+1后的值显示出来
按钮二点一下将a再加1,也在textbox中显示出来
这样来计算按钮一和按钮二一共点击的次数
程序如下
 Public Class WebForm1
 dim a As Integer
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a=a+1
        textbox1.text=a       
        End Sub
 End Class
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a=a+1
        textbox1.text=a       
        End Sub
 End Class
为什么我不关我点二个按钮多少次,显示的怎么都是1
请高手指点我应该怎么写

解决方案 »

  1.   

    Public Class WebForm1    Private Property A() As Integer
            Get
                If ViewState("a") Is Nothing Then Return 0 Else Return ViewState("a")
            End Get
            Set(ByVal value As Integer)
                ViewState("a") = value
            End Set
        End Property Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            a=a+1
            textbox1.text=a       
            End Sub
     End Class
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            a=a+1
            textbox1.text=a       
            End Sub End Class
      

  2.   

    Partial Class Default3
        Inherits System.Web.UI.Page    Public hits As Integer
        Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click        If Not CType(ViewState("hits"), String) Is Nothing Then            hits = Convert.ToInt32(CType(ViewState("hits"), String))
                hits += 1
                ViewState("hits") = hits
                Response.Write(hits)        End If    End Sub    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            If Not CType(ViewState("hits"), String) Is Nothing Then            hits = Convert.ToInt32(CType(ViewState("hits"), String))
                hits += 1
                ViewState("hits") = hits
                Response.Write(hits)        End If
        End Sub    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If Not IsPostBack Then
                ViewState("hits") = "0"
            End If
        End Sub
    End Class