Public Class Generic_Event_Handler Public Event Berechtigungen_TreeStruktur_Droped() Public Event MainObject_Saved(ByVal Keyvalue As Integer, ByVal parentid As Integer) Public Event Strucktur_Changed(ByVal keyvalue As Integer, ByVal treehandle As Integer) Public Event MainObject_Deleted(ByVal keyvalue As Integer, ByVal keyvalueparent As Integer) Public Event MainObject_Created(ByVal Keyvalue As Integer, ByVal Parentid As Integer, ByVal parentform As Object) Public Event Export_Vorbereiten_Clicked(ByVal Type As String, ByVal Bezeichnung As String, ByVal Keyvalue As String) Public Event Set_ToolTip(ByVal formname As String, ByVal ctlname As String) Public Event Node_Moved(ByVal onode As Object, dnode As Object, treehandle As Object) Public Event Object_Saved(ByVal Keyvalue As Integer, ByVal Parentid As Integer, ByVal parentform As Object) Public Event Object_Deleted(ByVal Keyvalue As Integer, ByVal Parentid As Integer, ByVal parentform As Object) Public Event Icon_Changed(ByVal keyvalue As Integer, ByVal Iconid As Integer) Public Event Object_Delete(ByVal Keyvalue As Integer, ByVal Parentid As Integer, ByVal parentform As Object) Public Event Node_Droppend() Public Event Select_to_MoveCopy(ByVal move As Boolean, grid As Object, ByVal sourcekey As Integer) Public Event Refresh_Selectednodes() Public Event Update_TreeSearch(ByVal parentform As Object) Public Function Fire_Berechtigungen_TreeStruktur_Droped() RaiseEvent Berechtigungen_TreeStruktur_Droped() End Function Public Function Fire_MainObject_Saved(ByVal Keyvalue As Integer, ByVal Parentid As Integer) RaiseEvent MainObject_Saved(Keyvalue, Parentid) End Function Public Function Fire_Struktur_Changed(Optional keyvalue As Integer = -1, Optional treehandle As Integer = 0) RaiseEvent Strucktur_Changed(keyvalue, treehandle) End Function Public Function Fire_MainObjectDeleted(ByVal Keyvalue As Integer, ByVal keyvalueparent As Integer) RaiseEvent MainObject_Deleted(Keyvalue, keyvalueparent) End Function Public Function Fire_MainObject_Created(ByVal Keyvalue As Integer, ByVal Parentid As Integer, ByVal parentform As Object) RaiseEvent MainObject_Created(Keyvalue, Parentid, parentform) End Function Public Function Fire_Export_Vorbereiten_Clicked(ByVal Type As String, ByVal Bezeichnung As String, ByVal keyvalue As String) RaiseEvent Export_Vorbereiten_Clicked(Type, Bezeichnung, keyvalue) End Function Public Function Edit_Tooltip(ByVal formname As String, ByVal ctlname As String) RaiseEvent Set_ToolTip(formname, ctlname) End Function Public Function Fire_Node_Moved(ByVal onode As Object, ByVal dnode As Object, ByVal treehandle As Object) RaiseEvent Node_Moved(onode, dnode, treehandle) End Function Public Function Fire_Object_saved(ByVal Keyvalue As Integer, ByVal Parentid As Integer, ByVal parentform As Object) RaiseEvent Object_Saved(Keyvalue, Parentid, parentform) End Function Public Function Fire_Object_Deleted(ByVal Keyvalue As Integer, ByVal Parentid As Integer, ByVal parentform As Object) RaiseEvent Object_Deleted(Keyvalue, Parentid, parentform) End Function Public Function Fire_Icon_Changed(ByVal Keyvalue As Integer, ByVal IconID As Integer) RaiseEvent Icon_Changed(Keyvalue, IconID) End Function Public Function Fire_Object_Delete(ByVal Keyvalue As Integer, ByVal Parentid As Integer, ByVal parentform As Object) RaiseEvent Object_Delete(Keyvalue, Parentid, parentform) End Function Sub Fire_Node_Droped() RaiseEvent Node_Droppend() End Sub Public Function Fire_Select_to_Move_Copy(ByVal move As Boolean, grid As Object, ByVal sourcekey As Integer) RaiseEvent Select_to_MoveCopy(move, grid, sourcekey) End Function Public Function Fire_Refresh_SelectedNodes() RaiseEvent Refresh_Selectednodes() End Function Public Function Fire_Update_Treesearch(ByVal parentform As Object) RaiseEvent Update_TreeSearch(parentform) End Function Public Datacolleation As New Collection End Class