別フォームから１つの関数をcallするには (ID:115287)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

もし『継承』について勉強されるなら、Form クラスでなく、自分で
作った単純なクラスで理解を深めてから Form クラスに応用するのが
良いでしょう。サンプルを載せておきます。スタートアップの設定は
Form1 では無く、Sub Main にして実行して下さい。以下のコードを
適当なファイル(Test.vb とか…１つの vb ファイルでよい)にコピー
して実行して下さい。
[VB.NET]
Option Explicit On

' 基本クラス
Class Person
    ' このクラスの外部から参照できるフィールド
    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 クラスを Person から継承します。
Class Employee
    Inherits Person ' 『継承』のキーワード
    ' 新しいパブリックフィールド
    Public SideBusinessSalary As Single

' 新しいメソッド
    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

←解決時は質問者本人がここをチェックしてください。

戻る