From 9b4510c27d6ab6fbf9b974a61b53c8a3cce4b4f8 Mon Sep 17 00:00:00 2001 From: anis774 Date: Sat, 4 Dec 2010 00:59:46 +0000 Subject: [PATCH] =?utf8?q?=E4=BB=A5=E4=B8=8B=E3=81=AE=E3=82=A8=E3=83=A9?= =?utf8?q?=E3=83=BC=E3=81=AB=E5=AF=BE=E5=BF=9C=E3=80=82=E5=86=8D=E7=8F=BE?= =?utf8?q?=E6=89=8B=E9=A0=86=E4=B8=8D=E6=98=8E=E3=81=AA=E3=81=AE=E3=81=A7?= =?utf8?q?=E5=BD=93=E3=81=A6=E6=8C=AF=E3=82=8A=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 例外 System.InvalidOperationException: 既に表示されているフォームをモーダル ダイアログ ボックスとして表示できません。showDialog を呼び出す前に、フォームの Visible プロパティを false にしてください。 場所 System.Windows.Forms.Form.ShowDialog(IWin32Window owner) 場所 System.Windows.Forms.Form.ShowDialog() 場所 Tween.TweenMain.ShowSuplDialog(TextBox owner, AtIdSupplement dialog, Int32 offset, String startswith) 場所 Tween.TweenMain.StatusText_KeyPress(Object sender, KeyPressEventArgs e) 場所 System.Windows.Forms.Control.OnKeyPress(KeyPressEventArgs e) 場所 System.Windows.Forms.Control.ProcessKeyEventArgs(Message& m) 場所 System.Windows.Forms.Control.WmImeChar(Message& m) 場所 System.Windows.Forms.Control.WndProc(Message& m) 場所 System.Windows.Forms.TextBoxBase.WndProc(Message& m) 場所 System.Windows.Forms.TextBox.WndProc(Message& m) 場所 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) 場所 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) 場所 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1165 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/AtIdSupplement.resx | 22 +++++++++++----------- Tween/Tween.vb | 6 +++++- 2 files changed, 16 insertions(+), 12 deletions(-) diff --git a/Tween/AtIdSupplement.resx b/Tween/AtIdSupplement.resx index d5495e34..061b9be7 100644 --- a/Tween/AtIdSupplement.resx +++ b/Tween/AtIdSupplement.resx @@ -112,19 +112,19 @@ 2.0 - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + 0, 121 75, 23 - + 1 @@ -135,7 +135,7 @@ ButtonOK - System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 $this @@ -159,7 +159,7 @@ ButtonCancel - System.Windows.Forms.Button, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 $this @@ -167,7 +167,7 @@ 2 - + Fill @@ -187,7 +187,7 @@ TextId - System.Windows.Forms.TextBox, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 $this @@ -214,7 +214,7 @@ Label1 - System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 $this @@ -222,7 +222,7 @@ 0 - + True @@ -238,6 +238,6 @@ AtIdSupplement - System.Windows.Forms.Form, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 \ No newline at end of file diff --git a/Tween/Tween.vb b/Tween/Tween.vb index fc37366e..06aece3a 100644 --- a/Tween/Tween.vb +++ b/Tween/Tween.vb @@ -3696,7 +3696,11 @@ Public Class TweenMain Public Overloads Sub ShowSuplDialog(ByVal owner As TextBox, ByVal dialog As AtIdSupplement, ByVal offset As Integer, ByVal startswith As String) dialog.StartsWith = startswith - dialog.ShowDialog() + If dialog.Visible Then + dialog.Focus() + Else + dialog.ShowDialog() + End If Me.TopMost = SettingDialog.AlwaysTop Dim selStart As Integer = owner.SelectionStart Dim fHalf As String = "" -- 2.11.0