📄 5.html

📁 VB技巧问答10000例,是一个教程

💻 HTML

字号:

<html>  <head>    <title>如何选取文字方块</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>如何选取文字方块</h1>    </center><HR><p>Posted by <a href="mailto:wyw@iName.com">wyw</a> on May 16, 1997 at 21:35:00:<p>觉得要达到一般软体的文字方块文字选取的目的:<br>1.当使用 Tab, Shift-Tab, 或捷径键切换 focus 到该文字方块时，自动选取文字方块的内容。<br>2.当使用滑鼠切换 focus 到文字方块时，不选取文字方块的内容。<p>因为要达到项目 2 使用滑鼠时, 文字方块会引发以下事件<br>MouseDown -> GotFocus -> MouseUp<p>而在项目 1 使用 TAB 时, 则只有 GotFocus 事件<p>所以可以在 (declare) 部份<br>Dim MotionMouse As Integer<p>Private Sub Text1_GotFocus ()<br>   If Not MotionMouse then <br>      Text1.SelStart = 0<br>      Text1.SelLength = Len(Text1)<br>      MotionMouse = False<br>   End If<br>End Sub<p>Private Sub Text1_MouseDown ()<br>   MotionMouse = True<br>End Sub<p>这样就可以了<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 5--><!--top: 6--><li><a href="6.html"><b>Re: 如何选取文字方块</b></a> 小吴 <i>18:23:38 5/18/97</i>(<!--responses: 6-->0)<ul><!--insert: 6--></ul><!--end: 6--></ul><!--end: 5--><br><HR><p><P><FONT SIZE=-1><CENTER><A HREF="http://www.dbasics.com/">WWWBoard 2.0a</A> &copy;1997 <A HREF="mailto:dbasics@aol.com">DBasics Software Company</A>, P.O. Box 18085, Beverly Hills, CA. 90209</center></FONT></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -