【VB6】实现VB6中类的静态方法

女爷i 2022-07-15 07:17 206阅读 0赞

# [【VB6】实现VB6中类的静态方法 ][VB6_VB6_] #

标签： [ vb][vb][class][][类][Link 1][静态函数][Link 2]

2016-02-13 19:52  303人阅读 [评论][Link 3](0) 收藏 [举报][Link 4]

本文章已收录于：

![category_icon.jpg][] 分类：

VB*（16）* ![arrow_triangle_20_down.jpg][] ![arrow_triangle_up.jpg][]

[作者同类文章][Link 5] *X*

目录[(?)][Link 6][\[+\]][Link 6]

1.  [原创文章欢迎支持][Link 7]
    
    1.  [使用ActiveX DLL创建支持静态函数的类][ActiveX DLL]
        
        1.  [创建工程][Link 8]
        2.  [创建类][Link 9]
        3.  [编译导出][Link 10]
        4.  [使用方法][Link 11]

# 原创文章，欢迎支持 #

> 在VB的使用过程中，较为高级和较为具有兼容性的编程方式是创建类模块。

比如创建了一个数组创建类，专门用来创建特定类型的数组，它被存在一个“ArrayHelper.cls”文件中。代码如下：

<code class="language-vb hljs vbnet has-numbering">Option Explicit
 '///
 '@@summary
 '@@require
 '@@reference
 '@@license
 '@@author
 '@@create
 '@@modify
 '
 
 '-------------------
 ' 初始化
 '-------------------
 Private Sub Class_Initialize()
 End Sub
 
 '--------------------
 ' 销毁
 '--------------------
 Private Sub Class_Terminate()
 End Sub
 
 '///
 '//
 '// 公有方法
 '//
 '///
 Public Function StringArray(ParamArray arr()) As String()
 Dim a() As String
 Dim i As Integer
 ReDim a(UBound(arr))
 For i = LBound(arr) To UBound(arr)
 If VarType(arr(i)) <> vbString Then
 Err.Raise 104, , "[SunSoft]参数非String，请检查代码！"
 End If
 a(i) = CStr(arr(i))
 Next i
 StringArray = a
 End Function
 
 Public Function IntegerArray(ParamArray arr()) As Integer()
 Dim a() As Integer
 Dim i As Integer
 ReDim a(UBound(arr))
 For i = LBound(arr) To UBound(arr)
 If VarType(arr(i)) <> vbInteger Then
 Err.Raise 104, , "[SunSoft]参数非Integer，请检查代码！"
 End If
 a(i) = CStr(arr(i))
 Next i
 IntegerArray = a
 End Function
 </code><ul class="pre-numbering"><li>1</li><li>2</li><li>3</li><li>4</li><li>5</li><li>6</li><li>7</li><li>8</li><li>9</li><li>10</li><li>11</li><li>12</li><li>13</li><li>14</li><li>15</li><li>16</li><li>17</li><li>18</li><li>19</li><li>20</li><li>21</li><li>22</li><li>23</li><li>24</li><li>25</li><li>26</li><li>27</li><li>28</li><li>29</li><li>30</li><li>31</li><li>32</li><li>33</li><li>34</li><li>35</li><li>36</li><li>37</li><li>38</li><li>39</li><li>40</li><li>41</li><li>42</li><li>43</li><li>44</li><li>45</li><li>46</li><li>47</li><li>48</li><li>49</li><li>50</li><li>51</li><li>52</li><li>53</li><li>54</li></ul><div class="save_code tracking-ad" style="display: none;" data-mod="popu_249"><a target=_blank href="javascript:;" target="_blank"><img src="http://static.blog.csdn.net/images/save_snippets.png" alt="" /></a></div><ul class="pre-numbering"><li>1</li><li>2</li><li>3</li><li>4</li><li>5</li><li>6</li><li>7</li><li>8</li><li>9</li><li>10</li><li>11</li><li>12</li><li>13</li><li>14</li><li>15</li><li>16</li><li>17</li><li>18</li><li>19</li><li>20</li><li>21</li><li>22</li><li>23</li><li>24</li><li>25</li><li>26</li><li>27</li><li>28</li><li>29</li><li>30</li><li>31</li><li>32</li><li>33</li><li>34</li><li>35</li><li>36</li><li>37</li><li>38</li><li>39</li><li>40</li><li>41</li><li>42</li><li>43</li><li>44</li><li>45</li><li>46</li><li>47</li><li>48</li><li>49</li><li>50</li><li>51</li><li>52</li><li>53</li><li>54</li></ul>

当我需要在其他的地方使用这里的方法的时候，我必须创建一个类，才能使用这个方法。如下：

<code class="language-vb hljs vbnet has-numbering"> Dim k() As String
 Dim o As New ArrayHelper
 k = o.StringArray("1", "2222")
 Stop</code><ul class="pre-numbering"><li>1</li><li>2</li><li>3</li><li>4</li></ul><div class="save_code tracking-ad" style="display: none;" data-mod="popu_249"><a target=_blank href="javascript:;" target="_blank"><img src="http://static.blog.csdn.net/images/save_snippets.png" alt="" /></a></div><ul class="pre-numbering"><li>1</li><li>2</li><li>3</li><li>4</li></ul>

在Stop命令帮助下，我们在调试模式下验证，k变量的确得到了正确的数组。

但是，由于VB6的机制，我们没法在不创建对象的时候调用这个对象的方法。

今天，创建ActiveX DLL的时候，意外发现了一个方法。

## 使用ActiveX DLL创建支持静态函数的类 ##

### 创建工程 ###

创建一个ActiveX DLL工程，工程名为`SunSoft`

### 创建类 ###

首先，添加一个类模块（`导入cls文件`或者`编写创建一个新的类模块`）  
然后，在右侧的属性窗口，按照如下的表格设置类的属性

<table> 
 <thead> 
 <tr> 
 <th align="left">属性名</th> 
 <th align="left">属性值</th> 
 </tr> 
 </thead> 
 <tbody> 
 <tr> 
 <td align="left">(名称)</td> 
 <td align="left">ArrayHelper</td> 
 </tr> 
 <tr> 
 <td align="left">DataBindingBehavior</td> 
 <td align="left">0 - vbNone</td> 
 </tr> 
 <tr> 
 <td align="left">DataSourceBehavior</td> 
 <td align="left">0 - vbNone</td> 
 </tr> 
 <tr> 
 <td align="left">Instancing</td> 
 <td align="left">6 - GlobalMultiUse</td> 
 </tr> 
 <tr> 
 <td align="left">MTSTransactionMode</td> 
 <td align="left">0 - NotAnMTSObject</td> 
 </tr> 
 <tr> 
 <td align="left">Persistable</td> 
 <td align="left">0 - NotPersistable</td> 
 </tr> 
 </tbody> 
</table>

### 编译导出 ###

编译，生成`SunSoft.dll`

### 使用方法 ###

新建一个普通exe工程，然后在`工程-引用-浏览(B)...`中选择`Sunsoft.dll`，完成在新工程中对它的引用。  
在新工程的窗口中绘制一个按钮，为它增加单击事件。

<code class="language-vb hljs vbnet has-numbering">Dim k() As String
 k = ArrayHelper.StringArray("1", "2222")
 Stop</code><ul class="pre-numbering"><li>1</li><li>2</li><li>3</li></ul><div class="save_code tracking-ad" style="display: none;" data-mod="popu_249"><a target=_blank href="javascript:;" target="_blank"><img src="http://static.blog.csdn.net/images/save_snippets_01.png" alt="" /></a></div><ul class="pre-numbering"><li>1</li><li>2</li><li>3</li></ul>

可以看到我们可以直接访问到ArrayHelper提供的方法了。

顶

踩

*  上一篇[【VB6】VB6类库项目中的Persistable][VB6_VB6_Persistable]
 *  下一篇[VB6存取UTF-8文件][VB6_UTF-8]

####     ####

[VB6_VB6_]: http://blog.csdn.net/greatbody/article/details/50659511
[vb]: http://www.csdn.net/tag/vb
[class]: http://www.csdn.net/tag/class
[Link 1]: http://www.csdn.net/tag/%e7%b1%bb
[Link 2]: http://www.csdn.net/tag/%e9%9d%99%e6%80%81%e5%87%bd%e6%95%b0
[Link 3]: http://blog.csdn.net/greatbody/article/details/50659511#comments
[Link 4]: http://blog.csdn.net/greatbody/article/details/50659511#report
[category_icon.jpg]: /images/20220715/4affff3899e641eba6b87a79025b362c.png
[arrow_triangle_20_down.jpg]: http://static.blog.csdn.net/images/arrow_triangle%20_down.jpg
[arrow_triangle_up.jpg]: /images/20220715/19d9ccf761a742f9b7156d86adc57775.png
[Link 5]: http://blog.csdn.net/greatbody/article/category/1354426
[Link 6]: http://blog.csdn.net/greatbody/article/details/50659511#
[Link 7]: http://blog.csdn.net/greatbody/article/details/50659511#t0
[ActiveX DLL]: http://blog.csdn.net/greatbody/article/details/50659511#t1
[Link 8]: http://blog.csdn.net/greatbody/article/details/50659511#t2
[Link 9]: http://blog.csdn.net/greatbody/article/details/50659511#t3
[Link 10]: http://blog.csdn.net/greatbody/article/details/50659511#t4
[Link 11]: http://blog.csdn.net/greatbody/article/details/50659511#t5
[VB6_VB6_Persistable]: http://blog.csdn.net/greatbody/article/details/50659423
[VB6_UTF-8]: http://blog.csdn.net/greatbody/article/details/52078030