0

私は Infopath と VBA に取り組んでおり、些細な問題に直面しています。私はこれを検索しようとしましたが、いくつかの例を見つけましたが、正しく理解できませんでした (初心者のため)。

誰かが私を正しい方向に押し進めることができれば、本当に感謝しています。

MasterSumbit というボタンをクリックして、4 つのボタン (button1、2、3、4) のコードを実行しようとしています。

InternalStartup セクションにイベント ハンドラをロードしました

    Private Sub InternalStartup(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Startup
    AddHandler DirectCast(EventManager.ControlEvents("Button1"), ButtonEvent).Clicked, AddressOf Button1_Clicked
    AddHandler DirectCast(EventManager.ControlEvents("Button2"), ButtonEvent).Clicked, AddressOf Button2_Clicked
    ...and such for button 3 and 4
    AddHandler DirectCast(EventManager.ControlEvents("MasterSubmit"), ButtonEvent).Clicked, AddressOf MasterSubmit_Clicked
    End Sub

これは、MasterSubmit ボタンのクリック イベントのコードです。

    Public Sub MasterSubmit_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)

    Button1_Clicked.click()
    Button2_Clicked.click()
    Button3_Clicked.click()
    Button4_Clicked.click()

    End Sub

ボタンごとに次のエラーが表示されます

Argument not specified for parameter 'e' of 'Public Sub Button1_Clicked(sender As Object, e As Microsoft.Office.InfoPath.ClickedEventArgs)'.
Argument not specified for parameter 'sender' of 'Public Sub Button1_Clicked(sender As Object, e As Microsoft.Office.InfoPath.ClickedEventArgs)'.

期待して感謝

4

2 に答える 2

1

これを試して：

Public Sub MasterSubmit_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)

 Button1_Clicked.click(sender, e)
 Button2_Clicked.click(sender, e)
 Button3_Clicked.click(sender, e)
 Button4_Clicked.click(sender, e)

End Sub
于 2013-03-24T11:31:00.463 に答える
0

(Sub for Master ボタン内で) これは機能しませんか?

Button2.PerformClick()
Button3.PerformClick() etc....

私が助けてくれることを願っています。

于 2013-03-26T02:16:48.393 に答える