svnno****@sourc*****
svnno****@sourc*****
2011年 5月 13日 (金) 22:10:50 JST
Revision: 1530
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1530
Author: f_swallow
Date: 2011-05-13 22:10:50 +0900 (Fri, 13 May 2011)
Log Message:
-----------
ElseIfで判定してたのをOrElseに直し
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-05-13 12:34:59 UTC (rev 1529)
+++ trunk/Tween/Tween.vb 2011-05-13 13:10:50 UTC (rev 1530)
@@ -10290,15 +10290,10 @@
Private Sub OpenUserAppointUrl()
If SettingDialog.UserAppointUrl IsNot Nothing Then
- If SettingDialog.UserAppointUrl.Contains("{ID}") Then
+ If SettingDialog.UserAppointUrl.Contains("{ID}") OrElse SettingDialog.UserAppointUrl.Contains("{STATUS}") Then
If _curPost IsNot Nothing Then
Dim xUrl As String = SettingDialog.UserAppointUrl
xUrl = xUrl.Replace("{ID}", _curPost.ScreenName)
- OpenUriAsync(xUrl)
- End If
- ElseIf SettingDialog.UserAppointUrl.Contains("{STATUS}") Then
- If _curPost IsNot Nothing Then
- Dim xUrl As String = SettingDialog.UserAppointUrl
xUrl = xUrl.Replace("{STATUS}", _curPost.StatusId.ToString)
OpenUriAsync(xUrl)
End If