WitsEvents 教えてくださいな！

saitou -B 2004-01-16 00:19:07 No: 81474

始めて投稿しますよろしく！

フォームモジュールに以下の様に書きますと
Option Explicit
Private p_evt WitsEvents As Class1

コードエディターウィンドウの左側のドロップダウンボックスに変数名が
直ちに表示される・・・（と説明書に）

と書いてありますが

出ないんだなーこれが設定悪いのかな？？？
ＶＢ５Ｗin95 です

魔界の仮面弁士 2004-01-16 00:38:36 No: 81475

「WitsEvents」ではありません。「WithEvents」です。
また、キーワードの並び順も間違っています。

フォームモジュールの先頭に、
Option Explicit
Private WithEvents evt As Class1
と書いてみてください。これで使えると思います。

ただし、『左側のドロップダウンボックス』に表示されるには、
プロジェクト中に Class1 というクラスがあり、かつ、そこに
「Event ステートメント」が記述されている必要があります。

saitou -B 2004-01-16 00:58:27 No: 81476

ありがとうございました
私の勘違いです

ＶＢからエクセルを立ち上げ
これに  メニューを追加します（通信です）
で  このときに  メニュー  クリックのイベントは
どうやって  検出するんでしょうか？？
Private WithEvents evt As Excei
なんてことやっても  ぜんぜん  ダメなのね？？？

すいませんね素人で！！

お節介 2004-01-16 01:16:10 No: 81477

マルチポストは嫌われますよ

http://www.bcap.co.jp/hanafusa/

saitou -B 2004-01-16 01:39:35 No: 81478

Option Explicit
Dim xlApp As Object
Dim MnuBar As Object
Dim Ctrl As Object
Dim MnuItem As Object
Sub main()
Set xlApp = CreateObject("Excel.Application") 'エクセル立ち上げ
   xlApp.Workbooks.Add
   xlApp.Visible = True
   xlApp.Caption = "通信システム"
     Set MnuBar = xlApp.CommandBars("Worksheet Menu Bar") 'メニューの新規追加

    With MnuBar
        .Reset 'まず  リセット

     Set Ctrl = .Controls.Add(10)
       With Ctrl
        .Caption = "通信" 'メニュー名

        Set MnuItem = .Controls.Add(1)
             With MnuItem
               .Caption = "読出" 'ボタン名
               .OnAction = "yomidasi"
             End With

        Set MnuItem = .Controls.Add(1)
             With MnuItem
               .Caption = "書込" 'ボタン名
               .OnAction = "kakikomi"
             End With

      End With
    End With
End Sub

すいませんねマルチポストで！

でできたコードがこれ（素人プログラムです）
エクセルを立ち上げ
メニュー”通信”を追加
メニューのボタンが読出しと書込み

でこのメニューをクリックすると
”マクロがありません”
が表示されてしまう（VBAのマクロをさがしに行ってしまう）
この追加メニューのイベントはどうやって検出します？？

saitou -B 2004-01-17 00:44:22 No: 81479

たすけて  ちょうだい
Set xlApp = CreateObject("Excel.Application")
で参照した  エクセルの  イベントは
どうやって  検出するの？？

ユキだ 2004-01-18 00:17:05 No: 81480

マルチポストをしたりしているから
他方でもフォローが無くなったでしょ。
「ど素人なもんで」って書けば許される訳では無いよ。
質問する時には言葉もそれなりに注意して書かなければ。

これでお別れ．．．．