按扭按下发生的事件和再按下再发生事件

 Private m_btnState As Boolean

 

 

 

 

 注塑.Appearance = System.Windows.Forms.Appearance.Button        注塑.Checked = False        m_btnState = 注塑.Checked

 

 Private Sub 吹塑_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 吹塑.Click        If m_btnState = True Then            吹塑.Checked = False            吹塑.BackColor = Color.Empty            m_btnState = False            msfg2_chaxun2()        Else            吹塑.Checked = True            吹塑.BackColor = Color.Yellow            m_btnState = True            bom = True            bm_bl = "吹塑"            msfg2_chaxun()        End If    End Sub