From 27a201fa989c275483a03cf070bc77c17d425983 Mon Sep 17 00:00:00 2001 From: syo68k Date: Wed, 4 Aug 2010 09:28:49 +0000 Subject: [PATCH] =?utf8?q?WM=5FGETTEXTLENGTH=E3=82=82=E6=BD=B0=E3=81=99?= =?utf8?q?=E3=82=88=E3=81=86=E3=81=AB=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@653 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/DoubleClickCopyCanceller.vb | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/Tween/DoubleClickCopyCanceller.vb b/Tween/DoubleClickCopyCanceller.vb index 13874c20..b990e885 100644 --- a/Tween/DoubleClickCopyCanceller.vb +++ b/Tween/DoubleClickCopyCanceller.vb @@ -27,6 +27,7 @@ Public Class DoubleClickCopyCanceller Inherits NativeWindow Implements IDisposable + Const WM_GETTEXTLENGTH As Integer = &HE Const WM_GETTEXT As Integer = &HD Const WM_LBUTTONDBLCLK As Integer = &H203 Dim _doubleClick As Boolean = False @@ -39,10 +40,16 @@ Public Class DoubleClickCopyCanceller If m.Msg = WM_LBUTTONDBLCLK Then _doubleClick = True End If - If _doubleClick AndAlso m.Msg = WM_GETTEXT Then - _doubleClick = False - 'm.Result = CType(0, IntPtr) - Exit Sub + If _doubleClick Then + If m.Msg = WM_GETTEXTLENGTH Then + m.Result = CType(0, IntPtr) + Exit Sub + End If + If m.Msg = WM_GETTEXT Then + _doubleClick = False + m.Result = CType(0, IntPtr) + Exit Sub + End If End If MyBase.WndProc(m) End Sub -- 2.11.0