掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ACTIVEX.EXEで独自イベントを発生させ、標準EXEでイベント処理するには？ (ID:124531)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じです。。 Private WithEvents Test As Prj.ClassTest Private Sub Form_Load() Set Test = New Prj.ClassTest End Sub Private Sub Test_EvTest(Msg As String) Text1.Text = Msg End Sub Public Event EvTest(Msg As String) Private Sub Class_Initialize() Form1.DoOpen Me End Sub Public Sub EvTestON() RaiseEvent EvTest("イベント発生！") End Sub Private Test As ClassTest Public Sub DoOpen(Cls As ClassTest) Set Test = Cls Me.Show End Sub Private Sub Button1_Click() Test.EvTestON End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.