如果在普通窗体引用里,其实
Public Sub P_ComponentHandler(ByVal sender As Object, ByVal e As CommandClickEventArgs)
Dim cmdData As String = CType(e.Command.UserData, String)
dim obj as new form4
Select Case LCase(cmdData)
Case "add" '//插入行
Case "delete" '//删除行
Case "exit" '//退出
Case "save" '//保存
obj .P_OK()
End Select
End Sub
我就直接改写为
Public Sub P_ComponentHandler(ByVal sender As Object, ByVal e As CommandClickEventArgs)
Dim cmdData As String = CType(e.Command.UserData, String)
Select Case LCase(cmdData)
Case "add" '//插入行
Case "delete" '//删除行
Case "exit" '//退出
Case "save" '//保存
form4.P_OK()
End Select
End Sub
这个在demo里操作没有什么问题 。可以一旦封装在dll。就有问题。
我是通过程序来添加工具栏,最后你们要触发处理事件,这个不知道要在哪里修改下。
|