Public Class DoubleClickRadioButton 
    Inherits System.Windows.Forms.RadioButton 

    Public Sub New() 
        Me.SetStyle(ControlStyles.StandardClick Or ControlStyles.StandardDoubleClick, True) 
    End Sub 
    'NEW EVENTS THAT WILL NOW BE EXPOSED 
    Public Shadows Event MouseDoubleClick As MouseEventHandler 

    'DELEGATES TO HANDLE PROCESSING OF THE EVENTS 
    Public Delegate Sub MouseEventHandler(ByVal sender As Object, ByVal e As MouseEventArgs) 

    Protected Overrides Sub onMouseDoubleClick(ByVal e As MouseEventArgs) 
        RaiseEvent MouseDoubleClick(Me, e) 
    End Sub 
End Class 

 参考自:https://www.experts-exchange.com/questions/27924642/VB-NET-2008-Radio-Button-Double-Click.html

 

posted on 2018-05-22 10:45  zs李四  阅读(497)  评论(0编辑  收藏  举报