VB Textbox Event

Suraj143 · Nov 18, 2018

I have over 100 textboxes.I want to write its click events in a short mannar.
I have to write the below code for 100 times.

Code:

.
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click

    End Sub

Is thee any shorter way of doing?
I use visual Basic 2015

Ian Rogers · Nov 18, 2018

I think you need to find the same function as Pascal's FindComponent();

You need to look into "for each" control type on form.... Plenty of examples out there...

Suraj143 · Nov 18, 2018

HI, I mean like this.
I have a variable called "Colour = Red".
If I click "Textbox1" it will Load the colour "Red" to the "Textbox1".It is working.

The problem is in "Form_Load" I have to write the 100 events for 100 Textboxes....!!!

Code:

Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
End Sub

JonSea · Nov 18, 2018

Copy & paste, then just change the number in two places. Tedious but not that bad.

Pommie · Nov 18, 2018

Here's some code that places 0 to 99 in 100 text boxes and when you click one it displays the number.

Code:

Public Class Form1
    Private boxes(100) As TextBox

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        For i = 0 To 9
            For j = 0 To 9
                Dim newCtrl As TextBox = New TextBox
                newCtrl.Size = New Drawing.Size(50, 50)
                newCtrl.Location = New Point(10 + 50 * j, 10 + 50 * i)
                newCtrl.Text = i * 10 + j
                AddHandler newCtrl.Click, AddressOf TextBox_clicked
                boxes(i) = newCtrl
                Me.Controls.Add(newCtrl)
            Next
        Next
    End Sub

    Private Sub TextBox_clicked(sender As System.Object, e As System.EventArgs)
        Dim box As TextBox = DirectCast(sender, TextBox)
        MsgBox("You clicked the box containing " & box.Text)
    End Sub
End Class

Mike.

Suraj143 · Nov 19, 2018

Hi Mike Thanks for the nice piece of code.

I got this error when I building....

Pommie · Nov 19, 2018

It looks like you're using a later version than me (I'm on 2010). I'll look tomorrow to try to work out how to do it in later versions. It's 2AM here and I definitely need beauty sleep even though it doesn't seem to be working.

Mike.

Suraj143 · Nov 19, 2018

Pommie said:
It looks like you're using a later version than me (I'm on 2010). I'll look tomorrow to try to work out how to do it in later versions. It's 2AM here and I definitely need beauty sleep even though it doesn't seem to be working.

Mike.

Many Thanks.

Pommie · Nov 19, 2018

Just installed VS2017 and the only change needed was to the form1_Load line which is auto generated.

Code:

Public Class Form1
    Private boxes(100) As TextBox

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i = 0 To 9
            For j = 0 To 9
                Dim newCtrl As TextBox = New TextBox
                newCtrl.Size = New Drawing.Size(50, 50)
                newCtrl.Location = New Point(10 + 50 * j, 10 + 50 * i)
                newCtrl.Text = i * 10 + j
                AddHandler newCtrl.Click, AddressOf TextBox_clicked
                boxes(i) = newCtrl
                Me.Controls.Add(newCtrl)
            Next
        Next
    End Sub

    Private Sub TextBox_clicked(sender As System.Object, e As System.EventArgs)
        Dim box As TextBox = DirectCast(sender, TextBox)
        MsgBox("You clicked the box containing " & box.Text)
    End Sub
End Class

Mike.

Suraj143 · Nov 23, 2018

Pommie said:

Just installed VS2017 and the only change needed was to the form1_Load line which is auto generated.

Code:

Public Class Form1
    Private boxes(100) As TextBox

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i = 0 To 9
            For j = 0 To 9
                Dim newCtrl As TextBox = New TextBox
                newCtrl.Size = New Drawing.Size(50, 50)
                newCtrl.Location = New Point(10 + 50 * j, 10 + 50 * i)
                newCtrl.Text = i * 10 + j
                AddHandler newCtrl.Click, AddressOf TextBox_clicked
                boxes(i) = newCtrl
                Me.Controls.Add(newCtrl)
            Next
        Next
    End Sub

    Private Sub TextBox_clicked(sender As System.Object, e As System.EventArgs)
        Dim box As TextBox = DirectCast(sender, TextBox)
        MsgBox("You clicked the box containing " & box.Text)
    End Sub
End Class

Mike.

What a piece of code.It worked nicely.Many thanks for the support as always.....

By the way, The visual studio 2015 is really really slow IDE to work.Also I cannot install only VB, By default it is installed C#,F+ etc... I don't want them either and no way to uninstall them.

Do you have the same thing in Visual Studio 2017? Can you keep only VB in VS2017?

Pommie · Nov 23, 2018

Unfortunately, Microsoft seem to think that processing speed, memory and disk space are limitless. As far as I'm aware, you have to install all of the Visual Studio suite.

Mike.
Edit, Does the above code make sense to you? Are you able to use it?

VB Textbox Event

Suraj143

Active Member

Ian Rogers

User Extraordinaire

Suraj143

Active Member

JonSea

Well-Known Member

Pommie

Well-Known Member

Suraj143

Active Member

Attachments

Pommie

Well-Known Member

Suraj143

Active Member

Pommie

Well-Known Member

Suraj143

Active Member

Pommie

Well-Known Member

Similar threads

VB Textbox Event

Active Member

User Extraordinaire

Active Member

Well-Known Member

Well-Known Member

Active Member

Attachments

Well-Known Member

Active Member

Well-Known Member

Active Member

Well-Known Member

Similar threads

Privacy & Transparency

Privacy & Transparency