zfbj 发表于 2004-11-5 22:38:00

[分享]关于VBA编程的一点建议

以前大家在写VBA程序时大多喜欢这么定义一个作为点的变量（不会就我一个人这么做吧？呵呵）：


dim ptStart(0 to 2) as Double


ptStart(0) = 1 : ptStart(1) = 1 : ptStart(2) = 0


然后直接将ptStart作为点参数输入。


实际上，觉得用下面的这种方法能方便一些：


Dim startTan As Variant


utilObj.CreateTypedArray        startTan, vbDouble, 0.5, 0.5, 0


跟以前的方法相比，到底如何，就是仁者见仁，智者见智的问题了。一般程序规模不大的情况下，这样做性能上不会有太大的影响，就是写起来方便一点。<BR>

雪山飞狐_lzh 发表于 2004-11-7 21:40:00

还是有点麻烦，我是这样的


Function CreateArray(TypeName As VbVarType, ParamArray ValArray())<BR>                       Dim i, mArray<BR>                       Dim nCount As Integer<BR>                       <BR>                       nCount = UBound(ValArray)<BR>                       <BR>                       Select Case TypeName<BR>                       Case vbDouble<BR>                                                       Dim dArray() As Double<BR>                                                       ReDim dArray(nCount)<BR>                                                       mArray = dArray<BR>                       Case vbInteger<BR>                                                       Dim nArray() As Integer<BR>                                                       ReDim nArray(nCount)<BR>                                                       mArray = nArray<BR>                       Case vbString<BR>                                                       Dim sArray() As String<BR>                                                       ReDim sArray(nCount)<BR>                                                       mArray = sArray<BR>                       Case vbVariant<BR>                                                       Dim vArray()<BR>                                                       ReDim vArray(nCount)<BR>                                                       mArray = vArray<BR>                       End Select<BR>                       <BR>                       For i = 0 To nCount<BR>                                                       mArray(i) = ValArray(i)<BR>                       Next i<BR>                       <BR>                       CreateArray = mArray<BR>End Function<BR>
页: [1]
查看完整版本: [分享]关于VBA编程的一点建议