TextLabelクラス Hideメソッド
ラベルを非表示にします。
使用法
Dim instance As TextLabel
instance.Hide()
使用例
'TextLabelクラス Hideメソッド
Public Class AddIn
Private std As Std
Private stdf As StdFunc
Private tl As TextLabel
Public Sub New()
std = New Std()
stdf = New StdFunc()
tl = New TextLabel(std.Owner)
End Sub
Public Sub AddIn_Start()
tl.Text = "Hello World"
tl.Padding = New System.Windows.Forms.Padding(5, 10, 20, 30) '左 上 右 下
tl.X = 500
tl.Y = 100
tl.Show()
For i As Integer = 0 To 5 Step 1
stdf.WaitMilliSec(500)
tl.BackColor = System.Drawing.Color.Blue
stdf.WaitMilliSec(500)
tl.BackColor = System.Drawing.Color.Red
Next
tl.Hide()
End Sub
End Class
'TextLabelクラス Hideメソッド
Public Class AddIn
Private std As Std
Private stdf As StdFunc
Private tl As TextLabel
Public Sub New()
std = New Std()
stdf = New StdFunc()
tl = New TextLabel(std.Owner)
End Sub
Public Sub AddIn_Start()
tl = New TextLabel(std.Owner)
tl.Text = "Hello World"
tl.Padding = New System.Windows.Forms.Padding(5, 10, 20, 30) '左 上 右 下
tl.X = 500
tl.Y = 100
tl.Show()
For i As Integer = 0 To 5 Step 1
stdf.WaitMilliSec(500)
If std.StopFlag Then Exit For
tl.BackColor = System.Drawing.Color.Blue
stdf.WaitMilliSec(500)
If std.StopFlag Then Exit For
tl.BackColor = System.Drawing.Color.Red
Next
If std.StopFlag Then Exit Sub
tl.Hide()
End Sub
Public Sub AddIn_Stop()
'この時点でStd.StopFlagはTrueにセットされています。
'Disposeを行なった後にインスタンスにアクセスしない様
'Std.StopFlagを見て適切に処理を抜ける必要があります
tl.Dispose()
End Sub
End Class