1888.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 25 行
HTML
25 行
<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:yfy000c1@ms18.hinet.net ">阿东</a> on February 08, 1998 at 19:31:57:<p>劣者的物件是text1 text2 command1 劣者想当程式执行<br>时1.游标在text1上2.当在text1 key in *时 游标<br>在text2 3.在key in 0游标出现在command上请问劣者的<br>程式错误在哪里 如何修正才达到上面的要求 谢谢<p>Private Sub Form_Load()<br>Text1.SetFocus**********为何错误<br>End Sub<p>Private Sub Text1_KeyPress(KeyAscii As Integer)<br>'当key in 第一个字母时就开始判断<br>If Len(Text1) = 0 Then<br> '当TEXT1.TEXT=* 时就游标出现在TEXT2但确没有<br> If Left(Text1, 1) = "*" Then<br> Text2.SetFocus<br> End If<br> '当TEXT1.TEXT=0 游标出现在COMMAND1上但确没有<br> If Left(Text1, 1) = "0" Then<br> Command1.SetFocus<br> End If<br>End If<br>End Sub<p><br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 1888--><!--top: 1892--><li><a href="1892.html"><b>Re: 请问有关游标驻点问题</b></a> 小刘 <i>22:13:39 2/08/98</i>(<!--responses: 1892-->0)<ul><!--insert: 1892--></ul><!--end: 1892--></ul><!--end: 1888--><br><HR><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?