【VB6】实现VB6中类的静态方法
本文章已收录于：
版权声明：本文为博主原创文章，未经博主允许不得转载。
原创文章，欢迎支持
在VB的使用过程中，较为高级和较为具有兼容性的编程方式是创建类模块。
比如创建了一个数组创建类，专门用来创建特定类型的数组，它被存在一个“ArrayHelper.cls”文件中。代码如下：
<code class="language-vb hljs vbnet has-numbering"><span class="hljs-keyword">Option</span> <span class="hljs-keyword">Explicit</span> <span class="hljs-comment">'///////////////////</span> <span class="hljs-comment">'@@summary</span> <span class="hljs-comment">'@@require</span> <span class="hljs-comment">'@@reference</span> <span class="hljs-comment">'@@license</span> <span class="hljs-comment">'@@author</span> <span class="hljs-comment">'@@create</span> <span class="hljs-comment">'@@modify</span> <span class="hljs-comment">'////////////////////</span> <span class="hljs-comment">'-------------------</span> <span class="hljs-comment">' 初始化</span> <span class="hljs-comment">'-------------------</span> <span class="hljs-keyword">Private</span> <span class="hljs-keyword">Sub</span> Class_Initialize() <span class="hljs-keyword">End</span> <span class="hljs-keyword">Sub</span> <span class="hljs-comment">'--------------------</span> <span class="hljs-comment">' 销毁</span> <span class="hljs-comment">'--------------------</span> <span class="hljs-keyword">Private</span> <span class="hljs-keyword">Sub</span> Class_Terminate() <span class="hljs-keyword">End</span> <span class="hljs-keyword">Sub</span> <span class="hljs-comment">'///////////////////////////</span> <span class="hljs-comment">'//</span> <span class="hljs-comment">'// 公有方法</span> <span class="hljs-comment">'//</span> <span class="hljs-comment">'///////////////////////////</span> <span class="hljs-keyword">Public</span> <span class="hljs-keyword">Function</span> StringArray(<span class="hljs-keyword">ParamArray</span> arr()) <span class="hljs-keyword">As</span> <span class="hljs-built_in">String</span>() <span class="hljs-keyword">Dim</span> a() <span class="hljs-keyword">As</span> <span class="hljs-built_in">String</span> <span class="hljs-keyword">Dim</span> i <span class="hljs-keyword">As</span> <span class="hljs-built_in">Integer</span> <span class="hljs-keyword">ReDim</span> a(UBound(arr)) <span class="hljs-keyword">For</span> i = LBound(arr) <span class="hljs-keyword">To</span> UBound(arr) <span class="hljs-keyword">If</span> VarType(arr(i)) <> vbString <span class="hljs-keyword">Then</span> Err.Raise <span class="hljs-number">104</span>,<span class="hljs-string">"[SunSoft]参数非String，请检查代码！"</span> <span class="hljs-keyword">End</span> <span class="hljs-keyword">If</span> a(i) = <span class="hljs-built_in">CStr</span>(arr(i)) <span class="hljs-keyword">Next</span> i StringArray = a <span class="hljs-keyword">End</span> <span class="hljs-keyword">Function</span> <span class="hljs-keyword">Public</span> <span class="hljs-keyword">Function</span> IntegerArray(<span class="hljs-keyword">ParamArray</span> arr()) <span class="hljs-keyword">As</span> <span class="hljs-built_in">Integer</span>() <span class="hljs-keyword">Dim</span> a() <span class="hljs-keyword">As</span> <span class="hljs-built_in">Integer</span> <span class="hljs-keyword">Dim</span> i <span class="hljs-keyword">As</span> <span class="hljs-built_in">Integer</span> <span class="hljs-keyword">ReDim</span> a(UBound(arr)) <span class="hljs-keyword">For</span> i = LBound(arr) <span class="hljs-keyword">To</span> UBound(arr) <span class="hljs-keyword">If</span> VarType(arr(i)) <> vbInteger <span class="hljs-keyword">Then</span> Err.Raise <span class="hljs-number">104</span>,<span class="hljs-string">"[SunSoft]参数非Integer，请检查代码！"</span> <span class="hljs-keyword">End</span> <span class="hljs-keyword">If</span> a(i) = <span class="hljs-built_in">CStr</span>(arr(i)) <span class="hljs-keyword">Next</span> i IntegerArray = a <span class="hljs-keyword">End</span> <span class="hljs-keyword">Function</span> </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"> <span class="hljs-keyword">Dim</span> k() <span class="hljs-keyword">As</span> <span class="hljs-built_in">String</span> <span class="hljs-keyword">Dim</span> o <span class="hljs-keyword">As</span> <span class="hljs-keyword">New</span> ArrayHelper k = o.StringArray(<span class="hljs-string">"1"</span>,<span class="hljs-string">"2222"</span>) <span class="hljs-keyword">Stop</span></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文件或者编写创建一个新的类模块）
然后，在右侧的属性窗口，按照如下的表格设置类的属性
| 属性名 | 属性值 |
|---|---|
| (名称) | ArrayHelper |
| DataBindingBehavior | 0 - vbNone |
| DataSourceBehavior | 0 - vbNone |
| Instancing | 6 - GlobalMultiUse |
| MTSTransactionMode | 0 - NotAnMTSObject |
| Persistable | 0 - NotPersistable |
编译导出
编译，生成SunSoft.dll
使用方法
新建一个普通exe工程，然后在工程-引用-浏览(B)...中选择Sunsoft.dll，完成在新工程中对它的引用。
在新工程的窗口中绘制一个按钮，为它增加单击事件。
<code class="language-vb hljs vbnet has-numbering"><span class="hljs-keyword">Dim</span> k() <span class="hljs-keyword">As</span> <span class="hljs-built_in">String</span> k = ArrayHelper.StringArray(<span class="hljs-string">"1"</span>,<span class="hljs-string">"2222"</span>) <span class="hljs-keyword">Stop</span></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提供的方法了。
- 顶
- 0
- 踩
- 0