Changing the text on a button after its been selected.

Posted on 2008-10-11
Last Modified: 2012-05-05
I'm creating a Jeopardy style game. I've created an array of buttons so when the form is loaded, each buttons text is set to its dollar value. How do I change the text on a button after it's been selected?
Private Sub frmBoard_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim oBoard As New ClsBoard

        Dim dtCategories As New DataTable

        'hook up array

        arrCol1(0) = btn1200

        arrCol1(1) = btn1400

        arrCol1(2) = btn1600

        arrCol1(3) = btn1800

        arrCol1(4) = btn11000

        arrCol2(0) = btn2200

        arrCol2(1) = btn2400

        arrCol2(2) = btn2600

        arrCol2(3) = btn2800

        arrCol2(4) = btn21000

        arrCol3(0) = btn3200

        arrCol3(1) = btn3400

        arrCol3(2) = btn3600

        arrCol3(3) = btn3800

        arrCol3(4) = btn31000

        arrCol4(0) = btn4200

        arrCol4(1) = btn4400

        arrCol4(2) = btn4600

        arrCol4(3) = btn4800

        arrCol4(4) = btn41000

        arrCol5(0) = btn5200

        arrCol5(1) = btn5400

        arrCol5(2) = btn5600

        arrCol5(3) = btn5800

        arrCol5(4) = btn51000

        arrCol6(0) = btn6200

        arrCol6(1) = btn6400

        arrCol6(2) = btn6600

        arrCol6(3) = btn6800

        arrCol6(4) = btn61000

        dtCategories = oBoard.GetCategories

        txtCat1.Text = dtCategories.Rows(0).Item(1)

        txtCat2.Text = dtCategories.Rows(1).Item(1)

        txtCat3.Text = dtCategories.Rows(2).Item(1)

        txtCat4.Text = dtCategories.Rows(3).Item(1)

        txtCat5.Text = dtCategories.Rows(4).Item(1)

        txtCat6.Text = dtCategories.Rows(5).Item(1)

        For x = 0 To 4

            arrCol1(x).Text = ("$" & (x + 1) * 200)

            arrCol2(x).Text = ("$" & (x + 1) * 200)

            arrCol3(x).Text = ("$" & (x + 1) * 200)

            arrCol4(x).Text = ("$" & (x + 1) * 200)

            arrCol5(x).Text = ("$" & (x + 1) * 200)

            arrCol6(x).Text = ("$" & (x + 1) * 200)


        m_Categories = dtCategories


    End Sub

    Private Sub btnCol1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1200.Click, btn1400.Click, btn1600.Click, btn1800.Click, btn11000.Click

        'btnCol1_click.text = "Used"

        m_sender = Strings.Right(sender.tag, 1)

        icolumn = Strings.Left(sender.tag, 1) - 1

        irow = Strings.Right(sender.tag, 1) - 1

        'hook up array

        Dim frmQ As New frmQuestion

        vwQuestion.RowFilter = "CategoryID = '" & CStr(m_Categories.Rows(icolumn).Item("CategoryID")).Replace("'", "\'") & "'"

        frmQ.Question = vwQuestion.ToTable.Rows(irow).Item(2)

        frmQ.Answer1 = vwQuestion.ToTable.Rows(irow).Item(3)

        frmQ.Answer2 = vwQuestion.ToTable.Rows(irow).Item(4)

        frmQ.Answer3 = vwQuestion.ToTable.Rows(irow).Item(5)

        frmQ.Answer4 = vwQuestion.ToTable.Rows(irow).Item(6)

        frmQ.CorrectAnswer = vwQuestion.ToTable.Rows(irow).Item(7)


    End Sub

Open in new window

Question by:98fatboyrider
  • 2
LVL 13

Expert Comment

ID: 22695547
yourbuttonname.caption = "new text value".
LVL 48

Accepted Solution

jpaulino earned 500 total points
ID: 22695767
Try this way:
        Dim btn As Button = DirectCast(sender, Button)

        btn.Text = "New text"

Open in new window


Author Closing Comment

ID: 31505340
Thanks again!
LVL 48

Expert Comment

ID: 22696722
Glad I could help!

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

More often than not, we developers are confronted with a need: a need to make some kind of magic happen via code. Whether it is for a client, for the boss, or for our own personal projects, the need must be satisfied. Most of the time, the Framework…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
The goal of the tutorial is to teach the user how to use functions in C++. The video will cover how to define functions, how to call functions and how to create functions prototypes. Microsoft Visual C++ 2010 Express will be used as a text editor an…
The viewer will learn how to pass data into a function in C++. This is one step further in using functions. Instead of only printing text onto the console, the function will be able to perform calculations with argumentents given by the user.

947 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now