如何在另一個子程序中執行部分代碼

Question

假設我有兩個按鈕btnCheck和btnOK。我想從btnOK執行btnCheck的幾行代碼。所以當我點擊btnOK時，btnOK的代碼以及BtnCheck的代碼應該一個接一個地執行。我怎麼能在vb.net做到這一點

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click 
.................................. 
..............CODES 1............. 
.................................. 
.........CODES FROM BtnCheck...... 
.................................. 
End Sub 

Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click 
.................................. 
..............CODES 2............... 
.................................. 
End Sub 

[可以使用轉到？ ]

Answer 1

除了製作一個單獨的程序，有人建議，你也可以簡單地調用其它子，如果你想運行它的所有代碼：

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click 
    '... 
    btnCheck_Click(sender, e) 'This will run the btnCheck code 
End Sub 

Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click 
    '... 
End Sub 

儘量避免在你的代碼，如果使用goto在所有可能的情況下，使用其他控制結構幾乎總是有更好的方法。

Answer 2

我想你在問如何在這兩個程序之間共享一些代碼。那麼，爲什麼不一樣的東西：

Private Sub btnOK_Click(...) 
    sharedSubroutine(...) 

Private Sub btnCheck_Click(...) 
    sharedSubroutine(...) 

Private Sub sharedSubroutine(...) 
    'Here is the shared code 

換句話說，你創建一個新的子程序/程序/功能包含是你的第一個兩者之間共同的代碼，你可以同時btnCheck_Click也btnOK_Click把這種新的代碼。