・画像投稿モードで設定したファイルをロックしたままになるバグを修正

・Post時のListViewへフォーカスを移すコードで例外が発生するのでいったん無効にした(要対策)

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

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index eecb791..d9936f9 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -4,6 +4,7 @@
  * 画像投稿のキャンセル時にフォーカスをリスト部へ戻すようにした
  * 画像投稿モードをESCキーでキャンセルした際にビープ音が鳴らないようにした
  * 読み上げソフトで、タイムラインの選択tweetを変更すると、画像投稿画面の「投稿先」ラベルを毎回読み上げてしまうので、未使用時は投稿画面のパーツを無効に
+ * 画像投稿モードで設定したファイルをロックしたままになるバグを修正
 ==== Ver 0.9.4.0(2010/07/15)
  * 認証完了後、自分の発言が片思い表示になるバグ修正
  * ユーザー変更時にフォロワー情報を取得するよう変更

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 7fffefc..04bb1fb 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1891,7 +1891,8 @@ Public Class TweenMain
                 TimelinePanel.Enabled = True
                 ImageSelectionPanel.Visible = False
                 ImageSelectionPanel.Enabled = False
-                DirectCast(ListTab.Tag, DetailsListView).Focus()
+                ' TODO: NullRef起きるので要対策
+                'DirectCast(ListTab.Tag, DetailsListView).Focus()
             Else
                 MessageBox.Show(My.Resources.PostPictureWarn1, My.Resources.PostPictureWarn2)
                 Exit Sub
@@ -9319,6 +9320,7 @@ RETRY:
             ImageSelectionPanel.Enabled = False
             DirectCast(ListTab.SelectedTab.Tag, DetailsListView).Focus()
         Else
+            ImageSelectedPicture.Image = ImageSelectedPicture.InitialImage
             ImageSelectionPanel.Visible = True
             ImageSelectionPanel.Enabled = True
             TimelinePanel.Visible = False
@@ -9360,15 +9362,12 @@ RETRY:
             Exit Sub
         End If
         Try
-            ImageSelectedPicture.Image = _
-                Image.FromStream( _
-                    New FileStream(ImagefilePathText.Text, _
-                                   FileMode.Open, _
-                                   FileAccess.Read) _
-                               )
+            Dim fs As New FileStream(ImagefilePathText.Text, FileMode.Open, FileAccess.Read)
+            ImageSelectedPicture.Image = Image.FromStream(fs)
+            fs.Close()
         Catch ex As Exception
-            MessageBox.Show("The type of this file is not image.")
             ImageSelectedPicture.Image = ImageSelectedPicture.InitialImage
+            MessageBox.Show("The type of this file is not image.")
             Exit Sub
         End Try
     End Sub
@@ -9378,6 +9377,7 @@ RETRY:
         FilePickButton.KeyDown, _
         ImageServiceCombo.KeyDown
         If e.KeyCode = Keys.Escape Then
+            ImageSelectedPicture.Image = ImageSelectedPicture.InitialImage
             TimelinePanel.Visible = True
             TimelinePanel.Enabled = True
             ImageSelectionPanel.Visible = False
@@ -9415,6 +9415,7 @@ RETRY:
     End Sub
 
     Private Sub ImageCancelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageCancelButton.Click
+        ImageSelectedPicture.Image = ImageSelectedPicture.InitialImage
         TimelinePanel.Visible = True
         TimelinePanel.Enabled = True
         ImageSelectionPanel.Visible = False