VBプログラマ質問スレ（6.0以前） Part55

1 名前：デフォルトの名無しさん [2009/07/13(月) 21:12:36 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。 　二．VBScript、インストーラーなどはこのスレでＯＫ。 　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。 　四．荒らしは相手しない。 ○ 回答者の心得 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。 　二．代用法を強制しない。 　三．回答する上で必須ではない情報をむやみに聞き返さない。 　四．荒らしは相手しない。 　五．VB情報募集中。 　六．回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム 　www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google 　www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。 331 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:16:15 ] >>329 これVB６じゃなかったか？ www8.plala.or.jp/uro/live2ch/ 332 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:17:46 ] VB6でもAPI使えばいろいろできるし。 それなりのモノは作れるよ。 333 名前：329 mailto:sage [2010/02/27(土) 00:23:11 ] >>331 それVB製だったのか知らんかったわ >>332 つまりＡＰＩ駆使しないと作れないってわけか ちなみに持ってるのラーニングエディションなんだけど大丈夫だよね？ 334 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:25:33 ] その程度の人はいまさらVB6なんてやらないで.NETを覚えればいいじゃん 335 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:31:06 ] そのレベルなら無料なんだしね VB6なんて旧ソフトの保守くらいにしか使わないな かといってACTIVEX使いまくりで変に客側に使い勝手のいいソフトは移行がめんどくさい 336 名前：329 mailto:sage [2010/02/27(土) 00:32:16 ] .NETって無償バージョンがあるんだっけ？ .NETのソースコード、昔どっかで見たような気がするけど、VB6と全然違ってわけわかんなかった 337 名前：329 mailto:sage [2010/02/27(土) 00:36:27 ] 今更と言っても 初めて買ったプログラミングソフトのがVB6で（もう10年くらい前かな) 未だにWindows95で思いついたの作るの挑戦してるというわけで 今度は自分専用の２ｃｈブラウザでも作ってみようかと思ったわけですよ 338 名前：329 mailto:sage [2010/02/27(土) 00:40:18 ] プログラミングのレベルが低いのは 6年位前までVB6関連の書籍が入手できなかったので（ネットも使えなかった） ベーシックマガジン頼りに掲載プログラム移植してみたりとかしてる程度だったのよ 339 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:46:45 ] 　　　　　　　,　- ―‐ -　､ 　　　　　 ／　　　　　　 　 ＼ 　　　　 /　　　 ∧　∧　 , 　 ヽ 　　 　./　 ｌ＼:/- ∨ -∨､!　,　',　　さあみんな集まってー！ 　　　/ ハ.|/　　　 　 　 　 ∨|,､ﾍ　　　自分語りスレがはじまるよー！！ 　 |ヽ' ヽ　　 　 ●　　●　　　 ﾉ! l . 〈｢!ヽﾊ._　　　　＿＿　　　　_.lﾉ　| 　　く´ ＼.）　 　 ヽ. ノ　　　（.ﾉ ￣ 　　　＼　｀'ｰ-､ ＿＿_,_ - '´ 　 　　 　｀　- ､ ||V V||　＼ 　　　　　　　　| ||　 　|| l＼ ヽ 340 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:47:10 ] 閉じた世界でならかまわないが、他人様のサーバにアクセスするには繊細な知識を持ってからやれよ？ 341 名前：329 mailto:sage [2010/02/27(土) 00:59:52 ] インターネットってそんなにハイレベルな技術なのか・・・難しそうだな 342 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 01:05:09 ] ブラウザコンポーネント貼り付ければ9割はできたようなものさ 343 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 01:14:34 ] はぁ？おまえ作ったことあんのか？単なるWEBブラウザの話をしてんのか？ 344 名前：329 mailto:sage [2010/02/27(土) 01:15:29 ] なるほど簡単そうな感じ でも細かいことはこれから調べながらゆっくり自分のペースで作ってくつもり VBの仕様的に作るの無理かどうか知りたかっただけだから あとは自分でなんとかするよ >>331がVB製ってことだけで安心材料だ 345 名前：329 mailto:sage [2010/02/27(土) 01:16:49 ] お礼言ってなかったので 最後に、 みなさん回答ありがとうございました 346 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 01:29:18 ] 自分でなんとかするな！ 2chブラウザには決まりがたくさんあるんだから、それを熟知してからにしろ！ DAT経由じゃなくて単なる読み込みだけなら何もいわんけどさ 347 名前：329 mailto:sage [2010/02/27(土) 01:34:26 ] なんかよくわからないけど 色々調べてからやりますんで安心してくださいな 348 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 01:39:54 ] よくわからないくせに大口たたくなクソ野郎 349 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 13:25:46 ] 2chブラウザ作るならこの辺りのスレに情報ある。というかそこにいる あと俺も自分用にVB6で作ってる途中。既存のブラウザと全く劣らないのは俺には無理だがえろい人ならやってくれるはず monazilla Part 6 pc12.2ch.net/test/read.cgi/tech/1224449899/ 2ch専用ブラウザの作り方 pc12.2ch.net/test/read.cgi/tech/1180406037/ 350 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 14:57:42 ] VBをやるのはVB.NETをインストールするハードディスクがないからなんでしょ? 351 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 15:11:22 ] Windows95だからって書いてあるような。 セキュリティ的にも問題のあるWin95はさすがに迷惑に思うが。 ネットでもVB6の情報は入手し難くなってるし、目先しか見えない阿呆に感じる。 352 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 15:17:12 ] ﾏｿﾞなんだろ。ほっとけよ。 353 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 15:23:01 ] 変なのはほっとくのが一番だな 354 名前：デフォルトの名無しさん mailto:sage [2010/02/28(日) 00:56:16 ] ここVB6の質問スレ ネットで情報収集できなければ組めないエセが何言ってんだか >>346みたいな挫折のストレス解消したかったら他へ行け 355 名前：デフォルトの名無しさん mailto:sage [2010/02/28(日) 01:01:56 ] 安価ミス >>346じゃなくて>>347な 356 名前：デフォルトの名無しさん mailto:sage [2010/02/28(日) 01:09:53 ] >>347のどこが挫折？ あれはどうのこれはどうの否定的なこと言って足を引っ張る馬鹿よりも俺は329を応援する。 357 名前：デフォルトの名無しさん mailto:sage [2010/02/28(日) 01:40:53 ] 否定的ってのはどれの事だろう 何に対しての否定？ 358 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 03:28:00 ] ExcelのVBAってVB6なんだっけ？ 359 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 11:10:52 ] JavaとJavaScriptが同じものと言うような人ならそうだろう 360 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 11:17:10 ] うん。VB6相当。 361 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 12:44:32 ] VB6で2chブラウザ作って自分で使ってる。今現在、別に問題なく読み書きできてるが 素人の自分でも大した知識もなくできてしまった。もう一年くらい前に作ったやつなので 細かい所はよく覚えてない。何で動いてるのか自分でも不思議だ。 もしかすると何かサーバーに迷惑かけてるかもしれんｗ 362 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 13:20:45 ] だからそれはDATを叩いたりしてるものじゃないんだろ？ ただのブックマーク管理ソフトなら問題無いじゃん 363 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 21:07:28 ] 普通にdat叩きしてるが何そんなに否定したいの？？ 具体的な注意事項書いてあげるでもなく作法があるだの 言っているのは人の足を引っ張りたいだけにしか見えない VBある程度わかっていて専ブラやりたいなら www.monazilla.org/ 次はこの辺りをみるといいよ 364 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 21:38:58 ] 注意事項はもう出てるじゃん 馬鹿なの？ 365 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 21:43:37 ] ソースどころかEXEも出せないんだから肯定できないな。 妄想はチラシの裏にでも書いてろと。 366 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 21:50:40 ] 車の運転をしたことない奴が高速道路を走ると言われたら全力で阻止するよな 367 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 21:59:49 ] 高速のほうが一般道より安全だよ 368 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 22:05:12 ] 高速のほうが一般道より被害がでかいよ 369 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 22:09:43 ] 教えて大丈夫そうな相手なら、さっさとリンク張ってるだろう。 誰も教えなかったって事は、そういう事だ。 370 名前：デフォルトの名無しさん mailto:sage [2010/03/02(火) 21:50:53 ] この話はここまで。はい、次の質問どうぞ。 371 名前：デフォルトの名無しさん mailto:sage [2010/03/02(火) 23:37:41 ] exeもソースも出さないけど俺も作ってるよ ttp://sageuploader.vs.land.to/1upload/src/sage1_18359.jpg まだここまでしかできてない。画面デザインは某PDA向けブラウザから拝借した 昔も作ったけどあの頃は今より知識なくてめちゃくちゃになってたからまた最初から作ってる 多分これも完成しないまま放置されて数年後にまた最初から作り直してると思う 372 名前：デフォルトの名無しさん mailto:sage [2010/03/02(火) 23:58:48 ] が、画面デザイン？ デザインて......いや悪く言うつもりはないが 373 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 00:03:02 ] レイアウトって言った方がよかったか？ 大体通じると思ったけど見た目とか操作性をそのまま拝借したと言いたかった 374 名前：デフォルトの名無しさん [2010/03/03(水) 00:37:32 ] プロのプログラマーじゃなくて アマのプログラマーか 375 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 07:09:13 ] >>371 仕事中に２ちゃんするよう？ 376 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 07:51:25 ] datを叩くって、いかにも中二病的な言い回しだな 377 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 08:05:15 ] まあ２ちゃんブラウザは誰もが一度は通る道さ セックスと同じ 378 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 08:08:33 ] ぼくのかんがえたさいきょうぶらうざ 379 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 14:31:20 ] >>371 自分の作ってみたい欲を満たすためだけのオナニー用ブラウザ >>377 オナニーじゃなくて？セックスは通らない人もいるだろ。例えば俺とか 380 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 14:35:33 ] デリヘルでも呼べばいいのに 彼女作るよりよっぽど安上がりだぞ 381 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 14:38:13 ] 当初の質問者はもういないのに（たぶん） まだ２ちゃんブラウザの話続いてたんか 382 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 14:46:27 ] デリヘルの話をしてるのに当初の質問者の話をするな 383 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 15:07:48 ] >>379 俺もだ。仲間が居て安心した。 384 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 15:12:10 ] 童貞と素人童貞のすくつでつね プログラマーに彼女とか恋人とか結婚とか無理ってか？ ビッチ「ＶＢ？今時ＶＢなんてダッサ〜いｗ何それ〜ｗｗ」 385 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 15:24:48 ] 明示的な型変換ってどんなときに使えばいいの？ CIntとかCStrってIntやStr使えばいいし 386 名前：デフォルトの名無しさん [2010/03/03(水) 15:28:54 ] 使わない 387 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 15:31:44 ] >>385 アホか 388 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 17:55:48 ] >>385 彼女がString欲しがってるのにByte配列無理やりねじ込む時とか、 Variant突きつけられても、文字列な僕を数字扱いして欲しい時とか？ どこでいるの？って思ってるなら、よっぽどの馬鹿か、暗黙的にもう理解しているかの二極だ。さぁ君はどっち？ ようは暗黙の型変換をちゃんと理解してればほとんど使わないんだよ。 いる時は相手の関数の仕様か、Variantが必要な時くらいでそ。(Variantが必要ってのも正直皆無だし) 389 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 18:22:43 ] >>385 CInt等を使うと処理が遅くなってしまうので使ってはいけません。 390 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 18:23:38 ] >>385 使うとソースコードが読みやすくなるので積極的に使いましょう。 391 名前：デフォルトの名無しさん mailto:sage [2010/03/03(水) 18:30:01 ] >>385 ビッチはそんなこと言わない そもそもVBを分かる女なんていねーよｗ 恋愛したいんなら出会い系逝け 392 名前：デフォルトの名無しさん mailto:sage [2010/03/04(木) 14:51:48 ] Windows上で起動しているアプリケーションのタイトルの一覧取得する関数ってVBである？ API使って取得するしかない？ AppActivateで既に起動してるアプリを指定しようと思ったんだけど 393 名前：デフォルトの名無しさん mailto:sage [2010/03/04(木) 14:59:37 ] ggrks 394 名前：デフォルトの名無しさん mailto:sage [2010/03/04(木) 16:21:56 ] >>388 ＞彼女がString欲しがってるのにByte配列無理やりねじ込む時とか、 シリアルポートに0xf1辺り投げたいとき 395 名前：デフォルトの名無しさん mailto:sage [2010/03/04(木) 20:41:34 ] >>392 ない。 396 名前：392 mailto:sage [2010/03/05(金) 00:03:48 ] >>395 回答どーもです やっぱ無いか・・・API使うしかないんだな・・・API使うの面倒だから嫌なんだよね LEだからAPIビューワとかなくて自分で調べるしかなくってさ まぁただの愚痴だけど 397 名前：デフォルトの名無しさん mailto:sage [2010/03/05(金) 13:27:17 ] 何のためにインターネットがあるのかね。ぐぐれば出てくる 398 名前：デフォルトの名無しさん mailto:sage [2010/03/05(金) 15:41:14 ] >>393 399 名前：デフォルトの名無しさん mailto:sage [2010/03/05(金) 20:30:17 ] ggrksの意味がわからないのでググってみましたが グーグル先生にググれカスと怒られてしまいました 400 名前：デフォルトの名無しさん mailto:sage [2010/03/08(月) 16:23:13 ] >>399 おい！そのままほっとくとスタックあふれるぞｗ 401 名前：デフォルトの名無しさん mailto:sage [2010/03/08(月) 16:36:44 ] VBは末尾再帰をループ化してくれないのか 402 名前：デフォルトの名無しさん [2010/03/09(火) 03:50:24 ] くそう implements用の空クラス、イベントだめなんだな。共通イベントとか出来ないとか くそがああああああああああああああ 403 名前：デフォルトの名無しさん mailto:sage [2010/03/09(火) 09:33:07 ] FormやUserControlでImplementsもできないし全体的に中途半端 別に管理用Classを作るしかない 404 名前：デフォルトの名無しさん mailto:sage [2010/03/09(火) 19:41:06 ] VBってインターフェイスはイベント定義できなかったのか。 まあ、だとしてもVBの組み込みのイベント機能を使わずに、 Javaなんかのようにリスナを集約するようにすればいいんだよ。 405 名前：デフォルトの名無しさん mailto:sage [2010/03/09(火) 22:18:00 ] 一つのイベントを複数のクラスが受け取るためには イベントを受け取りたいクラス全部にリスナ的なものを作って そのイベント発生させるクラスに全部渡すと 406 名前：デフォルトの名無しさん mailto:sage [2010/03/09(火) 22:19:17 ] with eventじゃだめなのか 407 名前：デフォルトの名無しさん mailto:sage [2010/03/09(火) 22:23:03 ] イベントだけを羅列させたクラスを使いまわせばおｋ 408 名前：デフォルトの名無しさん mailto:sage [2010/03/09(火) 22:26:11 ] >>405 ＞一つのイベントを複数のクラスが受け取るためには そんなことはVBに組み込みのイベントで普通にできるでしょ。 何をいってんの。 409 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 00:08:07 ] >>408 具体的ソースで>>402の悩みを解決してあげて 410 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 00:31:58 ] >>409 ClassA.cls Public Event MyEvent() ---------------------- ClassB.cls Implements ClassA Public sub Hoge() RaiseEvent MyEvent End Sub ---------------------- ClassC.cls Public WithEvents classA1 As ClassA Private Sub classA1_MyEvent() Debug.Print "Hoge" End Sub ---------------------- Form1.frm Private Sub Form_Load() Dim classB1 As New ClassB Dim classC1 As New ClassC Set classC1.classA1 = classB1 Call classB1.Hoge End Sub 411 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 00:33:49 ] ClassCの必要性が全くない 412 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 00:36:15 ] >>411 ClassA.cls Public Event MyEvent() ---------------------- ClassB.cls Implements ClassA Public sub Hoge() RaiseEvent MyEvent End Sub ---------------------- Form1.frm Public WithEvents classA1 As ClassA Private Sub classA1_MyEvent() Debug.Print "Hoge" End Sub Private Sub Form_Load() Dim classB1 As New ClassB Set classA1 = classB1 Call classB1.Hoge End Sub 413 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 00:37:10 ] classA1をPublicにするのはどうかと思う 414 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 00:45:14 ] >>413 ClassA.cls Public Event MyEvent() Public Sub RaiseMyEvent() RaiseEvent MyEvent End Sub -------------------------- ClassB.cls Public classA1 As New ClassA Public Sub Hoge() Call classA1.RaiseMyEvent End Sub ------------------------- Form1.frm Private WithEvents classA1 Private Sub classA1_MyEvent() Debug.Print "Hoge" End Sub Private Sub Form_Load() Dim classB1 As New ClassB Set classA1 = classB1.classA1 Call classB1.Hoge End Sub 415 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 00:50:23 ] Implementsはどうした 416 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 01:01:09 ] 組み込みのイベントを使えよ・・・無意味なコードで荒らすな 417 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 01:09:57 ] 何がしたいのかサッパリわからんコードだなw しかし、結局VBって>>412みたいにインターフェイスにイベント定義書けるんだっけ？ だったら>>402は何も悩む必要ないな最初から。 418 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 01:32:57 ] >>415-417 ClassA.cls Public Property Set classC1(c As ClassC1) End Property ---------------- ClassB.cls Implements ClassA Dim classC1 As ClassC Public Sub Hoge() Call classC1.RaiseMyEvent End Sub Private Property Set ClassA_classC1(c As ClassC1) Set classC1 = c End Property ---------------- ClassC.cls Public Event MyEvent Public Sub RaiseMyEvent() RaiseEvent MyEvent End Sub ---------------- Form1.frm Private WithEvents classC1 as ClassC Private Sub classC1_MyEvent() Debug.Print "Hoge" End Sub Private Sub Form_Load() Dim classA1 As ClassA, classB1 As New ClassB Set classA1 = classB1: Set classC1 = New ClassC: Set classA1.classC1 = classC1 Call classB1.Hoge End Sub 419 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 01:40:23 ] （ ´,_ゝ｀）ﾌﾟｯ 420 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 01:47:14 ] ┐(ﾟ〜ﾟ)┌ 421 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 12:02:09 ] ・・・ 422 名前：デフォルトの名無しさん [2010/03/10(水) 13:52:16 ] >>419-421 ClassA.cls Public Property Set classC1(c As ClassC) End Property --------------- ClassB.cls Implements ClassA Dim classC1 As ClassC Public Sub Hoge() Call classC1.RaiseMyEvent End Sub Private Property Set ClassA_classC1(c As ClassC) Set classC1 = c End Property --------------- ClassC.cls Public Event QueryMyEvent() Public Sub RaiseMyEvent() RaiseEvent QueryMyEvent End Sub --------------- 423 名前：デフォルトの名無しさん [2010/03/10(水) 13:53:45 ] ClassD.cls Public Event MyEvent() Private WithEvents classC1 As ClassC Dim mclassA1 As ClassA Public Property Set classA1(a As ClassA) If Not (mclassA Is Nothing) Then Set mclassA.classC1 = Nothing: Set mclassA = Nothing Set mclassA = a Set mclassA.classC1 = classC1 End Property Private Sub classC1_QueryMyEvent() RaiseEvent MyEvent End Sub Private Sub Class_Initialize() Set classC1 = New ClassC End SUb --------------- Form1.frm Private WithEvents classD1 As ClassD Private Sub classD1_MyEvent() Debug.Print "Hoge" End Sub Private Sub Form_Load() Set classD1 = New ClassD Dim classB1 As New ClassB Set classD1.classA1 = classB1 Call classB1.Hoge End Sub 424 名前：デフォルトの名無しさん [2010/03/10(水) 14:07:27 ] ClassB.cls Implements ClassA Dim classC1 As ClassC Public Sub Hoge() If Not (classC1 Is Nothing) Then Call classC1.RaiseMyEvent End If End Sub Private Property Set ClassA_classC1(c As ClassC) Set classC1 = c End Property 425 名前：デフォルトの名無しさん [2010/03/10(水) 14:13:22 ] ClassE.cls Implements ClassA Dim classC1 As ClassC Public Sub Hoge2() If Not (classC1 Is Nothing) Then Call classC1.RaiseMyEvent End If End Sub Private Property Set ClassA_classC1(c As ClassC) Set classC1 = c End Property --------------- Form1.frm Private WithEvents classD1 As ClassD Private Sub classD1_MyEvent() Debug.Print "Hoge" End Sub Private Sub Form_Load() Set classD1 = New ClassD Dim classB1 As New ClassB Set classD1.classA1 = classB1 Debug.Print "Test1": Call classB1.Hoge Dim classE1 As New ClassE Set classD1.classA1 = classE1 Debug.Print "Test2": Call classB1.Hoge Debug.Print "Test3": Call classE1.Hoge2 End Sub 426 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 15:20:19 ] 荒すな 427 名前：デフォルトの名無しさん mailto:sage [2010/03/10(水) 15:26:44 ] >>402がVBの仕様も調べずに設計したのが悪い 428 名前：デフォルトの名無しさん [2010/03/10(水) 16:07:39 ] ClassD.cls Public Event MyEvent() Private WithEvents classC1 As ClassC Dim mclassA1 As ClassA Public Property Set classA1(a As ClassA) If Not (mclassA1 Is Nothing) Then Set mclassA1.classC1 = Nothing: Set mclassA1 = Nothing Set mclassA1 = a If Not (mclassA1 Is Nothing) Then Set mclassA1.classC1 = classC1 End Property Private Sub classC1_QueryMyEvent() RaiseEvent MyEvent End Sub Private Sub Class_Initialize() Set classC1 = New ClassC End Sub 429 名前：デフォルトの名無しさん [2010/03/11(木) 00:14:19 ] ひどいな・・・ 430 名前：デフォルトの名無しさん mailto:sage [2010/03/11(木) 01:21:17 ] ひどすぎる 431 名前：デフォルトの名無しさん mailto:sage [2010/03/11(木) 01:47:40 ] どうしてこうなった・・・

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef