From 2fcc7070c4bd0977a32639cc8f23379ff1e38180 Mon Sep 17 00:00:00 2001
From: syo68k <syo68k@users.sourceforge.jp>
Date: Wed, 14 Jul 2010 06:17:02 +0000
Subject: [PATCH] =?utf8?q?=E3=82=BF=E3=82=A4=E3=83=88=E3=83=AB=E3=83=90?=
 =?utf8?q?=E3=83=BC=E7=82=B9=E6=BB=85=E7=94=A8=E3=82=B3=E3=83=BC=E3=83=89?=
 =?utf8?q?=E7=B5=84=E3=81=BF=E8=BE=BC=E3=81=BF?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@578 e39ad16e-3079-482e-bb30-4b4d378143b6
---
 Tween/Tween.vb    | 2 ++
 Tween/Win32Api.vb | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index bf987005..77111447 100644
--- 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 0a20c4ea..d0e60eab 100644
--- 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, _
-- 
2.11.0