C# と VB.NET の質問掲示板

開発環境：WinXP SP3 
使用言語：Visual Basic .NET 2005 

以下の条件の場合に、Validating イベントが２回連続で発生してしまいます。
通常は１回の発生だと思っていたのですが、２回発生してしまうのは仕様でしょうか。

情報をお持ちの方がおられましたら、ご教示いただけませんでしょうか。
よろしくお願い致します。

�@UserControl上にTextBoxを１個作成し、UserControlを作成。

�AForm上に�@で作成したUserControl(A)とTextBox(B)を作成。

�BTextBox(B)のValidatingイベントに
   Private Sub TextBoxB_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBoxB.Validating
        e.Cancel = (TextBoxB.Text = String.Empty)
        Debug.Print("TextBoxB_Validating")
  End Sub

�CTextBox(B)の値が空白の状態で、UserControl上のTextBoxをマウスでクリック。

  ※１回目は１度しか発生しないのですが、続けてUserControl上のTextBoxを再度クリックすると
     Validatingイベントが２回発生してしまいます。

  ※Tabキー、SelectNextControlでのフォーカス移動では、１回のみの発生でした。

todo様
ご返信いただき、誠にありがとうございます。

>Debug.WriteLine((New StackTrace(True)).ToString())
StackTraceで確認してみましたところ、１回目と２回目で違った場所がありました。

以下の部分を再度調べてみます。

************************************************************************************************************************
   場所 WindowsApplication1.Form1.TextBox1_Validating(Object sender, CancelEventArgs e) 場所 
   場所 System.Windows.Forms.Control.OnValidating(CancelEventArgs e)
   場所 System.Windows.Forms.Control.NotifyValidating()
   場所 System.Windows.Forms.Control.PerformControlValidation(Boolean bulkValidation)
   場所 System.Windows.Forms.ContainerControl.ValidateThroughAncestor(Control ancestorControl, Boolean preventFocusChangeOnError)
   場所 System.Windows.Forms.ContainerControl.EnterValidation(Control enterControl)
   場所 System.Windows.Forms.ContainerControl.UpdateFocusedControl()
   場所 System.Windows.Forms.ContainerControl.AssignActiveControlInternal(Control value)
   場所 System.Windows.Forms.ContainerControl.ActivateControlInternal(Control control, Boolean originator)
   場所 System.Windows.Forms.ContainerControl.ActivateControlInternal(Control control, Boolean originator)
   場所 System.Windows.Forms.ContainerControl.ActivateControlInternal(Control control)
   場所 System.Windows.Forms.Control.WmSetFocus(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.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
----------------------------------------------------------------------------------------------------------------------
   １回目
   場所 System.Windows.Forms.UnsafeNativeMethods.SetFocus(HandleRef hWnd)
   場所 System.Windows.Forms.Control.FocusInternal()
----------------------------------------------------------------------------------------------------------------------
   ２回目 ※１回目の部分が以下のように変わっていました。
          ※ その他の部分は同じ流れで表示されていました。
   場所 System.Windows.Forms.UnsafeNativeMethods.CallWindowProc(IntPtr wndProc, IntPtr hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)
   場所 System.Windows.Forms.NativeWindow.DefWndProc(Message& m)
   場所 System.Windows.Forms.Control.DefWndProc(Message& m)
   場所 System.Windows.Forms.Control.WmMouseDown(Message& m, MouseButtons button, Int32 clicks)
   場所 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.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
   場所 System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
   場所 System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
   場所 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
   場所 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
   場所 System.Windows.Forms.Application.Run(ApplicationContext context)
   場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
   場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
   場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
   場所 WindowsApplication1.My.MyApplication.Main(String[] Args) 場所 17d14f5c-a337-4978-8281-53493378c1071.vb:行 81
   場所 System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
   場所 System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
   場所 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
   場所 System.Threading.ThreadHelper.ThreadStart_Context(Object state)
   場所 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
   場所 System.Threading.ThreadHelper.ThreadStart()
************************************************************************************************************************

todo 様
返信が遅くなり、申し訳ありません。

> 2011/01/06(Thu) 16:45:11 編集(投稿者)
> 
>>  場所 System.Windows.Forms.TextBox.WndProc(Message& m)
> 
> ここの引数がどうなっているか気になりますね。
> 

 TextBox(B)の部分を先ほど記載いただきましたTextBoxExに
置き換えて出力してみました。

単純なTextの比較で申し訳ありません。

*******************************************************************************************************************
TextBoxEx1:S1:msg=0x8 (WM_KILLFOCUS) hwnd=0x1007b8 wparam=0x16077e lparam=0x0 result=0x0
TextBoxEx1:S2:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0x1007b8 wparam=0x20007b8 lparam=0x1007b8 result=0x0
TextBoxEx1:E2:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0x1007b8 wparam=0x20007b8 lparam=0x1007b8 result=0x0
TextBoxEx1:E1:msg=0x8 (WM_KILLFOCUS) hwnd=0x1007b8 wparam=0x16077e lparam=0x0 result=0x1
TextBoxEx1:S1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x1007b8 wparam=0x0 lparam=0xffffffffc000000f result=0x0
TextBoxEx1:E1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x1007b8 wparam=0x0 lparam=0xffffffffc000000f result=0x0
TextBoxEx1:S1:msg=0xe (WM_GETTEXTLENGTH) hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x0
TextBoxEx1:E1:msg=0xe (WM_GETTEXTLENGTH) hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x0
TextBoxEx1:S1:msg=0xd (WM_GETTEXT) hwnd=0x1007b8 wparam=0x2 lparam=0x239dd8 result=0x0
TextBoxEx1:E1:msg=0xd (WM_GETTEXT) hwnd=0x1007b8 wparam=0x2 lparam=0x239dd8 result=0x0
   場所 WindowsApplication1.Form1.TextBoxEx1_Validating(Object sender, CancelEventArgs e) 場所 D:\TEST\WindowsApplication1\WindowsApplication1\Form1.vb:行 13
   場所 System.Windows.Forms.Control.OnValidating(CancelEventArgs e)
   場所 System.Windows.Forms.Control.NotifyValidating()
   場所 System.Windows.Forms.Control.PerformControlValidation(Boolean bulkValidation)
   場所 System.Windows.Forms.ContainerControl.ValidateThroughAncestor(Control ancestorControl, Boolean preventFocusChangeOnError)
   場所 System.Windows.Forms.ContainerControl.EnterValidation(Control enterControl)
   場所 System.Windows.Forms.ContainerControl.UpdateFocusedControl()
   場所 System.Windows.Forms.ContainerControl.AssignActiveControlInternal(Control value)
   場所 System.Windows.Forms.ContainerControl.ActivateControlInternal(Control control, Boolean originator)
   場所 System.Windows.Forms.ContainerControl.ActivateControlInternal(Control control, Boolean originator)
   場所 System.Windows.Forms.ContainerControl.ActivateControlInternal(Control control)
   場所 System.Windows.Forms.Control.WmSetFocus(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.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
   場所 System.Windows.Forms.UnsafeNativeMethods.SetFocus(HandleRef hWnd)
   場所 System.Windows.Forms.Control.FocusInternal()
   場所 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.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
   場所 System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
   場所 System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
   場所 System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
   場所 System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
   場所 System.Windows.Forms.Application.Run(ApplicationContext context)
   場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
   場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
   場所 Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
   場所 WindowsApplication1.My.MyApplication.Main(String[] Args) 場所 17d14f5c-a337-4978-8281-53493378c1071.vb:行 81
   場所 System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
   場所 System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
   場所 Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
   場所 System.Threading.ThreadHelper.ThreadStart_Context(Object state)
   場所 System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
   場所 System.Threading.ThreadHelper.ThreadStart()

TextBoxEx1:S1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x1007b8 wparam=0x1 lparam=0xffffffffc000000f result=0x0
TextBoxEx1:E1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x1007b8 wparam=0x1 lparam=0xffffffffc000000f result=0x0
TextBoxEx1:S1:msg=0x7 (WM_SETFOCUS) hwnd=0x1007b8 wparam=0x16077e lparam=0x0 result=0x0
TextBoxEx1:S2:msg=0xd2 hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x0
TextBoxEx1:E2:msg=0xd2 hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x0
TextBoxEx1:S2:msg=0x282 (WM_IME_NOTIFY) hwnd=0x1007b8 wparam=0xa lparam=0x0 result=0x0
TextBoxEx1:E2:msg=0x282 (WM_IME_NOTIFY) hwnd=0x1007b8 wparam=0xa lparam=0x0 result=0x0
TextBoxEx1:S2:msg=0x282 (WM_IME_NOTIFY) hwnd=0x1007b8 wparam=0xb lparam=0x0 result=0x0
TextBoxEx1:E2:msg=0x282 (WM_IME_NOTIFY) hwnd=0x1007b8 wparam=0xb lparam=0x0 result=0x0
TextBoxEx1:S2:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0x1007b8 wparam=0x10007b8 lparam=0x1007b8 result=0x0
TextBoxEx1:E2:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0x1007b8 wparam=0x10007b8 lparam=0x1007b8 result=0x0
TextBoxEx1:E1:msg=0x7 (WM_SETFOCUS) hwnd=0x1007b8 wparam=0x16077e lparam=0x0 result=0x1
TextBoxEx1:S1:msg=0xf (WM_PAINT) hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x0
-----------------------------------------------------------------------------------------------
1回目のValidating
TextBoxEx1:S2:msg=0x14 (WM_ERASEBKGND) hwnd=0x1007b8 wparam=0x1010075 lparam=0x0 result=0x0
TextBoxEx1:E2:msg=0x14 (WM_ERASEBKGND) hwnd=0x1007b8 wparam=0x1010075 lparam=0x0 result=0x1
-----------------------------------------------------------------------------------------------
２回目のValidatingによる違い
TextBoxEx1:S2:msg=0x14 (WM_ERASEBKGND) hwnd=0x1007b8 wparam=0x600113c2 lparam=0x0 result=0x0
TextBoxEx1:E2:msg=0x14 (WM_ERASEBKGND) hwnd=0x1007b8 wparam=0x600113c2 lparam=0x0 result=0x1
TextBoxEx1:E1:msg=0xf (WM_PAINT) hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x1
TextBoxEx1:S1:msg=0x8 (WM_KILLFOCUS) hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x0
TextBoxEx1:S2:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0x1007b8 wparam=0x20007b8 lparam=0x1007b8 result=0x0
TextBoxEx1:E2:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0x1007b8 wparam=0x20007b8 lparam=0x1007b8 result=0x0
TextBoxEx1:E1:msg=0x8 (WM_KILLFOCUS) hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x1
TextBoxEx1:S1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x1007b8 wparam=0x0 lparam=0xffffffffc000000f result=0x0
TextBoxEx1:S2:msg=0x282 (WM_IME_NOTIFY) hwnd=0x1007b8 wparam=0x1 lparam=0x0 result=0x0
TextBoxEx1:E2:msg=0x282 (WM_IME_NOTIFY) hwnd=0x1007b8 wparam=0x1 lparam=0x0 result=0x0
TextBoxEx1:E1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x1007b8 wparam=0x0 lparam=0xffffffffc000000f result=0x0
TextBoxEx1:S1:msg=0xf (WM_PAINT) hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x0
-----------------------------------------------------------------------------------------------
TextBoxEx1:E1:msg=0xf (WM_PAINT) hwnd=0x1007b8 wparam=0x0 lparam=0x0 result=0x1
*****************************************************************************************************************

todo 様

> 1回目の TextBoxEx1_Validating の後、TextBoxEx1 に WM_SETFOCUS しているのに、userTextBoxEx1 に WM_SETFOCUS が来るのが謎ですね。
  UserControl上に同一のTextBoxを作成し、Validatingイベントを確認すると１回だけしか発生しませんでした。
  FormとUserControlの変化が、何か悪さをしているのでしょうか。うーん、  本当に謎ですね。

> もっと調べるのであれば、Formの WndProc も記録するとか。
  FormとかUserControl等を、先ほど教えていただいた方法で記録をとってみます。

> あとは、Spy++ というツールもあります。
  使い方等、一度調べてみます。
  
いろいろアドバイス頂き ありがとうございました。

todo 様
ありがとうございます。

> Public Class TextBoxEx
> Inherits TextBox
> Protected Overrides Sub WndProc(ByRef m As Message)
> Util.CallWndProc(Me, MyBase.WndProc, m)
> End Sub
 エラーが表示されましたので、以下のように変更してみました。
 ※デリゲートについて、勉強不足ですいません。
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        Util.CallWndProc(Me, AddressOf MyBase.WndProc, m)
    End Sub

******************************************************************************************************************
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x18c0058 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x18c0058 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x18c0058 result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000012 result=0x0
userTextBoxEx1:msg=0xa0 (WM_NCMOUSEMOVE) hwnd=0x280dee wparam=0x12 lparam=0x18c0058 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1890059 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1890059 result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000001 result=0x0
userTextBoxEx1:msg=0xc184 hwnd=0x280dee wparam=0x0 lparam=0x0 result=0x0
userTextBoxEx1:msg=0x200 (WM_MOUSEMOVE) hwnd=0x280dee wparam=0x0 lparam=0xd0023 result=0x0
    userTextBoxEx1:msg=0x85 (WM_NCPAINT) hwnd=0x280dee wparam=0x1 lparam=0x0 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1870059 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1870059 result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000001 result=0x0
userTextBoxEx1:msg=0x200 (WM_MOUSEMOVE) hwnd=0x280dee wparam=0x0 lparam=0xb0023 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1860059 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1860059 result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000001 result=0x0
userTextBoxEx1:msg=0x200 (WM_MOUSEMOVE) hwnd=0x280dee wparam=0x0 lparam=0xa0023 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1850059 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1850059 result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000001 result=0x0
userTextBoxEx1:msg=0x200 (WM_MOUSEMOVE) hwnd=0x280dee wparam=0x0 lparam=0x90023 result=0x0
userTextBoxEx1:msg=0x2a1 (WM_MOUSEHOVER) hwnd=0x280dee wparam=0x0 lparam=0x90023 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1850059 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1850059 result=0x0
userTextBoxEx1:msg=0x21 (WM_MOUSEACTIVATE) hwnd=0x280dee wparam=0x60e3c lparam=0x2010001 result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2010001 result=0x0
userTextBoxEx1:msg=0x201 (WM_LBUTTONDOWN) hwnd=0x280dee wparam=0x1 lparam=0x90023 result=0x0
    TextBoxEx1:msg=0x8 (WM_KILLFOCUS) hwnd=0xd0d8a wparam=0x280dee lparam=0x0 result=0x0
        TextBoxEx1:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0xd0d8a wparam=0x2000d8a lparam=0xd0d8a result=0x0
    TextBoxEx1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0xd0d8a wparam=0x0 lparam=0xffffffffc000000f result=0x0
    userTextBoxEx1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x280dee wparam=0x1 lparam=0xffffffffc000000f result=0x0
    userTextBoxEx1:msg=0x7 (WM_SETFOCUS) hwnd=0x280dee wparam=0xd0d8a lparam=0x0 result=0x0
        userTextBoxEx1:msg=0xd2 hwnd=0x280dee wparam=0x0 lparam=0x0 result=0x0
        TextBoxEx1:msg=0xe (WM_GETTEXTLENGTH) hwnd=0xd0d8a wparam=0x0 lparam=0x0 result=0x0
        TextBoxEx1:msg=0xd (WM_GETTEXT) hwnd=0xd0d8a wparam=0x2 lparam=0x224828 result=0x0
        場所 WindowsApplication1.Form1.TextBoxEx1_Validating(Object sender, CancelEventArgs e) 場所 D:\TEST\WindowsApplication1\WindowsApplication1\Form1.vb:行 15
 	  ↑
          省略
          ↓
        場所 System.Threading.ThreadHelper.ThreadStart()

        userTextBoxEx1:msg=0x8 (WM_KILLFOCUS) hwnd=0x280dee wparam=0xd0d8a lparam=0x0 result=0x0
            userTextBoxEx1:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0x280dee wparam=0x2000dee lparam=0x280dee result=0x0
        userTextBoxEx1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x280dee wparam=0x0 lparam=0xffffffffc000000f result=0x0
        TextBoxEx1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0xd0d8a wparam=0x1 lparam=0xffffffffc000000f result=0x0
        TextBoxEx1:msg=0x7 (WM_SETFOCUS) hwnd=0xd0d8a wparam=0x280dee lparam=0x0 result=0x0
            TextBoxEx1:msg=0xd2 hwnd=0xd0d8a wparam=0x0 lparam=0x0 result=0x0
            TextBoxEx1:msg=0x282 (WM_IME_NOTIFY) hwnd=0xd0d8a wparam=0xa lparam=0x0 result=0x0
            TextBoxEx1:msg=0x282 (WM_IME_NOTIFY) hwnd=0xd0d8a wparam=0xb lparam=0x0 result=0x0
            TextBoxEx1:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0xd0d8a wparam=0x1000d8a lparam=0xd0d8a result=0x0
    TextBoxEx1:msg=0x8 (WM_KILLFOCUS) hwnd=0xd0d8a wparam=0x280dee lparam=0x0 result=0x0
        TextBoxEx1:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0xd0d8a wparam=0x2000d8a lparam=0xd0d8a result=0x0
    TextBoxEx1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0xd0d8a wparam=0x0 lparam=0xffffffffc000000f result=0x0
    userTextBoxEx1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x280dee wparam=0x1 lparam=0xffffffffc000000f result=0x0
    userTextBoxEx1:msg=0x7 (WM_SETFOCUS) hwnd=0x280dee wparam=0xd0d8a lparam=0x0 result=0x0
        userTextBoxEx1:msg=0xd2 hwnd=0x280dee wparam=0x0 lparam=0x0 result=0x0
        TextBoxEx1:msg=0xe (WM_GETTEXTLENGTH) hwnd=0xd0d8a wparam=0x0 lparam=0x0 result=0x0
        TextBoxEx1:msg=0xd (WM_GETTEXT) hwnd=0xd0d8a wparam=0x2 lparam=0x224828 result=0x0
          場所 WindowsApplication1.Form1.TextBoxEx1_Validating(Object sender, CancelEventArgs e) 場所 D:\TEST\WindowsApplication1\WindowsApplication1\Form1.vb:行 15
	  ↑
          省略
          ↓
          場所 System.Threading.ThreadHelper.ThreadStart()

        userTextBoxEx1:msg=0x8 (WM_KILLFOCUS) hwnd=0x280dee wparam=0xd0d8a lparam=0x0 result=0x0
            userTextBoxEx1:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0x280dee wparam=0x2000dee lparam=0x280dee result=0x0
        userTextBoxEx1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0x280dee wparam=0x0 lparam=0xffffffffc000000f result=0x0
        TextBoxEx1:msg=0x281 (WM_IME_SETCONTEXT) hwnd=0xd0d8a wparam=0x1 lparam=0xffffffffc000000f result=0x0
        TextBoxEx1:msg=0x7 (WM_SETFOCUS) hwnd=0xd0d8a wparam=0x280dee lparam=0x0 result=0x0
            TextBoxEx1:msg=0xd2 hwnd=0xd0d8a wparam=0x0 lparam=0x0 result=0x0
            TextBoxEx1:msg=0x282 (WM_IME_NOTIFY) hwnd=0xd0d8a wparam=0xa lparam=0x0 result=0x0
            TextBoxEx1:msg=0x282 (WM_IME_NOTIFY) hwnd=0xd0d8a wparam=0xb lparam=0x0 result=0x0
            TextBoxEx1:msg=0x2111 (WM_REFLECT + WM_COMMAND) hwnd=0xd0d8a wparam=0x1000d8a lparam=0xd0d8a result=0x0
userTextBoxEx1:msg=0xf (WM_PAINT) hwnd=0x280dee wparam=0x0 lparam=0x0 result=0x0
TextBoxEx1:msg=0xf (WM_PAINT) hwnd=0xd0d8a wparam=0x0 lparam=0x0 result=0x0
    TextBoxEx1:msg=0x14 (WM_ERASEBKGND) hwnd=0xd0d8a wparam=0xffffffffc001086a lparam=0x0 result=0x0
userTextBoxEx1:msg=0x202 (WM_LBUTTONUP) hwnd=0x280dee wparam=0x0 lparam=0x90023 result=0x0
    userTextBoxEx1:msg=0x215 (WM_CAPTURECHANGED) hwnd=0x280dee wparam=0x0 lparam=0x0 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1850059 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1850059 result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000001 result=0x0
userTextBoxEx1:msg=0x200 (WM_MOUSEMOVE) hwnd=0x280dee wparam=0x0 lparam=0x90023 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x185005a result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x185005a result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000001 result=0x0
userTextBoxEx1:msg=0x200 (WM_MOUSEMOVE) hwnd=0x280dee wparam=0x0 lparam=0x90024 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x185005d result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x185005d result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000001 result=0x0
userTextBoxEx1:msg=0x200 (WM_MOUSEMOVE) hwnd=0x280dee wparam=0x0 lparam=0x90027 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1890067 result=0x0
userTextBoxEx1:msg=0x84 (WM_NCHITTEST) hwnd=0x280dee wparam=0x0 lparam=0x1890067 result=0x0
userTextBoxEx1:msg=0x20 (WM_SETCURSOR) hwnd=0x280dee wparam=0x280dee lparam=0x2000001 result=0x0
userTextBoxEx1:msg=0x200 (WM_MOUSEMOVE) hwnd=0x280dee wparam=0x0 lparam=0xd0031 result=0x0
userTextBoxEx1:msg=0x2a3 (WM_MOUSELEAVE) hwnd=0x280dee wparam=0x0 lparam=0x0 result=0x0
    userTextBoxEx1:msg=0x85 (WM_NCPAINT) hwnd=0x280dee wparam=0x1 lparam=0x0 result=0x0 
******************************************************************************************************************

shu様にアドバイス頂いた情報をもとに、
Validatingイベントで、Me.FindForm.ActiveControlのFocusedをみてみたところ、
UserControl Me.FindForm.ActiveControlのFocusedがTrueの場合は、１回のみ発生。
Falseの場合に２回発生していました。
(※Falseの時も初回のみ１回で、以降は２回でした)

--ログの要約---
userTextBoxEx1:msg=0x201 (WM_LBUTTONDOWN) hwnd=0x280dee wparam=0x1 lparam=0x90023 result=0x0
    TextBoxEx1:msg=0x8 (WM_KILLFOCUS) hwnd=0xd0d8a wparam=0x280dee lparam=0x0 result=0x0
    userTextBoxEx1:msg=0x7 (WM_SETFOCUS) hwnd=0x280dee wparam=0xd0d8a lparam=0x0 result=0x0
        場所 WindowsApplication1.Form1.TextBoxEx1_Validating(Object sender, CancelEventArgs e) 場所 D:\TEST\WindowsApplication1
        TextBoxEx1:msg=0x7 (WM_SETFOCUS) hwnd=0xd0d8a wparam=0x280dee lparam=0x0 result=0x0
    TextBoxEx1:msg=0x8 (WM_KILLFOCUS) hwnd=0xd0d8a wparam=0x280dee lparam=0x0 result=0x0     ※ここが問題
    userTextBoxEx1:msg=0x7 (WM_SETFOCUS) hwnd=0x280dee wparam=0xd0d8a lparam=0x0 result=0x0
          場所 WindowsApplication1.Form1.TextBoxEx1_Validating(Object sender, CancelEventArgs e) 場所 D:\TEST\WindowsApplication1
        userTextBoxEx1:msg=0x8 (WM_KILLFOCUS) hwnd=0x280dee wparam=0xd0d8a lparam=0x0 result=0x0
        TextBoxEx1:msg=0x7 (WM_SETFOCUS) hwnd=0xd0d8a wparam=0x280dee lparam=0x0 result=0x0
userTextBoxEx1:msg=0x202 (WM_LBUTTONUP) hwnd=0x280dee wparam=0x0 lparam=0x90023 result=0x0
------
Validating後、TextBoxEx1に WM_KILLFOCUS が来るのが変です。


WM_LBUTTONDOWNとWM_LBUTTONUPの間で、OnValidatingがキャセンルされたら二回目のOnValidatingが来てもValidatingイベントを
呼ばないようにしてみました。

VBは得意でないので、C#

public class TextBoxEx : TextBox
{
	const int WM_LBUTTONDOWN = 0x0201;
	const int WM_LBUTTONUP=  0x0202;
	static bool IsMouseDown = false;
	static bool canceled = false;
	
	protected override void WndProc(ref Message m)
	{
		if (m.Msg == WM_LBUTTONDOWN) {
			IsMouseDown = true;
			canceled = false;
		}

		base.WndProc(ref m);
			
		if (m.Msg == WM_LBUTTONUP) {
			IsMouseDown = false;
		}
	}

	protected override void OnValidating(System.ComponentModel.CancelEventArgs e)
	{
		if (IsMouseDown && canceled) {
			e.Cancel = true;
		} else {
			base.OnValidating(e);
			canceled = e.Cancel;
		}
	}
}

todo 様
> VBは得意でないので、C#
 違った言語の中で、サンプルまで
 本当にありがとうございます。
 自分なりに、VBに変更してみました。

******************************************************************
Module Module1
    Public IsMouseDown As Boolean = False
    Public Canceled As Boolean = False
End Module

Public Class TextBoxEx
    Inherits TextBox

    Private Const WM_LBUTTONDOWN As Integer = &H201
    Private Const WM_LBUTTONUP As Integer = &H202

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

        If m.Msg = WM_LBUTTONDOWN Then
            IsMouseDown = True
            canceled = False
        End If

        MyBase.WndProc(m)

        If m.Msg = WM_LBUTTONUP Then
            IsMouseDown = False
        End If

    End Sub

    Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)

        If IsMouseDown And canceled Then
            e.Cancel = True
        Else
            MyBase.OnValidating(e)
            canceled = e.Cancel
        End If

    End Sub
End Class
******************************************************************

>	static bool IsMouseDown = false;
>	static bool canceled = false;
userTextBoxEx1とTextBoxEx1で、共通のフラグかと思い、
大雑把でありますが、Module変数にしてみました。
※あまり行わない方がいいと思いますが、
  別の方法が思いつかなかったもので・・。

教えていただいたサンプルで、Validatingイベントの発生を１回にできました。
本当にありがとうございます。

再度、自分なりにいろいろチェックしてみます。


>todo様
違った言語の自分に、
チェックの仕方等、ご親切に教えていただき
誠にありがとうございます。

自分で、理解できていない関数等を調べて
自分なりに再度理解していきます。

>shu 様
自分のために、
貴重な時間を割いて
教えていただき 本当にありがとうございました。


※皆さんに教えていただいたことを
もう一度自分なりに整理し、そのあとで解決済みをチェックさせていただきたいと思います。

もし、自分のサンプルでお気づきの点等ございましたら
また教えていただければ幸いです。

継承元がUserControlでないといけない理由が特になければ、継承元をPanelにしてはどうでしょうか。
UserControlはContainerControlを継承しており、このContainerControlが独自のフォーカス制御を
やっているため、件のような現象が起きます。

●UserControlの継承階層
System.Object 
  System.MarshalByRefObject
    System.ComponentModel.Component
      System.Windows.Forms.Control
        System.Windows.Forms.ScrollableControl
          System.Windows.Forms.ContainerControl
            System.Windows.Forms.UserControl

● UserControlから順に派生元クラスに変更して実験してみる
継承元がUserControlだと現象が発生する
   ↓
継承元がContainerControlだと現象が発生する
   ↓
継承元がScrollableControlだと現象が発生しない★

--
ちなみにこのご提案はGoogleで「UserControl フォーカス」で
検索して見つけた情報を元にして追加検証したものです。
＃っていうか、魔界の仮面弁士さんの回答まるぱくり(汗)

●参考にした情報
↓同じ現象と思われる質問が別掲示板で過去にあった。でも未解決
ユーザコントールのNETのバグ？ - Insider .NET会議室
http://ap.atmarkit.co.jp/bbs/core/fdotnet/17010

↓カスタムコントロールをアクティブにさせないようにするには？
http://hpcgi1.nifty.com/MADIA/vbnet/wwwlng.cgi?print+200711/07110011.txt