VS2005中VB里windows如何屏蔽默认处理函数？

[guokelei]

我想用MaskedTextbox来做IP址址输入框，实现windows里IP输入相同功能。
它的属性如下，
Me.Mask = "999.999.999.999"
Me.BeepOnError = True
Me.CutCopyMaskFormat = MaskFormat.IncludeLiterals
Me.PromptChar="" ‘为空格
鼠标双击事件如下：
Private Sub MaskedTextBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MaskedTextBox1.MouseDoubleClick
Label1.Text = MaskedTextBox1.GetCharIndexFromPosition(e.Location)
Select Case MaskedTextBox1.GetCharIndexFromPosition(e.Location)
Case 0, 1, 2, 3
MaskedTextBox1.Select(0, 3)
Case 4, 5, 6, 7
MaskedTextBox1.Select(4, 3)
Case 8, 9, 10, 11
MaskedTextBox1.Select(8, 3)
Case 12, 13, 14, 15
MaskedTextBox1.Select(12, 3)
Case Else
Exit Sub
End Select
End Sub
我知道这样做不好，我准备用Split将里面的内容分成4个数组，正好可以解决输入IP值大小的判断问题，
现在有一个恼人的问题，当我在输入过数字后，如：221.222.223.224，例如，在输入框里双击“222”或“223”等以后，在都会是先选中全部的内容（即执行了系统默认的鼠标处理函数）然后再刷新成我双击事件中写的选中三个字符的。怎么在应用程序里去掉系统默认的处理呢！我在学VC++时，记得有个setwindowslong之类来替换窗体的默认处理函数，好像还有个detach来解除系统默认的处理函数。
问题如下：
1.VB里有这样的一个函数吗？解除系统默认的函数处理
2.如果没有，我用Setwindowslong来替换成我自己写的处理函数时，怎么截取鼠标的双击消息，也就是msg.msg＝什么？WM_MOUSEDBCLISK?有详细的列表吗？比如,按键消息是WM_KEYDOWN之类的。谢谢！高手指点！

[程序员Linc]

up frendly~~

[长沙三毛]

重写控件的WndProc

[guokelei]

[Quote=引用 2 楼 hulihui 的回复:]
重写控件的WndProc
[/Quote]
像这样？
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
End Sub
那怎么截取鼠标双击函数呢！VB里没有WM_MOUSEDBLCLK呀？能否详细点

[mjjzg]

/。。

[guokelei]

[Quote=引用 11 楼 lizhengnan 的回复:]
能捕捉到呀

VB.NET code
Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
Const WM_LBUTTONDBLCLK As Integer = &H203

If m.Msg = WM_LBUTTONDBLCLK Then
'处理双击
Else
MyBase.DefWndProc(m)
End If
End Sub
[/Quote]
是可以捕捉到的,但是捕捉到的是窗体上的双击消息,但在MaskedTextBox里双击时,先执行的是Private Sub MyMaskedTextBox_MouseDoubleClick这个函数,然后将消息传送给DefWndProc的,我在想是不是,这里传给DefWndProc的消息里只是多了坐标,系统通过坐标判断是在MaskedTextBox里双击了,然后执行了它默认的选中操作,If m.Msg = WM_LBUTTONDBLCLK Then这句话并没有起到真正的作用,传回的消息有了差异了

[guokelei]

    Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
        Const WM_LBUTTONDBLCLK As Integer = &H203
        If m.Msg = WM_LBUTTONDBLCLK Then
            Select Case i
                Case 0, 1, 2, 3
                    MaskedTextBox1.Select(0, 3)
                Case 4, 5, 6, 7
                    MaskedTextBox1.Select(4, 3)
                Case 8, 9, 10, 11
                    MaskedTextBox1.Select(8, 3)
                Case 12, 13, 14, 15
                    MaskedTextBox1.Select(12, 3)
                Case Else
                    Exit Sub
            End Select
        Else
            MyBase.DefWndProc(m)
        End If
    End Sub

这样是不行的,

[guokelei]

高手们帮帮忙呀!

[lizhengnan]

Private Sub MaskedTextBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MaskedTextBox1.MouseDoubleClick 
        
        '先把消息队列中的消息处理了,再进行你的处理
        Application.DoEvents()

        Label1.Text = MaskedTextBox1.GetCharIndexFromPosition(e.Location) 
        Select Case MaskedTextBox1.GetCharIndexFromPosition(e.Location) 
            Case 0, 1, 2, 3 
                MaskedTextBox1.Select(0, 3) 
            Case 4, 5, 6, 7 
                MaskedTextBox1.Select(4, 3) 
            Case 8, 9, 10, 11 
                MaskedTextBox1.Select(8, 3) 
            Case 12, 13, 14, 15 
                MaskedTextBox1.Select(12, 3) 
            Case Else 
                Exit Sub 
        End Select 
    End Sub 

[yanlongwuhui]

mark

[guokelei]

[Quote=引用 6 楼 lizhengnan 的回复:]
VB.NET code
Private Sub MaskedTextBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MaskedTextBox1.MouseDoubleClick

'先把消息队列中的消息处理了,再进行你的处理
Application.DoEvents()

Label1.Text = MaskedTextBox1.GetCharIndexFromPosition(e.Location)
Select Case MaskedTextBox1.GetCharIndexFromPosi…
[/Quote]
先把消息队列中的消息处理了?但是没有屏蔽掉在Masktextbox控件中的双击时,选中里面所有内容的函数处理呀!是不是用消息过滤器呀!
6楼能说的详细点吗?谢谢

[lizhengnan]

Public Class MyMaskedTextBox
    Inherits MaskedTextBox

    Private Sub MyMaskedTextBox_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
        Select Case Me.GetCharIndexFromPosition(e.Location)
            Case 0, 1, 2, 3
                Me.Select(0, 3)
            Case 4, 5, 6, 7
                Me.Select(4, 3)
            Case 8, 9, 10, 11
                Me.Select(8, 3)
            Case 12, 13, 14, 15
                Me.Select(12, 3)
            Case Else
                Exit Sub
        End Select
    End Sub

    Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
        Const WM_LBUTTONDBLCLK As Integer = &H203

        If m.Msg = WM_LBUTTONDBLCLK Then
        Else
            MyBase.DefWndProc(m)
        End If
    End Sub

End Class

[guokelei]

[Quote=引用 9 楼 lizhengnan 的回复:]
VB.NET code
Public Class MyMaskedTextBox
Inherits MaskedTextBox

Private Sub MyMaskedTextBox_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
Select Case Me.GetCharIndexFromPosition(e.Location)
Case 0, 1, 2, 3
Me.Select(0, 3)
Case 4, 5, 6, 7
…
[/Quote]
还是没有捕捉到鼠标双击的消息,所以没拦截下来,只有截下来,然后定义常量,让程序执行自己定义的处理函数.郁闷

[lizhengnan]

能捕捉到呀

Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
        Const WM_LBUTTONDBLCLK As Integer = &H203

        If m.Msg = WM_LBUTTONDBLCLK Then
           '处理双击
        Else
            MyBase.DefWndProc(m)
        End If
    End Sub