Как обрабатывать нажатие кнопки даже из.dll
Может ли кто-нибудь, пожалуйста, подсказать мне, как я могу заставить это работать? В настоящее время он дает мне ошибки о WithEvents - хотя упрощенно показывает форму - но я понятия не имею, что это на самом деле означает. Это набор инструментов, который я делаю только для того, чтобы позволить пользователю лучше взаимодействовать с некоторыми другими моими кодами.
Все, что мне нужно, - это визуальные элементы формы, которые нужно настроить, а затем код, который должен быть сделан в моем приложении (которое не имеет возможностей визуального редактирования).
Это тот случай, когда мне нужно использовать интерфейс / частичные классы / наследование, или это может быть легко достигнуто с помощью небольшого изменения того, что у меня есть?
(Форма создается в Visual Studio дизайнер форм, а затем изменяется на библиотеку классов. Код приложения, написанный в среде "правила" Autodesk Inventor)
Спасибо!
Код приложения:
AddReference "C:\Users\Documents\Visual Studio 2013\Projects\WindowsApplication1\WindowsApplication1\bin\Release\SectionSymToolBox.dll"
Imports System.Windows.Forms
Public Class SectionSymRule
'Public dlg As New System.Windows.Forms.For
Public Shared ToolBox As New SectionSymToolBox.SectionSymToolBox
Dim WithEvents EClass As New EventClass
Sub Main()
ToolBox.Show()
End Sub
End Class
Код формы:
Public Class SectionSymToolBox
Private Sub Main()
End Sub
Public Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'Swap Symbols
End Sub
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Flip Symbol
End Sub
Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'Flip Text
End Sub
Public Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
'<
End Sub
Public Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
'>
End Sub
End Class
1 ответ
Это то, что вы ищите?
AddHandler ToolBox.Button1.Click, AddressOf HandlerMethodHere
Где HandlerMethod - это метод с такой же сигнатурой, как у Button1.Click, например, так:
Private Sub HandleButton1Click(sender As Object, e As EventArgs)
'Code here
End Sub
Очевидно, замените Button1 на имя кнопки.