使用Esc键关闭对话框

Private Sub ss_Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        
        ‘对话框的KeyPreview属性需设置为True
        e.Handled = True

        If e.KeyValue = 27 Then
            Me.Close()
        End If
End Sub















        

	      

	    

	  

	  

	    
      
        【推广】
        免费学中医，健康全家人
      
	  

    

    

          原文地址：https://www.cnblogs.com/rf8862/p/12274839.html