📄 20268.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>Re: 如何可以快速取得文字档的行数呢??</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 如何可以快速取得文字档的行数呢??</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:jtomail@tomail.com.tw">j</a> on October 17, 1999 at 11:09:14:<p>In Reply to: <a href="20260.html">如何可以快速取得文字档的行数呢??</a> posted by JR on October 17, 1999 at 00:16:45:<p>: 如何可以快速取得文字档的行数呢??<p>先把文字档开启，然后放在 Text1 内<p>Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<p>Private Const EM_GETLINECOUNT = &HBA<p>Dim N As Long<p>N = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)<p>MsgBox N & " 行"<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20268--></ul><!--end: 20268--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -