1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Namespace Form_Contact_Techinserv_
Public Class FormCode
' Les variables membres ne sont pas prises en charge dans les formulaires activés pour le navigateur.
' À la place, écrire et lire ces valeurs à partir de FormState
' dictionnaire utilisant du code tel que le suivant :
'
' Private Property _memberVariable() As Object
' Get
' _memberVariable = FormState("_memberVariable")
' End Get
' Set
' FormState("_memberVariable") = value
' End Set
' End Property
' REMARQUE : la procédure suivante est requise par Microsoft Office InfoPath.
' Elle peut être modifiée à l'aide de Microsoft Office InfoPath.
Private Sub InternalStartup(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Startup
AddHandler EventManager.FormEvents.Submit, AddressOf FormEvents_Submit
AddHandler DirectCast(EventManager.ControlEvents("CTRL49_5"), ButtonEvent).Clicked, AddressOf CTRL49_5_Clicked
End Sub
Public Sub FormEvents_Submit(ByVal sender As Object, ByVal e As SubmitEventArgs)
' Si l'opération d'envoi est réussie, définir
' e.CancelableArgs.Cancel = False
' Tapez votre code ici.
End Sub
Public Sub CTRL49_5_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)
' Tapez votre code ici.
End Sub
End Class
End Namespace |
Partager