鼠標右鍵單擊事件右鍵單擊事件調用取消過程

當我點擊鼠標右鍵時，下面的過程運行。該過程運行良好，它放置在我的按鈕周圍的邊框。我想完成的是當用戶再次單擊鼠標右鍵時，權重設置爲0，邊框設置爲無。鼠標右鍵單擊事件右鍵單擊事件調用取消過程

這裏是我的方法：

Private Sub btnEmployeeDashboard_MouseDown(ByValsender As Object, ByVal myButton As System.Windows.Forms.MouseEventArgs) Handles btnEmployeeDashboard.MouseDown 

    If myButton.Button = MouseButtons.Right Then 

     btnEmployeeDashboard.Border.ColorIndex = 2 
     btnEmployeeDashboard.Border.Weight = 4 

    End If 

End Sub

來源

2013-07-11 Jose M.

你需要的是可開啓的值。我假設你的右鍵點擊意味着什麼，所以只需設置一個變量並添加if語句即可。

Dim ButtonClicked as boolean = false 

Private Sub btnEmployeeDashboard_MouseDown(ByValsender As Object, ByVal myButton As System.Windows.Forms.MouseEventArgs) Handles btnEmployeeDashboard.MouseDown 

If myButton.Button = MouseButtons.Right Then 

    If ButtonClicked then 

     btnEmployeeDashboard.Border.Weight = 0 
     ButtonClicked = false 
    else 

     btnEmployeeDashboard.Border.ColorIndex = 2 
     btnEmployeeDashboard.Border.Weight = 4 
     ButtonClicked = true 
    endif 



End If 

End Sub

來源

2013-07-11 18:17:25 Kratz

謝謝。你的回答讓我走上了正確的道路。我能夠用類似的方法解決問題。 –

下面是修改的代碼。我使用切換設置爲靜態。所以作爲一個布爾值，它給了我想要的東西。

Private Sub btnEmployeeDashboard_MouseDown(ByValsender As Object, ByVal myButton As System.Windows.Forms.MouseEventArgs) Handles btnEmployeeDashboard.MouseDown 

    Static Toggle As Boolean 

    If myButton.Button = MouseButtons.Right Then 

     If Toggle Then 

      btnEmployeeDashboard.Border.Weight = 1 

     Else 

      btnEmployeeDashboard.Border.ColorIndex = 2 
      btnEmployeeDashboard.Border.Weight = 4 

     End If 

    End If 
    Toggle = Not Toggle 

End Sub

來源

2013-07-12 19:02:48

鼠標右鍵單擊事件右鍵單擊事件調用取消過程

回答

相關問題