Dim instance As Std = New Std() Dim returnValue As Boolean returnValue = instance.StopFlag
'Stdクラス プロパティ StopFlag
Imports System.Windows.Forms
Public Class AddIn
Private std As Std
Public Sub New()
std = New Std()
End Sub
Public Sub AddIn_Start()
Dim num As Integer = 0
Do While True
If std.StopFlag Then Exit Do
MessageBox.Show(num.ToString())
System.Threading.Thread.Sleep(2000)
Application.DoEvents
num += 1
Loop
MessageBox.Show("停止しました")
End Sub
End Class
'Stdクラス プロパティ StopFlag
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()
Dim num As Integer = 0
Do While True
If std.StopFlag Then Exit Do
MessageBox.Show(num.ToString())
stdf.WaitMilliSec(1000)
num += 1
Loop
MessageBox.Show("停止しました")
End Sub
End Class
このページのQRコード
便利ウェブサイト
便利 Steam アプリ
便利 Android アプリ