you could add a handler for all the textboxes , then use SelectAll() , eg:
VB Code:
[Color=Blue]Private[/color] [Color=Blue]WithEvents[/color] tb [Color=Blue]As[/color] TextBox [Color=Blue]Private[/color] [Color=Blue]Sub[/color] Form1_Load([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] System.Object, [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.EventArgs) [Color=Blue]Handles[/color] [Color=Blue]MyBase[/color].Load [Color=Blue]Dim[/color] ctl [Color=Blue]As[/color] Control [Color=Blue]For[/color] [Color=Blue]Each[/color] ctl [Color=Blue]In[/color] [Color=Blue]Me[/color].Controls [Color=Blue]If[/color] [Color=Blue]TypeOf[/color] ctl [Color=Blue]Is[/color] TextBox [Color=Blue]Then [/color] [Color=Blue]AddHandler[/color] ctl.Enter, [Color=Blue]AddressOf[/color] tb_Enter [Color=Blue]End[/color] [Color=Blue]If [/color] [Color=Blue]Next [/color] [Color=Blue]End[/color] [Color=Blue]Sub [/color] [Color=Blue]Private[/color] [Color=Blue]Sub[/color] tb_Enter([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] [Color=Blue]Object[/color], [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.EventArgs) [Color=Blue]Handles[/color] tb.Enter [Color=Blue]Dim[/color] txtbox [Color=Blue]As[/color] TextBox = [Color=Blue]DirectCast[/color](sender, TextBox) txtbox.SelectAll() [Color=Blue]End[/color] [Color=Blue]Sub[/color]





Reply With Quote