VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/12/09(Tue) 17:12 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 未熟者のようですが… |
> まだ、値を取得することが出来ません。
>
> 現在は「型が一致しません。」とのエラーメッセージが吐き出されます。
> クラスから帰ってくるところで、落ちるので受け取りの型が違うのかと思いますが…。
>
> どのようにすれば、通るのでしょうか？
どんなコードを書いているかわからないので、どこがおかしいかはわかりませんが
とりあえず、コレクションクラスがCollection1、メンバクラスがClass1とすると
こんな感じです。
Dim objCol As Collection1
Dim objCls As Class1
Set objCol = New Collection1
objCol.Add "1"
objCol.Add "2"
objCol.Add "3"
objCol.Add "4"
For Each objCls In objCol
MsgBox objCls.Key
Next objCls
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）