le texte ne s'affiche pas dans un formulaire 2 - Divers / Débutants, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 01 16:21:04

[LINQ TO WIQL] LES DESSOUS DU PROVIDER (PART 1: INTRODUCTION) par Miiitch

SHAREPOINT 2007 : ACTIVATION DE FEATURES ET ACTIVATIONDEPENDENCIES par phil

DOCUMENT W3C SUR L'ACCESSIBILITé DE SILVERLIGHT 2.0 par neodante

VISUAL STUDIO TALK SHOW par Matthieu MEZIL

QUAKELIGHT, UN PORTAGE DE QUAKE EN SILVERLIGHT ! par Yannick

RE : GESTION DE FICHIER SUR VB DOT NET par heiven

RE : GESTION DE FICHIER SUR VB DOT NET par fauve

RE : BOUBLE_CLICK SUR LISTVIEW par fauve

DIMENSION IMAGE par gabkiel

AFFICHAGE DES SCROLLBARS DANS UN TEXTBOX MULTILIGNE DANS EXCEL par philou082

+ de logiciels à télécharger

1 300 664 membres
388 nouveaux aujourd'hui
14 547 membres club

Trouver une ressource

Trouvez une ressource parmi 39 069 codes, 1 207 695 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : le texte ne s'affiche pas dans un formulaire 2 [ Divers / Débutants ] (sikove)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / VB.NET et VB 2005 / Divers / Débutants / le texte ne s'affiche pas dans un formulaire 2
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

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

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
	Rép. MP 16 msg

jeudi 29 mai 2008 à 13:22:23 | Re : le texte ne s'affiche pas dans un formulaire 2

fauve	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. ++
	Rép. MP 358 msg 386 msg CS

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	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 ++
	Rép. MP 358 msg 386 msg CS

Cette discussion est classé 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 je suis bloquer merci de m'aider [ par royalxm ] donc voila je suis bloquer je arrive pas a chercher des tutorial je fait un petit donc mon probleme je sais pas comment faire pour quand il clique su probleme de connection avec sql server 2000 [ par bloule ] Imports System.Data.SqlClientPublic Class Form1 Inherits System.Windows.Forms.Form Dim con As New SqlConnection 'chaine de connection Private tcpClientConnect.GetStream() [ par Marko007 ] Bonjour,je souhaite programmer un serveur TELNET avec TcpListener, TcpClient, NetworkStream,...Avec ce programme ci-dessous, un client TELNET se conne Form (Load / Unload) [ par Marko007 ] Bonjour,avez-vous un conseil (ou du code) pour afficher une Form1 en dé-saffichant une autre Form2et vice-versa. MAIS ;o) Sinon c'est trop facile : L' Update [ par VladDracula ] Voilà, j'ai fait un tit code qui marche pas mal mais je voudrais 'l'optimiser'.Cela consiste à regarder si on a la bonne version puis de télécharger l