0

有人可以指导我如何让它真正发挥作用吗？目前它给了我关于 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
4

1 回答 1

0

这是你想要的？

AddHandler ToolBox.Button1.Click, AddressOf HandlerMethodHere

其中 HandlerMethod 是与 Button1.Click 具有相同签名的方法，例如：

Private Sub HandleButton1Click(sender As Object, e As EventArgs)
'Code here
End Sub

显然，将 Button1 替换为按钮的名称。

于 2016-02-03T17:26:42.713 回答