17620.html
来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 27 行
HTML
27 行
<html> <head> <title>Re: 请问: 如何得知 目前由标是停在 TextBox 的第几行 ? (无内文) Thanks much !!!</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 请问: 如何得知 目前由标是停在 TextBox 的第几行 ? (无内文) Thanks much !!!</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:luo570@ms31.hinet.net">小琳</a> on August 20, 1999 at 20:33:36:<p>In Reply to: <a href="17570.html">请问: 如何得知 目前由标是停在 TextBox 的第几行 ? (无内文) Thanks much !!!</a> posted by Albert on August 20, 1999 at 14:48:24:<p>: !!<p>:::小女子写了一个小程式，希望能解决您的问题!!!<br>Option Explicit<p>Private Sub Command1_Click()<br> Dim i As Integer, j As Integer<br> Dim temp As String<br> <br> i = 1<br> j = 1<br> Do While i < Text1.SelStart<br> temp = Mid(Text1.Text, i, 1)<br> If temp = Chr(10) Then<br> j = j + 1<br> End If<br> i = i + 1<br> Loop<br> MsgBox "第" & j & "行"<br>End Sub<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17620--><!--top: 17653--><li><a href="17653.html">Thanks your help, I have another method for this problem ! (有兴趣请入内)</a> <b>Albert</b> <i>11:30:13 8/21/99</i>(<!--responses: 17653-->0)<ul><!--insert: 17653--></ul><!--end: 17653--></ul><!--end: 17620--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?