Form1 et form2

Résolu
cs_guyvdv
Messages postés
101
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
19 mai 2011
- 30 oct. 2005 à 11:29
cs_guyvdv
Messages postés
101
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
19 mai 2011
- 1 nov. 2005 à 18:56
Bonjour

J'ai creer la form1 et la form2.

Dans la form2 je click une foi sur la form(2) et je veu que le titre de la form1 change

En VB6 cela est sans probleme.

En VB.net je n'arrive pas.



example

---------------------------------------------------------------------------------



Public Class Form1

Inherits System.Windows.Forms.Form





Private Sub btnShowForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowForm.Click

Dim F2 As New Form2

F2.Show()

End Sub

End Class

------------------------------------------------------------------------------

Public Class Form2

Inherits System.Windows.Forms.Form



Dim F1 As New Form1





Private Sub Form2_Load(ByVal sender As System.Object, _


ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "Clickez la form"

End Sub



Private Sub Form2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click

F1.Text = " Voila c'est fai"

F1.Show()

End Sub

End Class

----------------------------------------------------------------------

L'example ici desus ne fai que creer une multitude de form, mais quand j'enleve

dim F as new Form1, le titre de form1 n'a pas changer.



IL y a qq qui peu m'aider par ici ???



merci de depencer un peu de votre temps precieux.

A+


Guy van der Velden

6 réponses

Charles Racaud
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
1 nov. 2005 à 11:31
Oui, en effet, il créait la form dans le load.

Il suffit alors de la crée a chaque fois qu'on clique sur le bouton



Voilà, ceci devrai marcher:





Public Class Form1

Inherits System.Windows.Forms.Form



Private WithEvents F2 As Form2



Private Sub btnShowForm2_Click(ByVal sender As System.Object, _


ByVal e As System.EventArgs) Handles btnShowForm2.Click

F2 = New Form2

F2.Text = "Form 2, Clickez la form pour changer le titre de form1"

F2.Show()

End Sub



Private Sub F2_Click(ByVal sender As Object, _


ByVal e As System.EventArgs) Handles F2.Click

Static i1 As Integer

'

i1 = i1 + 1

Me.Text = " Voila c'est fait" & CStr(i1)

End Sub



End Class



Public Class Form2

Inherits System.Windows.Forms.Form



Private Sub Form2_Load(ByVal sender As System.Object, _


ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "Si vz Clickez la cette form(2), le titre de form1 change"

End Sub

End Class



Désolé pour la mise en forme, ca ne marche pas comme je le voudrais.


Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
3
Doro81079
Messages postés
380
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
24 février 2015
56
30 oct. 2005 à 12:13
bonjour,

j'ai pas regarder plus que ça ton code
mais essais comme ça :

Dim F1 As New Form1
F1.Show()
F1.Text = " Voila c'est fai"

Salut
Doro
0
Doro81079
Messages postés
380
Date d'inscription
vendredi 22 avril 2005
Statut
Membre
Dernière intervention
24 février 2015
56
30 oct. 2005 à 12:16
ps : desolé


"votre code et essayez comme ça"
0
Charles Racaud
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
30 oct. 2005 à 14:49
Bonjour,



Mieux faut géré ca dans la From1:



Public Class Form1

Inherits System.Windows.Forms.Form



Private WithEvents F2 As Form2

Private Sub btnShowForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowForm.Click

F2 = New Form2

F2.Show()

End Sub



Private Sub F2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles F2.Click

Me.Text = " Voila c'est fait"

End Sub

End Class



Public Class Form2

Inherits System.Windows.Forms.Form



Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Text = "Clickez la form"

End Sub



End Class


Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_guyvdv
Messages postés
101
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
19 mai 2011
1
1 nov. 2005 à 08:49
reponse a Kenji

Bonjour Charles,

ca ne fonctionne pas comme je veu,

D'abord j'ai du change un peu le script, mais pas d'importance.

Alors j'ai mis mon script sur http://gvdv.free.fr/Form1Form2.zip

Tu peu appeler la premiere foi la form2,

Tu peu cliques sur cette form(2)

Le titre de form 1 change evidamment

tu ferme form2

tu reclique dans form 1 sur le bouton

... est la ca se guage , dommage , on est a mi chemin.

Merci de me repondre

A+

Guy van der Velden
0
cs_guyvdv
Messages postés
101
Date d'inscription
samedi 16 mars 2002
Statut
Membre
Dernière intervention
19 mai 2011
1
1 nov. 2005 à 18:56
Merci Charles, ca fonctionne comme je veu
A+
Guy van der Velden
0