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コード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ