| 投稿日 | ： 2004/06/28(Mon) 13:32 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： http://www.bcap.co.jp/hanafusa/ypcs/ |
| タイトル | ： Re: 事象を再現できるコード |
Form1 のコードを下記に変更して見て下さい。
Option Explicit
'マウスを擬似的に動作させる(P1044)
Private Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTUP = &H4 '左ボタンUP
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '左ボタンDown
Private Sub RichTextBox1_Click()
'マウスの左ボタンを離す をここに追加
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Dim Form2 As Form2
これでモーダル表示する前にマウスがUPされますので現象が改善
できるかと思います。
又は RichTextBox1_DblClick イベント内に書けば問題なく動作するようです。