Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64002 / 76807

←次へ　｜　前へ→


	【17393】Re:以前の記事から

角田

- 04/8/28(土) 9:55 -


	引用なし

	パスワード

こんにちは。
>Call ClsT.propertysSet(Me("CheckBox" & i), Me("TextBox" & i))
省略時の既定メンバ解釈により動いていますが正確には
Me("CheckBox" & i), Me("TextBox" & i)
　　↓
Me.Controls("CheckBox" & i), Me.Controls("TextBox" & i)

>Dim ColCls As Collection
>Private Sub UserForm_Initialize()
>　　Dim ClsT As Class1
>　　Dim i　　As Long
>　　
>　　Set ColCls = New Collection
>　　For i = 1 To 3
>　　　　Set ClsT = New Class1
>　　　　Call ClsT.propertysSet(Me("CheckBox" & i), Me("TextBox" & i))
>　　　　ColCls.Add ClsT
>　　　　Set ClsT = Nothing
>　　Next i
本体のクラス変数(ClsT)をローカル変数にして、コレクションに
参照を残して処理しているのはメモリーリークしそうな書き方ですね～

>クラスモジュールを使うのは初めてなと、本を見ても少しの説明しかのってないので
こちら参考に（§５までが一般的なクラスモジュールによる一元化の手法です）

擬似からの脱却
http://www.h3.dion.ne.jp/~sakatsu/Breakthrough_P-Ctrl_Arrays.htm

1 hits

▼

【17389】以前の記事から Kobasan 04/8/28(土) 8:39