begin process at 2012 02 17 06:10:21
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

VB.NET et VB 2005

 > 

Divers

 > 

Débutants

 > 

le texte ne s'affiche pas dans un formulaire 2

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

le texte ne s'affiche pas dans un formulaire 2

mercredi 28 mai 2008 à 19:18:21 | le texte ne s'affiche pas dans un formulaire 2

sikove
salut ,

j'ai un ptit probleme avec les formulaires : on nous demande de faire 2 formulaire, le premier on fait entrer un texte et le 2eme l'affiche automatiquement

voila le code :

module :

Module Module1
    Public class1 As New Form1
    Public class2 As New Form2
    Public a As String
    Public b As Long

    Sub main()
        class1.Text = "Formulaire1"
        class2.Text = "Formulaire2"
        Application.Run(class1)

    End Sub
End Module

form1

Public Class Form1

    Private Sub quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitter.Click
        Dim msg = MsgBox("quitter maintenant ?", MsgBoxStyle.YesNoCancel, "quitter")
        If msg = MsgBoxResult.Yes Then
            Application.Exit()
        End If
    End Sub

    Private Sub toform2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toform2.Click
        a = class1.texte1.Text
        class1.Hide()
        class2.Show()
    End Sub
End Class

form2

Public Class Form2

    Private Sub quitter2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitter2.Click
        Dim msg = MsgBox("quitter maintenant ?", MsgBoxStyle.YesNoCancel, "quitter")
        If msg = MsgBoxResult.Yes Then
            Application.Exit()
        End If
    End Sub

    Private Sub texte2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles texte2.TextChanged
        class2.texte2.Text = a
    End Sub

    Private Sub nombre2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nombre2.TextChanged
        class2.nombre2.Text = b
    End Sub

    Private Sub toform1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toform1.Click
        class2.Hide()
        class1.Show()
    End Sub
End Class

quelqu'un sait d'ou peut venir le probleme ?

merci
mercredi 28 mai 2008 à 20:56:59 | Re : le texte ne s'affiche pas dans un formulaire 2

fauve

Membre Club
Salut,

Tu pourrais essayer de faire communiquer tes 2 formulaires.

Par exemple :

On a 2 forms class1 et class2

Dans la form class1, on a une TextBox ainsi que dans la form class2

Si on souhaite récupérer le contenu de la TextBox de class1 pour la mettre dans celle de class2

Code :

TextBox2.Text = class1.TextBox1.Text

Tu peux trouver plus de détail pour faire communiquer deux formulaire à cette adresse :

[ Lien ]

++
--------------------------------------------
Si la réponse vous convient : Réponse acceptée
jeudi 29 mai 2008 à 10:21:13 | Re : le texte ne s'affiche pas dans un formulaire 2

Wolfdream
L'idée est bonne. mais au lieu de mettre TextBox2.Text = class1.TextBox1.Text j'aurais mis :
TextBox2.Text = Form1.TextBox1.Text
jeudi 29 mai 2008 à 13:22:23 | Re : le texte ne s'affiche pas dans un formulaire 2

fauve

Membre Club
Salut,

Oui effectivement...

Mais j'ai repris l'exemple de sikove, dans son code, c'est deux forms s'appellent class1 et class2.

Et moi aussi, j'aurais préféré les nommer Form1 et Form2 pour éviter ainsi des confusions.

++
jeudi 29 mai 2008 à 14:01:43 | Re : le texte ne s'affiche pas dans un formulaire 2

sikove
merci pour l'aide, j'ai trouvé l'erreur ^^

voila le code corrigé :

Module Module1
    Public class1 As New Form1
    Public class2 As New Form2
    Public a As String
    Public b As Long

    Sub main()
        class1.Text = "Formulaire1"
        class2.Text = "Formulaire2"
        Application.Run(class1)

    End Sub
End Module

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

Public Class Form1

    Private Sub quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitter.Click
        Dim msg = MsgBox("quitter maintenant ?", MsgBoxStyle.YesNoCancel, "quitter")
        If msg = MsgBoxResult.Yes Then
            Application.Exit()
        End If
    End Sub

    Private Sub toform2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toform2.Click
        a = class1.texte1.Text
        class1.Hide()
        class2.Show()
    End Sub
End Class

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

Public Class Form2

    Private Sub quitter2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quitter2.Click
        Dim msg = MsgBox("quitter maintenant ?", MsgBoxStyle.YesNoCancel, "quitter")
        If msg = MsgBoxResult.Yes Then
            Application.Exit()
        End If
    End Sub

    Private Sub texte2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles texte2.TextChanged
        class2.texte2.Text = a
    End Sub

    Private Sub nombre2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nombre2.TextChanged
        class2.nombre2.Text = b
    End Sub

    Private Sub toform1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toform1.Click
        class2.Hide()
        class1.Show()
    End Sub

    Private Sub inserer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles inserer.Click
        class2.texte2.Text = a
        class2.nombre2.Text = b
    End Sub
End Class

pour ne pas faire un autre sujet : on clique où sur le form pour avoir form1_closing ou form1_activated ? j'ai cherché partout mais pas de solution, j'ai toute un tp à faire lié à ça

merci
jeudi 29 mai 2008 à 14:10:24 | Re : le texte ne s'affiche pas dans un formulaire 2

fauve

Membre Club
Salut,

Tu cliques de façon à mettre ton curseur dans ta procédure Form1_Load

et tu cliques dans l'encadré rouge comme sur l'image ci-dessous et tu choisis FormClosing

++


Cette discussion est classée dans : end, system, click, class1, byval

Répondre à ce message

Sujets en rapport avec ce message

vb.net 2008 [ par HermesCB ] Bonjour Voila j’ai fais en amateur du visual basic 6 et maintenant je tâte du vb.net Et il y a des choses que je ne sais plus faire Voila le code san Client server Vb .net [ par Hamz01 ] slt tout le monde, je viens de devellopper une interface qui permets de comuniquer avec un pc distant via le reseau. En effet, au niveau de l'interfa Zoo Image [ par KIPRE74 ] Bonjour à tous, j'utilse une petite appli pour charger une carte et pouvoir faire.le problème se situe au niveau du bouton zoom arrière. Lorsque je c pb de bouton [ par royalxm ] bonjours deja alors voila je suis royalxm et je veux cree un logiciel enfin mon premier logiciel petit j'ai cree voila une image donc voila je suis u aide visual basic pocket pc [ par xmicky ] bonjour je souhaite creer une application pocket pc toujours active qui ce met au 1er plan quand on passe le pocket pc en mode paysage et ce reduit au Problème compilateur [ par erokage ] Bonjour à tous,Je travaille sous Visaul Basic 2008, je débute un peux et mon problème est, que visual basic ne veut plus lancer de debug et que même l Aide pour une basse de données [ par rolodo ] bonjour a tout(e)s je m'explique dans vb 2008 j'ai commencé ceci : Atelier 4 - Manipuler des données de fichierje comprend pas tout mais j'essaie. ded Progressbar et TimeOfDay [ par spawnermax ] bonjour, voilà,j'ai voulu tout simplement faire, 3 Progressbar. seconds minutes heures pour l'heure et les minutes pas de problème! mais pour les Probleme winsock ? [ par bigbrother26 ] Bien le bonjours a tous! Depuis pas longtemps, je suis sur un assez gros projet (pour mes compétences!) Je souhaite réalisé une sorte de mini-chat en


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Monument Valley Utah known as The Mittens
Photo Bright Beautiful Daisy and Grass Field 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,262 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)