COMMANDER UN CONTROLE SITUER UNE FORME DEPUIS UNE AUTRE FORM
Ben2998
Messages postés14Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention 1 novembre 2007
-
14 juin 2005 à 00:56
aoncoquin
Messages postés8Date d'inscriptiondimanche 1 avril 2001StatutMembreDernière intervention26 novembre 2008
-
11 déc. 2005 à 20:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
aoncoquin
Messages postés8Date d'inscriptiondimanche 1 avril 2001StatutMembreDernière intervention26 novembre 2008 11 déc. 2005 à 20:55
thx :)
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 juin 2008 14 juin 2005 à 09:59
Remarquez, ca aussi fonctionne tres bien :
Public Sub LoadMem(ByVal NForm As Form)
If TypeOf NForm Is Form1 Then
NForm1 = Form1
ElseIf TypeOf NForm Is Form2 Then
NForm2 = Form2
End If
End Sub
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 juin 2008 14 juin 2005 à 09:20
Salut, sinon dans 1 seule procédure (ça evite d'en avoir beaucoup) :
Public NForm1 As Form1
Public NForm2 As Form2
Public Sub LoadMem(ByVal NForm As Object)
If TypeOf NForm Is Form1 Then
NForm1 = CType(NForm, Form1)
ElseIf TypeOf NForm Is Form2 Then
NForm2 = CType(NForm, Form2)
End If
End Sub
Ben2998
Messages postés14Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention 1 novembre 2007 14 juin 2005 à 00:56
J'utilises VB8 (.net 2005) et je suis heureux d'annoncer que ce problème est réglé dans cette version. Merci quand même d'avoir enregistrer ce bout de code! ^_^
11 déc. 2005 à 20:55
14 juin 2005 à 09:59
Public Sub LoadMem(ByVal NForm As Form)
If TypeOf NForm Is Form1 Then
NForm1 = Form1
ElseIf TypeOf NForm Is Form2 Then
NForm2 = Form2
End If
End Sub
14 juin 2005 à 09:20
Public NForm1 As Form1
Public NForm2 As Form2
Public Sub LoadMem(ByVal NForm As Object)
If TypeOf NForm Is Form1 Then
NForm1 = CType(NForm, Form1)
ElseIf TypeOf NForm Is Form2 Then
NForm2 = CType(NForm, Form2)
End If
End Sub
14 juin 2005 à 00:56