让鼠标进入TextBox时自动选定TextBox中之整串文字

2016-02-19 18:29 23 1 收藏

今天图老师小编给大家展示的是让鼠标进入TextBox时自动选定TextBox中之整串文字,精心挑选的内容希望大家多多支持、多多分享,喜欢就赶紧get哦!

【 tulaoshi.com - 编程语言 】

这个自动选定反白整串文字的动作,会使得输入的资料完全取代之前在TextBox中的所有字符。

PrivateSubText1_GotFocus()
  Text1.SelStart=0
  Text1.SelLength=Len(Text1)
  EndSub->

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

来源:https://www.tulaoshi.com/n/20160219/1617850.html

延伸阅读
作为轻量级的控件,TextBox控件使用率很高,但相关的资料极少谈及如何用TextBox控件打开和保存文件,大都采用回避的态度,对VB初学者带来很多不便。笔者近日为友人做一个英文朗读软件,按友人的要求,软件要能象MS的记事本那样能打开和保存文档。其实实现方法并不复杂,现将心得写出来,希望对大家有帮助。如果您有更好的方法,请来信:handanfa...
Public Function checkrow() As String Dim row As Integer = Me.TextBox1.SelectionStart Dim i As Integer Dim p As Integer Dim count As Integer = 0 Dim count1 As Integer = 0 For i = 0 To Me.TextBox1.Lines.GetUpperBound(0) count += Me.TextBox1.Lines(i).Length + 2 ' 一个回车相当于2个 If row If i = 0 Then p = row ...
'在form中放一个textBox两个labelConst EM_GETSEL = &HB0Const EM_LINEFROMCHAR = &HC9Const EM_LINEINDEX = &HBBPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _lParam As Any) As LongPublic Sub Get...
这是使用EM_GETLINE message来做,比较奇特的是lParam是指向一个字串所在的位置,但是该字串传入时,前两个Byte要存该字串允许的最大长度。 '以下在Form需一个TextBox,并设定MultiLine = True, 一个Command ButtonPrivate Sub Command1_Click()Dim str5 As Stringstr5 = GetaLine(Text1,1) '取得第二行的字串,以0为基底En...
标签: ASP
1.整个页面的判断 foreach(Control ctl in this.Controls.Controls) {  if(ctl.GetType().Name=="TextBox")  {   TextBox tb =new TextBox();   tb=(TextBox)this.FindControl(ctl.ID);      if(tb.Text==string.Empty)   {    Response.Write("<scriptalert('...

经验教程

502

收藏

29
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部