svnno****@sourc*****
svnno****@sourc*****
2010年 10月 30日 (土) 10:58:04 JST
Revision: 1008
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1008
Author: syo68k
Date: 2010-10-30 10:58:04 +0900 (Sat, 30 Oct 2010)
Log Message:
-----------
終了時にクラッシュすることがあるのを修正。ただしこの修正は多分不完全
Modified Paths:
--------------
trunk/Tween/ToolStripAPIGauge.vb
-------------- next part --------------
Modified: trunk/Tween/ToolStripAPIGauge.vb
===================================================================
--- trunk/Tween/ToolStripAPIGauge.vb 2010-10-29 14:33:40 UTC (rev 1007)
+++ trunk/Tween/ToolStripAPIGauge.vb 2010-10-30 01:58:04 UTC (rev 1008)
@@ -19,7 +19,7 @@
Public Property GaugeHeight As Integer
Set(ByVal value As Integer)
Me._gaugeHeight = value
- Me.Control.Refresh()
+ If Not Me.Control.IsDisposed Then Me.Control.Refresh()
End Set
Get
Return _gaugeHeight
@@ -30,8 +30,10 @@
Public Property MaxCount As Integer
Set(ByVal value As Integer)
Me._maxCount = value
- Me.SetText(Me._remainCount, Me._maxCount)
- Me.Control.Refresh()
+ If Not Me.Control.IsDisposed Then
+ Me.SetText(Me._remainCount, Me._maxCount)
+ Me.Control.Refresh()
+ End If
End Set
Get
Return Me._maxCount
@@ -42,8 +44,10 @@
Public Property RemainCount As Integer
Set(ByVal value As Integer)
Me._remainCount = value
- Me.SetText(Me._remainCount, Me._maxCount)
- Me.Control.Refresh()
+ If Not Me.Control.IsDisposed Then
+ Me.SetText(Me._remainCount, Me._maxCount)
+ Me.Control.Refresh()
+ End If
End Set
Get
Return Me._remainCount
@@ -54,12 +58,14 @@
Public Property ResetTime As DateTime
Set(ByVal value As DateTime)
Me._resetTime = value
- If Me._resetTime >= DateTime.Now Then
- Me.ToolTipText = "ResetTime " + Me._resetTime.ToString()
- Else
- Me.ToolTipText = "ResetTime ???"
+ If Not Me.Control.IsDisposed Then
+ If Me._resetTime >= DateTime.Now Then
+ Me.ToolTipText = "ResetTime " + Me._resetTime.ToString()
+ Else
+ Me.ToolTipText = "ResetTime ???"
+ End If
+ Me.Control.Refresh()
End If
- Me.Control.Refresh()
End Set
Get
Return Me._resetTime