Solved

Changing the text on a button after its been selected.

Posted on 2008-10-11
4
164 Views
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)
 

        Next

        m_Categories = dtCategories

        Me.Show()

    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)

        frmQ.ShowDialog()
 

    End Sub

Open in new window

0
Comment
Question by:98fatboyrider
  • 2
4 Comments
 
LVL 13

Expert Comment

by:leegclystvale
Comment Utility
Try
yourbuttonname.caption = "new text value".
0
 
LVL 48

Accepted Solution

by:
jpaulino earned 500 total points
Comment Utility
Try this way:
        Dim btn As Button = DirectCast(sender, Button)

        btn.Text = "New text"

Open in new window

0
 

Author Closing Comment

by:98fatboyrider
Comment Utility
Thanks again!
0
 
LVL 48

Expert Comment

by:jpaulino
Comment Utility
Glad I could help!
0

Featured Post

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
This article is meant to give a basic understanding of how to use R Sweave as a way to merge LaTeX and R code seamlessly into one presentable document.
The viewer will learn how to use the return statement in functions in C++. The video will also teach the user how to pass data to a function and have the function return data back for further processing.
The viewer will learn how to user default arguments when defining functions. This method of defining functions will be contrasted with the non-default-argument of defining functions.

743 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

11 Experts available now in Live!

Get 1:1 Help Now