タイトルバー点滅用コード組み込み

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@578 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index bf98700..7711144 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -5972,6 +5972,8 @@ RETRY:
 
         Dim tb As TabClass = _statuses.GetTabByType(TabUsageType.Mentions)
         If SettingDialog.ReplyIconState <> REPLY_ICONSTATE.None AndAlso tb IsNot Nothing AndAlso tb.UnreadCount > 0 Then
+            ' TODO: 点滅させるタイミングや回数などを考える
+            'FlashWindow(Me.Handle.ToInt32, 1)
             If blinkCnt > 0 Then Exit Sub
             blink = Not blink
             If blink OrElse SettingDialog.ReplyIconState = REPLY_ICONSTATE.StaticIcon Then

diff --git a/Tween/Win32Api.vb b/Tween/Win32Api.vb
index 0a20c4e..d0e60ea 100644 (file)
--- a/Tween/Win32Api.vb
+++ b/Tween/Win32Api.vb
@@ -455,6 +455,13 @@ Module Win32Api
     End Function
 #End Region
 
+    '画面をブリンクするためのWin32API。起動時に10ページ読み取りごとに継続確認メッセージを表示する際の通知強調用
+    <DllImport("user32.dll")> _
+    Public Function FlashWindow( _
+        ByVal hwnd As Integer, _
+        ByVal bInvert As Integer) As Integer
+    End Function
+
     <DllImport("user32.dll")> _
     Public Function ValidateRect( _
         ByVal hwnd As IntPtr, _