Dim instance As Std = New Std() instance.ExitAddIn()
'Stdクラス ExitAddInプロパティ Imports System.Windows.Forms Public Class AddIn Private std As Std Private stdf As StdFunc Public Sub New() std = New Std() stdf = New StdFunc() End Sub Public Sub AddIn_Start() MessageBox.Show((3).ToString()) stdf.WaitMilliSec(1000) MessageBox.Show((2).ToString()) stdf.WaitMilliSec(1000) MessageBox.Show((1).ToString()) stdf.WaitMilliSec(1000) std.ExitAddIn() End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ