Recherche d'un nom d'objet

Question

Bonjour,

J'ai cr&#233;er un mini Explorer internet, dans ce projet, j'ai une MDIForm et une form fille de cette mdi.
dans cette form fille, j'ai un controle webbrowser appel&#233; brwWebBrowser.
dans son evenement NewWindow2 j'ai ceci

Private Sub brwWebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = pup
If pup = True Then GoTo fin
'
Dim frmWB As form1
Set frmWB = New form1
Set ppDisp = frmWB.brwWebBrowser.Object
frmWB.cboAddress.Text = brwWebBrowser.LocationURL
frmWB.Tag = frmWB.Name
frmWB.Visible = True
Set frmWB = Nothing
fin:
End Sub

Cela cr&#233;er et ouvre une nouvelle form pour les nouvelle page Web.

Ma question est :
Comment par la suite, puis je connaitre le nom d'objet de la form ainsi cr&#233;&#233;e.

Merci pour votre aide. ( c'est du vb)

madflo · Answer

vue que personne r&#233;pond &#224; ma question j'ai tent&#233; de r&#233;pondre &#224; ta
question mais je reconnais, c'est bizard il n'y a m&#234;me aps de
form1.index... Donc j'ai plein de pages internet sans savoir qui elles
sont. Je tente avec la collection forms et je reviens

madflo · Answer

bon j'ai bidouill&#233; j'affecte la valeur d'index de la collection forms
dans le tag, &#224; toi de voir comment uv eux faire... Je r&#233;initialise avec
une proc&#233;dure du genre :



Sub rename()



    For i = 1 To Forms.Count - 1

        Forms(i).Caption = "Navigateur n&#176;" & i

        Forms(i).Tag = i

    Next



End Sub



&#233;vitant la forms(0) car c'est ma MDI



j'ai un timer &#233;teint dans ma MDI qui lorsqu'on l'active attend
50millisecondes et lance rename(). Donc lorsque tu supprimes une
feuille r&#233;active le timer de ta mdi.



Private Sub Timer1_Timer()

rename

Timer1.Enabled = False



End Sub



donc tu g&#232;res avec la collection Forms... A prendre ou a laisser je n'ai plus le temps d'y r&#233;fl&#233;chir

Recherche d'un nom d'objet

2 réponses

Discussions similaires