Form1, Form2
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
-
28 janv. 2006 à 22:57
Utilisateur anonyme - 29 janv. 2006 à 12:00
Utilisateur anonyme - 29 janv. 2006 à 12:00
5 réponses
Utilisateur anonyme
28 janv. 2006 à 23:46
28 janv. 2006 à 23:46
Bonsoir,
Un example:
Il faut 2 form, une de démarrage "Form1" contenant un bouton("Button1") et une autre "Form2" contenant une label'"Label1")
Dans Form1:
Private Form2 As Form2
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form2 = New Form2
Form2.Show()
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Label1.Text = "Hello World !!!"
End Sub
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Un example:
Il faut 2 form, une de démarrage "Form1" contenant un bouton("Button1") et une autre "Form2" contenant une label'"Label1")
Dans Form1:
Private Form2 As Form2
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form2 = New Form2
Form2.Show()
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Label1.Text = "Hello World !!!"
End Sub
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
29 janv. 2006 à 00:29
29 janv. 2006 à 00:29
Si je veux le faire entre un module et une form ca ne marche pas par contre ....
Une solution ?
Shell
Une solution ?
Shell
cs_seozus
Messages postés
14
Date d'inscription
samedi 25 septembre 2004
Statut
Membre
Dernière intervention
30 janvier 2006
29 janv. 2006 à 01:53
29 janv. 2006 à 01:53
Si tu veux modifier un caption sur une autre form, met le en préfixe, exemple:
On_Click
Label1.Caption = "Hey!"
deviendra
On_Click
Form2.Label1.Caption = "Hey!!"
C'est bien ce que tu voulais ?
Fais juste nommer la form sur laquelle tu veux modifier une propriété à l'avant du nom de l'objet.
On_Click
Label1.Caption = "Hey!"
deviendra
On_Click
Form2.Label1.Caption = "Hey!!"
C'est bien ce que tu voulais ?
Fais juste nommer la form sur laquelle tu veux modifier une propriété à l'avant du nom de l'objet.
cs_Stephane33
Messages postés
630
Date d'inscription
samedi 15 février 2003
Statut
Modérateur
Dernière intervention
9 octobre 2011
1
29 janv. 2006 à 10:06
29 janv. 2006 à 10:06
Peut-être qu'un projet de type MDI serait plus judicieux, et Form2 renvoie une information à la form parent..
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Utilisateur anonyme
29 janv. 2006 à 12:00
29 janv. 2006 à 12:00
Un module n'a pas de constructeur, on peut donc l'appeller directement
Dans le même example que précédent. Un bouton sur Form1, une label sur Form2:
Tu peut mettre le module dans n'importe quel fichier mais directement dans l'espace de nom
Public Module UnModule
Public Form1 As Form1
Public Form2 As Form2
Public UneString As String
End Module
Dans Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
UnModule.Form2.Label1.Text = UnModule.UneString
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
UnModule.Form1 = Me
UnModule.Form2 = New Form2
UnModule.Form2.Show()
UnModule.UneString = "Hello World !!!"
End Sub
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Dans le même example que précédent. Un bouton sur Form1, une label sur Form2:
Tu peut mettre le module dans n'importe quel fichier mais directement dans l'espace de nom
Public Module UnModule
Public Form1 As Form1
Public Form2 As Form2
Public UneString As String
End Module
Dans Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
UnModule.Form2.Label1.Text = UnModule.UneString
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
UnModule.Form1 = Me
UnModule.Form2 = New Form2
UnModule.Form2.Show()
UnModule.UneString = "Hello World !!!"
End Sub
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
