|
ｿｽ@ｿｽｿｽｿｽﾊフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽPｿｽﾂの関撰ｿｽｿｽｿｽcallｿｽｿｽｿｽｿｽﾉゑｿｽ
|
ｿｽ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
ｿｽﾎゑｿｽｿｽ 2004/08/02(ｿｽｿｽ) 14:56:33
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。ｿｽｿｽｿｽﾟて趣ｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽuｿｽa.ｿｽmｿｽdｿｽsｿｽﾅ開ｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽPｿｽｿｽTEXT1.TEXTｿｽﾉ値ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽAｿｽ}ｿｽXｿｽ^ｿｽQｿｽﾆ関撰ｿｽｿｽｿｽcall
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ{ｿｽ^ｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽATEXT1.TEXTｿｽｿｽnｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽQｿｽｿｽ¥ｿｽｿｽ
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@(ｿｽｿｽｿｽｿｽﾍでゑｿｽｿｽﾜゑｿｽｿｽｿｽ)
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽQｿｽｿｽTEXT1.TEXTｿｽﾉ値ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽAｿｽ}ｿｽXｿｽ^ｿｽQｿｽﾆ関撰ｿｽｿｽｿｽcall
ｿｽｿｽｿｽﾌとゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽﾇのようｿｽﾉ費ｿｽｿｽfｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎよいｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
****ｿｽ@ｿｽ}ｿｽXｿｽ^ｿｽQｿｽﾆ関撰ｿｽｿｽ@****
Public Sub InpSiire(ByRef Frm As *****, ByVal sender As Object, ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ByVal e As System.Windows.Forms.KeyEventArgs)
With Frm
'ｿｽ}ｿｽXｿｽ^ｿｽｿｽｿｽQｿｽｿｽ
strsql = "select * from siire_mst where siirecd= '"ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@& .TextBox1.Text & "'"
ｿｽ@ｿｽ@ｿｽ@***ｿｽ@ｿｽcｿｽaｿｽｿｽQｿｽﾆゑｿｽｿｽlｿｽ謫ｾ
.Label10.Text = CType(cnRd.Item("siireme"), String)
ｿｽ@ End With
****
Frmｿｽ@ｿｽﾉ会ｿｽｿｽｿｽnｿｽｿｽｿｽﾎよいｿｽﾌゑｿｽｿｽiｿｽHｿｽjｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/08/03(ｿｽｿｽ) 18:35:09
ｿｽｿｽｿｽｿｽｿｽﾜで趣ｿｽｿｽｿｽｿｽﾅ考ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ包ｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾌサｿｽCｿｽgｿｽｿｽｿｽ逑撰ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽﾜゑｿｽｿｽﾍゑｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ作成ｿｽﾒに包ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾘゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾅの茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌまま暦ｿｽｿｽpｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ使ｿｽｿｽｿｽﾉは厄ｿｽ閧ｪ
ｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽwｿｽ閧ｷｿｽｿｽﾌゑｿｽ Form ｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆ趣ｿｽｿｽﾌクｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽﾄるかｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽﾅゑｿｽﾜゑｿｽｿｽA
ｿｽﾊ擾ｿｽｿｽ Form ｿｽNｿｽｿｽｿｽXｿｽﾅ呼び出ｿｽｿｽｿｽｿｽｿｽｿｽ Form ｿｽﾖの参ｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ渡ｿｽｿｽｿｽﾄゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。ｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ
Me ｿｽｿｽｿｽﾆ予ｿｽzｿｽﾍ出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽmｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾄび出ｿｽｿｽｿｽｿｽｿｽﾍフｿｽHｿｽ[ｿｽｿｽｿｽﾌ会ｿｽｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽB
ｿｽﾖ係ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
Label10 ｿｽﾍグｿｽｿｽｿｽ[ｿｽoｿｽｿｽｿｽﾉ鯉ｿｽｿｽJｿｽｿｽｿｽｿｽﾄ厄ｿｽｿｽｿｽｿｽﾂ能ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで趣ｿｽｿｽｿｽｿｽﾅグｿｽｿｽｿｽ[ｿｽoｿｽｿｽｿｽﾈプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾈゑｿｽ
ｿｽﾖ撰ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾎゑｿｽｿｽ 2004/08/04(ｿｽｿｽ) 10:15:20
ｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ.ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽSｿｽﾒなゑｿｽﾅ、ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽPｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽQｿｽﾆゑｿｽﾉ、textbox1ｿｽﾌキｿｽ[ｿｽ_ｿｽEｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
ｿｽ}ｿｽXｿｽ^ｿｽQｿｽﾆ関撰ｿｽｿｽｿｽRｿｽ[ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
ｿｽ@ｿｽ@Call InpSiire(Me)
end sub
Public Sub InpSiire(ByRef Frm As ???)
With Frm
'ｿｽ}ｿｽXｿｽ^ｿｽｿｽｿｽQｿｽｿｽ
strsql = "select * from siire_mst where siirecd= '"ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@& .TextBox1.Text & "'"
ｿｽ@ｿｽ@ｿｽ@***ｿｽ@ｿｽcｿｽaｿｽｿｽQｿｽﾆゑｿｽｿｽlｿｽ謫ｾ
.Label10.Text = CType(cnRd.Item("siireme"), String)
ｿｽ@ End With
End Sub
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/08/04(ｿｽｿｽ) 10:45:06
Form ｿｽNｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽtｿｽｿｽｿｽﾌ厄ｿｽｿｽOｿｽｿｽﾔゑｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽHｿｽH
System.Windows.Forms.Form
ｿｽﾅゑｿｽｿｽB
ｿｽﾎゑｿｽｿｽ 2004/08/04(ｿｽｿｽ) 11:12:41
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Public Sub InpSiire(ByRef Frm As System.Windows.Forms.Form)
.Label10.Text =
End Sub
ｿｽﾉゑｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽhSystem.Windows.Forms.FormｿｽﾌｿｽｿｽｿｽｿｽoｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽh
ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/08/04(ｿｽｿｽ) 12:00:47
>ｿｽhSystem.Windows.Forms.FormｿｽﾌｿｽｿｽｿｽｿｽoｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽh
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAInpSiire ｿｽﾖ撰ｿｽｿｽﾌ茨ｿｽｿｽｿｽ Frm ｿｽｿｽｿｽQｿｽﾂの違うｿｽNｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽｿｽ
Form1 ｿｽｿｽ Form2 ｿｽｿｽけ趣ｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽﾌは、Form1 ｿｽｿｽ Form2
ｿｽｿｽ System.Windows.Forms.Form ｿｽNｿｽｿｽｿｽXｿｽｿｽwｿｽpｿｽｿｽｿｽxｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽ
ｿｽﾅゑｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ Form ｿｽNｿｽｿｽｿｽXｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ Name ｿｽvｿｽｿｽｿｽpｿｽeｿｽB
ｿｽﾈどゑｿｽgｿｽpｿｽｿｽｿｽ驍ｱｿｽﾆは可能ｿｽﾅゑｿｽｿｽB
ｿｽｿｽ)
Public Sub InpSiire(ByRef Frm As System.Windows.Forms.Form)
With Frm
Debug.WriteLine("ｿｽｿｽｿｽｿｽｿｽｿｽ " & .Name & " ｿｽﾅゑｿｽｿｽB")
End With
End Sub
ｿｽﾆゑｿｽｿｽがｿｽA.Label10 ｿｽﾍクｿｽｿｽｿｽX Form1(ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ Form2)ｿｽﾅ抵ｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽRｿｽAｿｽｿｽｿｽｿｽｿｽoｿｽﾅは厄ｿｽｿｽｿｽｿｽﾆエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽPｿｽﾂの包ｿｽｿｽ@ｿｽｿｽ System.Windows.Forms.Form
ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ Label10 ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽ[ｿｽXｿｽﾆなゑｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ
Form1 ｿｽｿｽ Form2 ｿｽｿｽｿｽwｿｽpｿｽｿｽｿｽxｿｽｿｽｿｽ驍ｱｿｽﾆでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ辺ゑｿｽﾌ話ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆ全ｿｽﾌの仕ｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ…ｿｽざｿｽざ
ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽHｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽPｿｽﾂ思ｿｽｿｽｿｽﾂゑｿｽｿｽﾌは型ｿｽﾏ奇ｿｽ(ｿｽLｿｽｿｽｿｽXｿｽg)ｿｽｿｽｿｽｿｽ Form1(ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ Form2)
ｿｽNｿｽｿｽｿｽXｿｽﾌ変撰ｿｽｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆでゑｿｽｿｽB
ｿｽｿｽ)
Public Sub InpSiire(ByRef Frm As System.Windows.Forms.Form)
Dim wForm1 As Form1
Dim wForm2 As Form2
Try
wForm1 = CType(Frm, Form1)
Catch
End Try
Try
wForm2 = CType(Frm, Form2)
Catch
End Try
wForm1 = Nothing
wForm2 = Nothing
End Sub
ｿｽcｿｽｿｽｿｽｿｽｿｽcｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ渡ｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾍ費ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽﾌ関撰ｿｽｿｽﾍ難ｿｽｿｽｿｽﾌテｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌテｿｽLｿｽXｿｽgｿｽｿｽLｿｽ[ｿｽﾉゑｿｽｿｽｿｽ
ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽPｿｽﾂゑｿｽｿｽｿｽｿｽﾝ定すｿｽｿｽﾌみの関撰ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽﾌ機ｿｽ¥ｿｽﾈら文ｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾖ撰ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽじゑｿｽ
ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽﾍテｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾆｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ渡ｿｽｿｽｿｽﾆゑｿｽｿｽc
ｿｽﾎゑｿｽｿｽ 2004/08/05(ｿｽｿｽ) 09:56:54
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB
>ｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽﾌ関撰ｿｽｿｽﾍ難ｿｽｿｽｿｽﾌテｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾌテｿｽLｿｽXｿｽgｿｽｿｽLｿｽ[ｿｽﾉゑｿｽｿｽｿｽ
>ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽPｿｽﾂゑｿｽｿｽｿｽｿｽﾝ定すｿｽｿｽﾌみの関撰ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
>ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽﾌ機ｿｽ¥ｿｽﾈら文ｿｽｿｽｿｽｿｽｿｽnｿｽｿｽｿｽﾄ包ｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾖ撰ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽじゑｿｽ
>ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽﾍテｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽﾆｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ渡ｿｽｿｽｿｽﾆゑｿｽｿｽc
ｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅ作成ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾗ具ｿｽｿｽｿｽｿｽﾈのでフｿｽHｿｽ[ｿｽｿｽｿｽnｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎと思ｿｽｿｽｿｽｿｽｿｽ竄ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/08/05(ｿｽｿｽ) 10:44:48
ｿｽｿｽｿｽｿｽwｿｽpｿｽｿｽｿｽxｿｽﾉつゑｿｽｿｽﾄ勉具ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽAForm ｿｽNｿｽｿｽｿｽXｿｽﾅなゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽPｿｽｿｽｿｽﾈクｿｽｿｽｿｽXｿｽﾅ暦ｿｽｿｽｿｽｿｽ[ｿｽﾟてゑｿｽｿｽｿｽ Form ｿｽNｿｽｿｽｿｽXｿｽﾉ会ｿｽｿｽpｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽBｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽXｿｽ^ｿｽ[ｿｽgｿｽAｿｽbｿｽvｿｽﾌ設抵ｿｽｿｽ
Form1 ｿｽﾅは厄ｿｽｿｽｿｽｿｽASub Main ｿｽﾉゑｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽBｿｽﾈ会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽ
ｿｽKｿｽｿｽｿｽﾈフｿｽ@ｿｽCｿｽｿｽ(Test.vb ｿｽﾆゑｿｽｿｽcｿｽPｿｽﾂゑｿｽ vb ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅよい)ｿｽﾉコｿｽsｿｽ[
ｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
[VB.NET]
Option Explicit On
' ｿｽｿｽ{ｿｽNｿｽｿｽｿｽX
Class Person
' ｿｽｿｽｿｽﾌクｿｽｿｽｿｽXｿｽﾌ外ｿｽｿｽｿｽｿｽｿｽｿｽQｿｽﾆでゑｿｽｿｽｿｽtｿｽBｿｽ[ｿｽｿｽｿｽh
Public FirstName As String
Public LastName As String
Public Const Tax As Single = 1.05
Private BaseSalary As Single
Public Property GetSetBaseSalary() As Single
Get
Return BaseSalary * Tax
End Get
Set(ByVal Value As Single)
BaseSalary = Value / Tax
End Set
End Property
Public ReadOnly Property GetNomalSalary() As Single
Get
Return BaseSalary
End Get
End Property
End Class
' Employee ｿｽNｿｽｿｽｿｽXｿｽｿｽ Person ｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Class Employee
Inherits Person ' ｿｽwｿｽpｿｽｿｽｿｽxｿｽﾌキｿｽ[ｿｽｿｽｿｽ[ｿｽh
' ｿｽVｿｽｿｽｿｽｿｽｿｽpｿｽuｿｽｿｽｿｽbｿｽNｿｽtｿｽBｿｽ[ｿｽｿｽｿｽh
Public SideBusinessSalary As Single
' ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽbｿｽh
Public Function Salary() As Single
Return (GetNomalSalary() + SideBusinessSalary) * Tax
End Function
Public Function SayAll() As String
Return FirstName & " " & LastName & " " & CStr(Salary())
End Function
End Class
Module MainRun
Public Sub main()
Dim anEmployee As New Employee
With anEmployee
.FirstName = "Faust"
.LastName = "Laust"
.GetSetBaseSalary = 1000
.SideBusinessSalary = 500
MsgBox(.SayAll())
End With
End Sub
End Module
ｿｽﾎゑｿｽｿｽ 2004/08/13(ｿｽｿｽ) 11:38:02
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
