⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 qqexp045.html

📁 包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜欢它啦
💻 HTML
字号:
🔍 
<html>

<head>
<title>千千VB站 VB函数清单</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body>

<marquee><blink><b>数组筛选</b></blink></marquee>
<hr>
●Filter是VB6新提供的函数，VB5的使用者无法试验。
<p>●用法：传回数组 = Filter(原始数组, 筛选条件, 
传回符合条件资料或传回不符合条件资料, 筛选方式)<br>
●Filter的功用在于帮你快速筛选数组内的资料，再以数组的方式传回。
<dl>
  Private Sub Command1_Click()
  <dd>Dim MyStr(5) As String
  <dd>MyStr(0) = &quot;Abcdefgh&quot;
  <dd>MyStr(1) = &quot;千千VB站&quot;
  <dd>MyStr(2) = &quot;ａＢCDeF&quot;
  <dd>MyStr(3) = &quot;123&amp;*678Abcd123&quot;
  <dd>MyStr(4) = &quot;Xyz-0001-Z0C&quot;
  <dd>MyRslt = Filter(MyStr, &quot;abc&quot;, True, VBTextCompare)
    <dl>
      For Each Prt In MyRslt
      <dd>Print Prt
    </dl>
    Next
</dl>
End Sub<br>
●结果Prt打出：&quot;Abcdefgh&quot;、&quot;ａＢCDeF&quot;、&quot;123&amp;*678Abcd123&quot;<br>
○也就是说MyRslt(0)=&quot;Abcdefgh&quot;、MyRslt(1)=&quot;ａＢCDeF&quot;、MyRslt(2)=&quot;123&amp;*678Abcd123&quot;
<p>　
<dl>
  Private Sub Command1_Click()
  <dd>Dim MyStr(5) As String
  <dd>MyStr(0) = &quot;Abcdefgh&quot;
  <dd>MyStr(1) = &quot;千千VB站&quot;
  <dd>MyStr(2) = &quot;ａＢCDeF&quot;
  <dd>MyStr(3) = &quot;123&amp;*678Abcd123&quot;
  <dd>MyStr(4) = &quot;Xyz-0001-Z0C&quot;
  <dd>MyRslt = Filter(MyStr, &quot;abc&quot;, False, VBTextCompare)
    <dl>
      For Each Prt In MyRslt
      <dd>Print Prt
    </dl>
    Next
</dl>
End Sub<br>
●结果Prt打出：&quot;千千VB站&quot;、&quot;Xyz-0001-Z0C&quot;<br>
<p>　

</body>

</html>

 
</SCRIPT>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -