svnno****@sourc*****
svnno****@sourc*****
2011年 1月 19日 (水) 16:30:40 JST
Revision: 1376
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1376
Author: syo68k
Date: 2011-01-19 16:30:40 +0900 (Wed, 19 Jan 2011)
Log Message:
-----------
イベントサウンド再生時の条件見直し
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-19 04:55:07 UTC (rev 1375)
+++ trunk/Tween/Tween.vb 2011-01-19 07:30:40 UTC (rev 1376)
@@ -9891,10 +9891,12 @@
NotifyIcon1.BalloonTipText = " "
End If
NotifyIcon1.ShowBalloonTip(500)
+ End If
- 'サウンド再生
- Dim snd As String = SettingDialog.EventSoundFile
- If Not _initial AndAlso SettingDialog.PlaySound AndAlso snd <> "" Then
+ 'サウンド再生
+ Dim snd As String = SettingDialog.EventSoundFile
+ If Not _initial AndAlso SettingDialog.PlaySound AndAlso snd <> "" Then
+ If CBool(ev.Eventtype And SettingDialog.EventNotifyFlag) Then
Try
Dim dir As String = My.Application.Info.DirectoryPath
If Directory.Exists(Path.Combine(dir, "Sounds")) Then