Нажмите кнопку, чтобы вызвать несколько нажатий кнопок

Я работаю над Infopath и VBA и сталкиваюсь с тривиальной проблемой. Я попытался найти это и нашел несколько примеров, но не мог понять их правильно (будучи новичком).Нажмите кнопку, чтобы вызвать несколько нажатий кнопок

Буду очень признателен, если кто-нибудь сможет подтолкнуть меня в правильном направлении.

Я пытаюсь выполнить исполняемый код для четырех кнопок (button1,2,3,4), нажав на кнопку под названием MasterSumbit

У меня есть обработчики событий, загруженные в разделе 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)'.

Благодаря в ожидании

источник

2013-03-24 user2204330

Вы добавляете четыре кнопки во время выполнения? Если нет, не можете ли вы просто сделать это? Private Sub AnyButton_Click (отправитель As System.Object, e As System.EventArgs) Ручки Button1.Click, Button2.Click, Button3.Click, Button4.Click'? –

Кроме того, вы должны повторно пометить свой вопрос на VB.Net. Это определенно не VBA :). –

Я попытался поставить это после внутреннего раздела автозагрузки, но не работает. Я почти уверен, что делаю это неправильно! – user2204330

Попробуйте это:

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-24 11:31:00 duDE

Не работает. Такая же ошибка :( – user2204330

бы (внутри Sub для кнопки Master) это не работает?

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

Надеюсь, что помогло.

источник

2013-03-26 02:16:48 SolaGratia

Нажмите кнопку, чтобы вызвать несколько нажатий кнопок

ответ

Смежные вопросы