Récupérer un object initialisé dans une form depuis une autre formRésolu

Question

Bonjour, 


voilà j'ai repris le Vb après 5-6 ans d'absence, et je suis actuellement en train de faire un client Jabber avec la librairie agsXmpp.

Jusqu'ici tout marche bien ( gestion de la contact list, ouverture d'une nouvelle fenêtre avec récupération des informations du contact selectionné depuis la contactlist, etc.)

Ma question va peut-être paraître stupide mais voilà : 

J'ai mon objet agsxmpp qui est donc une instance de la librairie qui me permet de me connecter au serveur jabber et de recuperer les messages arrivant, la contact list, la presence, etc. dans ma form principale.

Lorsqu'on clique sur la contact list de la fenêtre principale, on ouvre une seconde dorm qui récupère les informations du contact selectionné : Seulement voilà je déclare une variable dans la seconde form pour récupérer mon objet de connexions de la fenêtre principale et là rien ne marche ....

petit exemple de code (fenêtre principale): 


objXmpp = New agsXMPP.XmppClientConnection
            Dim jid As agsXMPP.Jid
            jid = New agsXMPP.Jid(strLogin + "@domain.fr")

            objXmpp.Password = strPass
            objXmpp.Username = jid.User
            objXmpp.Server = jid.Server
            objXmpp.open()


appel de l'object depuis la seconde fenetre

Public Class chat
    Dim main As New Main   'Main est le nom de la fenêtre principale
    private sub unefonction_declenchant_lenvoi_dun_message
        main.objXmpp.Send(message)


Si quelqu'un à une idée, c'est fantastique !



Mieux vaut tard que deux tu l'auras

Utilisateur anonyme · Accepted Answer

Bonsoir,

on ouvre une seconde dorm qui récupère les informations du contact selectionné
Pourquoi ne passes tu pas l'objet construit dans ta form principale dans le constructeur New de la seconde fenêtre :
Public Class chat
    dim monobj as agsXMPP.XmppClientConnection
    sub new(obj as agsXMPP.XmppClientConnection)
      monobj = obj
    end sub
    private sub unefonction_declenchant_lenvoi_dun_message
        monobj.Send(message)

fourne · Answer

Super je vais essayer cela, 


En revanche petite question : ou dois je passer l objet dans la form principale au moment du : 



chat.shox (objXmpp ) ' chat est la seconde form

??

Mieux vaut tard que deux tu l'auras

Utilisateur anonyme · Answer

Bonjour,

Pour compléter l'exemple ci-dessus, il faut instancier ta form 'chat' et lui passer l'objet objXmpp dans le contructeur :
Dim MonChat as new chat(objXmpp)
Monchat.show


-----------------------

Mais tu peux aussi lui passer cet objet par une propriété :
Dim MonChat as new chat
Monchat.ObjetConnexion = objXmpp
MonChat.Show
 
Bien entendu après avoir conçu le code de cette propriété dans le formulaire chat :
writeonly property ObjetConnexion as agsXMPP.XmppClientConnection
set(value as agsXMPP.XmppClientConnection)
    monobj = value
end set
end property

Récupérer un object initialisé dans une form depuis une autre form

3 réponses

Votre réponse

Discussions similaires