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

时间:2022-05-22 19:30:55

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

标签: vbclass静态函数
303人阅读 评论(0) 收藏 举报
本文章已收录于:
【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