40 lines
1.8 KiB
VB.net
40 lines
1.8 KiB
VB.net
Public Class MyGenericEventHandler
|
|
|
|
|
|
Public Event Set_ToolTip(ByVal formname As String, ByVal ctlname As String)
|
|
|
|
Public Event Pruefplandetail_Saved(ByVal handler As Integer, ByVal key As Integer)
|
|
Public Event Pruefplandetail_Closed(ByVal handler As Integer, ByVal key As Integer)
|
|
Public Event Pruefschrittresultat_saved(ByVal handler As Integer, ByVal key As Integer)
|
|
Public Event pruefschrittresultat_closed(ByVal handler As Integer, ByVal key As Integer)
|
|
Public Event MassnahmeplanDetail_Saveed(ByVal handler As Integer, ByVal key As Integer)
|
|
Public Event MassnahmeplanDetail_Closed(ByVal handler As Integer, ByVal key As Integer)
|
|
|
|
Public Function Pruefplandetails_save(ByVal handler As Integer, key As Integer)
|
|
RaiseEvent Pruefplandetail_Saved(handler, key)
|
|
End Function
|
|
|
|
Public Function Pruefplandetail_close(ByVal handler As Integer, key As Integer)
|
|
RaiseEvent Pruefplandetail_closed(handler, key)
|
|
|
|
End Function
|
|
Public Function Edit_Tooltip(ByVal formname As String, ByVal ctlname As String)
|
|
RaiseEvent Set_ToolTip(formname, ctlname)
|
|
End Function
|
|
|
|
Public Function PruefplanResultat_Save(ByVal handler As Integer, ByVal key As Integer)
|
|
RaiseEvent Pruefschrittresultat_saved(handler, key)
|
|
End Function
|
|
|
|
Public Function pruefschrittResultat_Close(ByVal handler As Integer, ByVal key As Integer)
|
|
RaiseEvent pruefschrittresultat_closed(handler, key)
|
|
End Function
|
|
|
|
Public Function massnahmeplandetail_save(ByVal handler As Integer, ByVal key As Integer)
|
|
RaiseEvent MassnahmeplanDetail_Saveed(handler, key)
|
|
End Function
|
|
Public Function massnahmeplandetail_close(ByVal handler As Integer, ByVal key As Integer)
|
|
RaiseEvent MassnahmeplanDetail_Closed(handler, key)
|
|
End Function
|
|
End Class
|