'Declaration Public Event TransactionStateChanged As TransactionStateChangedEventHandler
public event TransactionStateChangedEventHandler TransactionStateChanged
'Declaration Public Event TransactionStateChanged As TransactionStateChangedEventHandler
public event TransactionStateChangedEventHandler TransactionStateChanged
ZohoConnection connection = new ZohoConnection( "API Version=V2;Refresh Token=1000.a6fde76542bfbb5244a7e539d4390e72.87e34ea57023c2d0e7dcb9ce55e3e7f3;ClientId=1000.M4FJLKYTSED90LJHUTVMKKAA432RUK;ClientSecret=89a0ed79957808814cdb20b9765423efffa767d1d0"); connection.TransactionStateChanged += new TransactionStateChangedEventHandler(connection_TransactionStateChanged); connection.TransactionStateChanging += new TransactionStateChangingEventHandler(connection_TransactionStateChanging); connection.Open(); // ... ZohoTransaction tr = connection.BeginTransaction(); // ... tr.Commit(); // ... void connection_TransactionStateChanging(object sender, TransactionStateChangingEventArgs e) { if (e.Action == TransactionAction.Commit) { // do somthing... } } void connection_TransactionStateChanged(object sender, TransactionStateChangedEventArgs e) { if (e.Action == TransactionAction.Commit) { // do somthing... } }
Dim connection As New ZohoConnection( _ "API Version=V2;Refresh Token=1000.a6fde76542bfbb5244a7e539d4390e72.87e34ea57023c2d0e7dcb9ce55e3e7f3;ClientId=1000.M4FJLKYTSED90LJHUTVMKKAA432RUK;ClientSecret=89a0ed79957808814cdb20b9765423efffa767d1d0") AddHandler connection.TransactionStateChanged, New TransactionStateChangedEventHandler(AddressOf &_ Me.connection_TransactionStateChanged) AddHandler connection.TransactionStateChanging, New TransactionStateChangingEventHandler(AddressOf &_ Me.connection_TransactionStateChanging) connection.Open() '... Dim Transaction As ZohoTransaction Transaction = connection.BeginTransaction() '... Transaction.Commit() '... Private Sub connection_TransactionStateChanged(ByVal sender As Object, ByVal e As TransactionStateChangedEventArgs) If (e.Action = TransactionAction.Commit) Then '... End If End Sub Private Sub connection_TransactionStateChanging(ByVal sender As Object, ByVal e As TransactionStateChangingEventArgs) If (e.Action = TransactionAction.Commit) Then '... End If End Sub