(以前の記事と被ってます)
●Class1
Private Sub Class_Initialize()
Dim k As Integer
k = 4
End Sub
というクラスがあります
そのクラスインスタンスを 保持(10) という配列に格納するというプログラムです。
================ メインプログラム 次のようになっていて command1ボタンの押下で実行します。
Dim 保持(10) As Class1
'************************
Public Sub 設定()
Dim c As New Class1
Dim i As Integer
For i = 0 To 10
Set c = Nothing
Set 保持(i) = c
Next i
End Sub
Private Sub Command1_Click()
設定
End Sub
・気色悪さを感じたのですが,テンプレートサンプルになっていると聞いてアングリでした。
VB6では Dim c as New class1 の時 cがNothingの時、最初の使用時にインスタンス化されるとはいえ、こんなコーディングでいいの?
変な風潮も大量になると文化になるとはいえ,こんな文化いやだーーー!!