画像投稿モードでファイル選択ダイアログ表示中でもドラッグ＆ドロップを許可していたのを修正

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

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 417cad5..ea1611b 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -6,7 +6,8 @@
  * 読み上げソフトで、タイムラインの選択tweetを変更すると、画像投稿画面の「投稿先」ラベルを毎回読み上げてしまうので、未使用時は投稿画面のパーツを無効に
  * 画像投稿モードで設定したファイルをロックしたままになるバグを修正
  * 画像投稿モードでファイル名として入力された文字列が無効なパス形式の場合に例外が発生するバグを修正
- * 画像プレビューで http://www.twitpic.com/ で始まるTwitPicのURLに対応した 
+ * 画像プレビューで http://www.twitpic.com/ で始まるTwitPicのURLに対応した
+ * 画像投稿モードでファイル選択ダイアログ表示中でもドラッグ＆ドロップを許可していたのを修正
 ==== Ver 0.9.4.0(2010/07/15)
  * 認証完了後、自分の発言が片思い表示になるバグ修正
  * ユーザー変更時にフォロワー情報を取得するよう変更

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 0aa40b6..9b4ad33 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -7395,12 +7395,6 @@ RETRY:
         Else
             e.Effect = DragDropEffects.None
         End If
-        'Dim data As String = TryCast(e.Data.GetData(DataFormats.StringFormat, True), String)
-        'If data IsNot Nothing Then
-        '    e.Effect = DragDropEffects.Copy
-        'Else
-        '    e.Effect = DragDropEffects.None
-        'End If
     End Sub
 
     Public Function IsNetworkAvailable() As Boolean
@@ -9334,7 +9328,14 @@ RETRY:
         OpenFileDialog1.Filter = "Image Files(*.gif;*.jpg;*.jpeg;*.png)|*.gif;*.jpg;*.jpeg;*.png|All Files(*.*)|*.*"
         OpenFileDialog1.Title = My.Resources.PickPictureDialog1
         OpenFileDialog1.FileName = ""
-        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub
+
+        Try
+            Me.AllowDrop = False
+            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub
+        Finally
+            Me.AllowDrop = True
+        End Try
+
         ImagefilePathText.Text = OpenFileDialog1.FileName
         ImageFromSelectedFile()
     End Sub