Improve company productivity with a Business Account.Sign Up

x
?
Solved

vb.net selstart, sellenght

Posted on 2010-11-18
9
Medium Priority
?
1,661 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 27

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 86

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 86

Expert Comment

by:Mike Tomlinson
ID: 34166393
Hmm...WinForms or WebForms?  =D
0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 27

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 86

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 86

Accepted Solution

by:
Mike Tomlinson earned 2000 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 27

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

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
Watch the video to know the process of migration of Exchange or Office 365 mailboxes in absence of MS Outlook. It is an eminent tool which can easily migrate Public, Archive user mailboxes from one another Exchange server and Office 365. Kernel Migr…
Watch the software video of Kernel Import PST to Office 365 tools which can easily import PST and OST files to Office 365 for bulk mailboxes. The process of migration is simple and user can map source and destination mailboxes and easily import data…

595 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