ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

sho 2005/08/26(ｿｽｿｽ) 17:52:54

ACTIVEX.EXEｿｽﾅのプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾆ標ｿｽｿｽEXEｿｽﾌプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽ成ｿｽｿｽｿｽA
ｿｽWｿｽｿｽEXEｿｽﾍ「ｿｽQｿｽﾆ設抵ｿｽvｿｽﾅ作成ｿｽｿｽｿｽｿｽACTIVEX.EXEｿｽｿｽﾝ定しｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽWｿｽｿｽEXEｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽｿｽｿｽAACTIVEXｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾊを得るこｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAACTIVEXｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾉゑｿｽRaiseEventｿｽﾅイｿｽxｿｽｿｽｿｽgｿｽ発撰ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽWｿｽｿｽEXEｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽﾉてイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽFｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽAｿｽｿｽRaiseEventｿｽﾍ確ｿｽｿｽｿｽﾉ呼ばゑｿｽﾄゑｿｽｿｽｿｽAVBｿｽGｿｽfｿｽBｿｽ^ｿｽ纒費ｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾉは撰ｿｽｿｽｿｽｿｽｿｽRaiseEventｿｽﾅ呼び出ｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽoｿｽ^ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

030 2005/08/27(ｿｽy) 00:25:54

ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾛゑｿｽﾄ鯉ｿｽｿｽﾅゑｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾍ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH

sho 2005/08/29(ｿｽｿｽ) 10:31:35

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

' ｿｽWｿｽｿｽEXEｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾌソｿｽ[ｿｽX
' FormｿｽｿｽｿｽPｿｽﾂ托ｿｽｿｽﾝゑｿｽｿｽｿｽ
' ACTIVEX.EXEｿｽﾌプｿｽｿｽｿｽWｿｽFｿｽNｿｽg(Prj)ｿｽｿｽQｿｽﾆ設定しｿｽﾄゑｿｽｿｽｿｽ
Public WithEvents Test As Prj.ClassTest

Private Sub EvTest(Msg As String)
    Text1.Text = Msg
End Sub

Private Sub Form_Load()
    Set Test = New Prj.ClassTest
End Sub


' ACTIVEX.EXEｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾌ記ｿｽq
' ｿｽPｿｽﾂゑｿｽFormｿｽﾆ１ｿｽﾂゑｿｽClassｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ(ClassｿｽｿｽｿｽFClassTest)

'ClassTestｿｽﾌ記ｿｽq
Public Event EvTest(Msg As String)

Private Sub Class_Initialize()
    Load Form1
End Sub

Public Sub EvTestON()
    RaiseEvent EvTest("ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽI")
End Sub

'Form1ｿｽﾌ記ｿｽq
Public WithEvents Test As ClassTest          'ｿｽﾊ信ｿｽNｿｽｿｽｿｽXｿｽｿｽ`

Private Sub Form_Load()
    Set Test = New ClassTest
End Sub

Private Sub Button1_Click()
    Test.EvTestON
End Sub

ｿｽﾉて再鯉ｿｽｿｽﾅゑｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

id_rsa+ 2005/08/29(ｿｽｿｽ) 11:10:26

ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽB
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("ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽI")
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

id_rsa+ 2005/08/29(ｿｽｿｽ) 11:19:24

ｿｽｿｽｿｽﾈみに、ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽﾍ、
ACTIVEX.EXEｿｽﾌ難ｿｽﾅクｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽB
Set Test = New ClassTestｿｽｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽQｿｽﾂでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽﾋ。

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/08/29(ｿｽｿｽ) 11:46:13

ｿｽ皷橸ｿｽAVB6ｿｽﾆゑｿｽｿｽｿｽｿｽOｿｽｿｽﾅ回答ゑｿｽｿｽﾜゑｿｽｿｽﾋ。


-----------------
(1) ｿｽWｿｽｿｽEXEｿｽｿｽｿｽﾌ厄ｿｽｿｽ_ｿｽB

> Public WithEvents Test As Prj.ClassTest
> Private Sub EvTest(Msg As String)
ｿｽﾅはなゑｿｽｿｽA
ｿｽ@Public WithEvents Test As Prj.ClassTest
ｿｽ@Private Sub Test_EvTest(Msg As String)
ｿｽﾅゑｿｽｿｽｿｽｿｽ?

ｿｽｿｽｿｽｿｽﾌようｿｽｿｽWithEventsｿｽ骭ｾｿｽｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽRｿｽ[ｿｽhｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌ搾ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽ
ｿｽhｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽXｿｽg(ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽg ｿｽ{ｿｽbｿｽNｿｽX)ｿｽﾉ、ｿｽwTestｿｽxｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾚゑｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾈので、ｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽAｿｽRｿｽ[ｿｽhｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌ右ｿｽｿｽﾉゑｿｽｿｽｿｽ
ｿｽhｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽXｿｽg(ｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽ ｿｽ{ｿｽbｿｽNｿｽX)ｿｽｿｽｿｽｿｽAｿｽwEvTestｿｽxｿｽｿｽ
ｿｽIｿｽｿｽｿｽｿｽ驍ｱｿｽﾆで、ｿｽuSub Test_EvTestｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB


-----------------
(2) ActiveX EXEｿｽｿｽｿｽﾌ厄ｿｽｿｽ_ｿｽB

> Private Sub Class_Initialize()
>     Load Form1
> End Sub
Form1 ｿｽｿｽ LoadｿｽｿｽｿｽﾄはゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAShowｿｽｿｽｿｽﾄゑｿｽｿｽ髟費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌままでは、ActiveX EXEｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB


> Private Sub Button1_Click()
ｿｽｿｽcｿｽcｿｽBVB6ｿｽWｿｽｿｽｿｽｿｽ
ｿｽ@Command1_Click
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾅはなゑｿｽｿｽAVB.NETｿｽﾌようｿｽｿｽ
ｿｽ@Button1_Click
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾉゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ?

ｿｽﾅ、ｿｽｿｽｿｽｿｽﾍボｿｽ^ｿｽｿｽｿｽｿｽClickｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾆ擾ｿｽｿｽXｿｽA
Form1ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾜゑｿｽｿｽｿｽｿｽﾋ。ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎ、
ｿｽｿｽｿｽﾂまでゑｿｽ EvTestONｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽB


> 'Form1ｿｽﾌ記ｿｽq
> Public WithEvents Test As ClassTest          'ｿｽﾊ信ｿｽNｿｽｿｽｿｽXｿｽｿｽ`
> Private Sub Form_Load()
>     Set Test = New ClassTest
> End Sub
ｿｽｿｽLｿｽﾅ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽwSet Test = New ClassTestｿｽx
ｿｽﾆ、ｿｽWｿｽｿｽEXEｿｽｿｽｿｽﾅ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽwSet Test = New Prj.ClassTestｿｽx
ｿｽﾆゑｿｽｿｽAｿｽﾊのイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽ骼厄ｿｽﾍ暦ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?


ｿｽﾜゑｿｽｿｽAｿｽNｿｽｿｽｿｽXｿｽﾌ設計ｿｽ整暦ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽ蛯､ｿｽB

ｿｽｿｽｿｽｿｽﾌ場合ｿｽAｿｽﾊ信ｿｽNｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽｿｽｿｽLｿｽｿｽｿｽﾋばなゑｿｽﾈゑｿｽｿｽﾌで、
ｿｽ@ｿｽｿｽ1. ｿｽWｿｽｿｽEXEｿｽｿｽｿｽｿｽClassTestｿｽ生撰ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽActiveX EXEｿｽｿｽｿｽﾅゑｿｽgｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽ2. ActiveX EXEｿｽｿｽｿｽｿｽClassTestｿｽ生撰ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽWｿｽｿｽEXEｿｽｿｽｿｽﾅゑｿｽgｿｽｿｽｿｽB
ｿｽﾌゑｿｽｿｽｿｽｿｽ黷ｩｿｽﾌ設計ｿｽﾉゑｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾌ場合ｿｽｿｽActiveXｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄは…ｿｽcｿｽB

ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ前ｿｽﾒの場合ｿｽﾍ、ｿｽOｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽForm1ｿｽｿｽｿｽgｿｽｿｽｿｽｿｽ謔､ｿｽA
ClassTestｿｽｿｽけ渡ｿｽｿｽｿｽﾗのｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽpｿｽﾓゑｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽﾒの場合ｿｽﾍ、ClassTestｿｽｿｽｿｽOｿｽｿｽｿｽﾅ鯉ｿｽｿｽｿｽﾄ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽAｿｽNｿｽｿｽｿｽXｿｽｿｽ
InstancingｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽAｿｽ成ｿｽsｿｽﾂにゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽｿｽｿｽﾌ擾ｿｽﾅ、
ｿｽNｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽｿｽWｿｽｿｽEXEｿｽﾉ返ゑｿｽｿｽｿｽｿｽﾟのｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽpｿｽﾓゑｿｽｿｽﾜゑｿｽｿｽB



ActiveX EXEｿｽｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾊ知ｿｽﾉつゑｿｽｿｽﾄ、ｿｽｿｽﾌ的ｿｽﾈ例がｿｽ‾ｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉは、
VB6ｿｽwｿｽｿｽｿｽvｿｽﾌ会ｿｽｿｽLｿｽｿｽｿｽﾚゑｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

[Visual Studio 6.0 ｿｽhｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽg]
ｿｽｿｽ[Visual Basic ｿｽhｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽg]
ｿｽ@ｿｽｿｽ[Visual Basic ｿｽﾌ使ｿｽpｿｽｿｽｿｽ@]
ｿｽ@ｿｽ@ｿｽｿｽ[ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽg ｿｽcｿｽ[ｿｽｿｽ ｿｽKｿｽCｿｽh]
ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽ[ActiveX ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ作成ｿｽｿｽｿｽ@]
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽｿｽ[ActiveX EXE ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ作成ｿｽｿｽｿｽ@]

sho 2005/08/29(ｿｽｿｽ) 11:58:44

ｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽｿｽｿｽﾊゑｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾆ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽI
ｿｽCｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽﾉつゑｿｽｿｽﾄ十ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾗ具ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.