svnno****@sourc*****
svnno****@sourc*****
2011年 1月 19日 (水) 12:09:55 JST
Revision: 1373
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1373
Author: syo68k
Date: 2011-01-19 12:09:55 +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 03:08:26 UTC (rev 1372)
+++ trunk/Tween/Tween.vb 2011-01-19 03:09:55 UTC (rev 1373)
@@ -9891,20 +9891,20 @@
NotifyIcon1.BalloonTipText = " "
End If
NotifyIcon1.ShowBalloonTip(500)
- End If
- 'サウンド再生
- Dim snd As String = SettingDialog.EventSoundFile
- If Not _initial AndAlso SettingDialog.PlaySound AndAlso snd <> "" Then
- Try
- Dim dir As String = My.Application.Info.DirectoryPath
- If Directory.Exists(Path.Combine(dir, "Sounds")) Then
- dir = Path.Combine(dir, "Sounds")
- End If
- My.Computer.Audio.Play(Path.Combine(dir, snd), AudioPlayMode.Background)
- Catch ex As Exception
+ 'サウンド再生
+ Dim snd As String = SettingDialog.EventSoundFile
+ If Not _initial AndAlso SettingDialog.PlaySound AndAlso snd <> "" Then
+ Try
+ Dim dir As String = My.Application.Info.DirectoryPath
+ If Directory.Exists(Path.Combine(dir, "Sounds")) Then
+ dir = Path.Combine(dir, "Sounds")
+ End If
+ My.Computer.Audio.Play(Path.Combine(dir, snd), AudioPlayMode.Background)
+ Catch ex As Exception
- End Try
+ End Try
+ End If
End If
End Sub