2012-05-02 95 views
8

好日子,模擬應用程序(VB.NET)

在我的應用程序內點擊一個按鈕,我有Private Sub btnSendSMS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendMessage.Click在我的計劃。

我想在收到短信時在我的其他子(短信接收檢測器)中模擬上述按鈕點擊。

我該怎麼做?我知道這不是做事的最佳方式,而僅僅是爲了學習。謝謝。

回答

21

可以調用方法:

btnSendSMS.PerformClick() 
4

您可以直接調用該函數。

btnSendSMS_Click(Me, EventArgs.Empty) 
4

你爲什麼不把代碼在一個單獨的方法

Private Sub SendSMS() 
    ' do your thing 
End Sub 

,並在你的按鈕事件處理函數,調用該方法。

Private Sub btnSendSMS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendMessage.Click 
    Call SendSMS() 
End Sub 

現在你可以在你的類任何地方調用SendSMS(),而不必做一些時髦像模擬按鈕點擊。

1

或者在WPF用VB的情況:

Dim peer As New ButtonAutomationPeer(btnSendSMS) 
Dim invokeProv As IInvokeProvider = TryCast(peer.GetPattern(PatternInterface.Invoke), IInvokeProvider) 
invokeProv.Invoke()