steeventide
Messages postés379Date d'inscriptionvendredi 10 juillet 2009StatutMembreDernière intervention 8 mars 2021
-
3 juil. 2009 à 01:38
cs_ghuysmans99
Messages postés3983Date d'inscriptionjeudi 14 juillet 2005StatutMembreDernière intervention30 juin 2013
-
3 juil. 2009 à 08:08
Bonjour, je crée une appliation dont je demande l'activation pour pouvoir profiter des fonctionalités complètes. Le seul problème, c'est que j'aimerais que lorsque je clique sur le bouton "Activer" de la boite de dialogue, il m'envoie le contenu des textbox à mon adresse e-mail que j'ai placés de cette manière :
Ex : textbox1 = 1
button1 b1
Nom complet : 1
CD-Key : 2-3-4-5-6
E-Mail : 7
Commentaires : 8
b2 = me rappeler plus tard
b1 Activer
steeventide
Messages postés379Date d'inscriptionvendredi 10 juillet 2009StatutMembreDernière intervention 8 mars 2021 3 juil. 2009 à 04:26
et si possible, puurriez-vous m'aider à l'implanter dans mon code de ma fenêtre d'activation ?
=============================================
Public Class activation
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click, Label5.Click
End Sub
Dim form1 As Form1
Dim activation As activation
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click
activation = New activation
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.TextLength = 5 Then
TextBox3.Focus()
End If
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If TextBox3.TextLength = 5 Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
If TextBox4.TextLength = 5 Then
TextBox5.Focus()
End If
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
If TextBox5.TextLength = 5 Then
TextBox6.Focus()
End If
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
End Sub
Private Sub activation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MessageBox.Show("Votre produit doit être activé. Veuillez suivre les instructions relatives à l'activation dans la prochaine fenêtre", "Activation requise", MessageBoxButtons.OK, MessageBoxIcon.Exclamation,MessageBoxDefaultButton.Button1)
End Sub
End Class
steeventide
Messages postés379Date d'inscriptionvendredi 10 juillet 2009StatutMembreDernière intervention 8 mars 2021 3 juil. 2009 à 04:27
Public Class activation
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click, Label5.Click
End Sub
Dim form1 As Form1
Dim activation As activation
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button3.Click
activation = New activation
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.TextLength = 5 Then
TextBox3.Focus()
End If
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
If TextBox3.TextLength = 5 Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
If TextBox4.TextLength = 5 Then
TextBox5.Focus()
End If
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
If TextBox5.TextLength = 5 Then
TextBox6.Focus()
End If
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
End Sub
Private Sub activation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MessageBox.Show("Votre produit doit être activé. Veuillez suivre les instructions relatives à l'activation dans la prochaine fenêtre", "Activation requise", MessageBoxButtons.OK, MessageBoxIcon.Exclamation,MessageBoxDefaultButton.Button1)
End Sub
End Class