画像をドラッグアンドドロップしたらフォームをアクティブにして投稿欄にフォーカスするように

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 7fd2995..cc743c6 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -7696,6 +7696,8 @@ RETRY:
             TimelinePanel.Enabled = False
             ImagefilePathText.Text = CType(e.Data.GetData(DataFormats.FileDrop, False), String())(0)
             ImageFromSelectedFile()
+            Me.Activate()
+            StatusText.Focus()
         ElseIf e.Data.GetDataPresent(DataFormats.StringFormat) Then
             Dim data As String = TryCast(e.Data.GetData(DataFormats.StringFormat, True), String)
             If data IsNot Nothing Then StatusText.Text += data