Dim instance As StdFunc = New StdFunc() Dim value As Integer instance.WaitSec(value)
'StdFuncクラス WaitSecメソッド 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秒停止します") stdf.WaitSec(3) If std.StopFlag Then MessageBox.Show("中断しました") Else MessageBox.Show("3秒経過しました") End If End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ