実装をちょい変更。 実は、社員番号そのものが、結構な制約条件がついたりするけど。 Option Explicit On Option Strict On Public Class 社員 Private _社員番号 As String Public Sub New() _社員番号 = 社員番号生成() End Sub Public Sub New(ByVal 社員…

Sharedの動作、確認。 Public Class Class1 Public Sub New() MsgBox("Class1がNewされました") End Sub Public Shared Sub SharedSample() MsgBox("SharedSampleが呼び出されました") End Sub End Class Public Class Form1 Private Sub Button1_Click(ByVa…