Solved

vb.net selstart, sellenght

Posted on 2010-11-18
9
1,425 Views
Last Modified: 2012-05-10
Is there any way to activate the selstart/sellenght for all textbox in form automatically.
0
Comment
Question by:rflorencio
  • 4
  • 3
  • 2
9 Comments
 
LVL 26

Expert Comment

by:Shaun Kline
ID: 34166376
You would need to add a javascript function to each textbox's onfocus event to set the selStart and selLength values.
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 34166385
Can you give more details?

If you want all text to be selected upon entry try something like:
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
        TextBox1.SelectAll()
    End Sub

Open in new window

0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 34166393
Hmm...WinForms or WebForms?  =D
0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 26

Expert Comment

by:Shaun Kline
ID: 34166438
Good point, which is it?
0
 

Author Comment

by:rflorencio
ID: 34166545
Winforms
0
 

Author Comment

by:rflorencio
ID: 34166563
Instead of defining all GotFocus each textbox, I would do it automatically
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 34166655
Two ways:
(1) Add all of them after the "Handles" clause.
(2) Wire them up at run-time using AddHandler().

In both cases, use the "sender" parameter to determine which box fired the event.

Example of #1 with three TextBoxes:
*You can select all of them on the form, hit the lightning bolt, then select the GotFocus() event to add them all at once*
Private Sub AllTextBoxex_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus, TextBox2.GotFocus, TextBox3.GotFocus
        Dim tb As TextBox = CType(sender, TextBox)
        tb.SelectAll()
    End Sub

Open in new window

0
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 34166683
Example of #2 using a recursive routine at Form Load():
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WireTextBoxFocusEvent(Me)
    End Sub

    Private Sub WireTextBoxFocusEvent(ByVal cont As Control)
        For Each ctl As Control In cont.Controls
            If TypeOf ctl Is TextBox Then
                AddHandler ctl.GotFocus, AddressOf AllTextBoxes_GotFocus
            ElseIf ctl.HasChildren Then
                WireTextBoxFocusEvent(ctl)
            End If
        Next
    End Sub

    Private Sub AllTextBoxes_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim tb As TextBox = CType(sender, TextBox)
        tb.SelectAll()
    End Sub

End Class

Open in new window

0
 
LVL 26

Expert Comment

by:Shaun Kline
ID: 34166686
You can generalize the function so you can use it for all GotFocus functions for all of your textboxes.
Private Sub GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus, TextBox2.GotFocus ...
        CType(sender, TextBox).SelectAll()
    End Sub

Open in new window

0

Featured Post

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

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

A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

770 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