wiki@nothing
適当なまとめサイトというか資料庫というか。誰でも自由に編集できます。
|
|
|
memo/VB6
をテンプレートにして作成
開始行:
*VB6 [#ic15ded2]
今更ながら Visual Basic 6.0 の、他ではあまり知られてない ...
**コンパイル後に実行速度が遅くなる!? [#q4647ff0]
普段、書いたコードを EXE にコンパイルして実行すると、特に...
実は、よくある ''エラートラップ'' の処理がまさしくそれで...
Dim i as Long, errCnt as Long, pObj(i) As Form
On Local Error Resume Next
For i = 0 To TESTCOUNT
pObj(i).Caption = "a" ' pObj(i) = Nothing なの...
If Err.Number > 0 Then
errCnt = errCnt + 1
Err.Clear
End If
Next i
うちの Athlon XP 3200+ の環境で、この単純なループを 10 万...
-IDE環境内: 約 200 ms
-コンパイル後: 約 &color(red){800}; ms
と、かなりの速度差が発生します。 VB ではあまり無いとは思...
事前に防げるエラーはできる限り未然に防ぎましょう、ってこ...
**空の動的配列に LBound() / UBound() を使ってもエラーを発...
上のエラートラップ関係で、個人的によくハマったものなので...
http://homepage1.nifty.com/MADIA/vb/vb_bbs/200312_0312003...
>
Private Declare Function SafeArrayAllocDescriptor Lib "o...
(ByVal cDims As Long, _
ByRef ppsaOut() As Any) As Long
と宣言して、
Dim X() As Test
SafeArrayAllocDescriptor 1, X
を実行してみてください。UBound(X) が -1 になります。
//VB では Dim で配列を宣言するとき、要素数を指定しないと...
終了行:
*VB6 [#ic15ded2]
今更ながら Visual Basic 6.0 の、他ではあまり知られてない ...
**コンパイル後に実行速度が遅くなる!? [#q4647ff0]
普段、書いたコードを EXE にコンパイルして実行すると、特に...
実は、よくある ''エラートラップ'' の処理がまさしくそれで...
Dim i as Long, errCnt as Long, pObj(i) As Form
On Local Error Resume Next
For i = 0 To TESTCOUNT
pObj(i).Caption = "a" ' pObj(i) = Nothing なの...
If Err.Number > 0 Then
errCnt = errCnt + 1
Err.Clear
End If
Next i
うちの Athlon XP 3200+ の環境で、この単純なループを 10 万...
-IDE環境内: 約 200 ms
-コンパイル後: 約 &color(red){800}; ms
と、かなりの速度差が発生します。 VB ではあまり無いとは思...
事前に防げるエラーはできる限り未然に防ぎましょう、ってこ...
**空の動的配列に LBound() / UBound() を使ってもエラーを発...
上のエラートラップ関係で、個人的によくハマったものなので...
http://homepage1.nifty.com/MADIA/vb/vb_bbs/200312_0312003...
>
Private Declare Function SafeArrayAllocDescriptor Lib "o...
(ByVal cDims As Long, _
ByRef ppsaOut() As Any) As Long
と宣言して、
Dim X() As Test
SafeArrayAllocDescriptor 1, X
を実行してみてください。UBound(X) が -1 になります。
//VB では Dim で配列を宣言するとき、要素数を指定しないと...
ページ名:
(HTML conversion costs 0.002 sec.)