Public vLans As New Collection
Call vLans.Add(100) ' 100 est la valeur à ajouter
Call vLans.Remove(1) ' 1 est l'index de la valeur à supprimer
vLans.Item(1) ' 1 est l'index de la valeur à lire
vLans.Count
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSolution directe, un tableau dynamique et publique dans un module. Dans ce cas, les valeurs seront disponibles le temps de l'execution du programme.
Private Sub Form_Load() Me.Left = (Screen.Width - Me.Width) \ 2 Me.Top = (Screen.Height - Me.Height) \ 2 End Sub Public Sub Ajouter_Click() Call Vlan End Sub Private Sub Terminer_Click() 'Fermeture de la fenetre AjouterVlan.Hide End Sub Private Function Vlan() 'Ajout d'un Vlan If VlanName.Text = "" Then ConfCisco48.MSComm1.Output = "end" & vbCr & "configure terminal" & vbCr & "vlan " & VlanADD.Text & vbCr & "end" & vbCr Else ConfCisco48.MSComm1.Output = "end" & vbCr & "configure terminal" & vbCr & "vlan " & VlanADD.Text & vbCr & "name " & VlanName.Text & vbCr & "end" & vbCr End If Call vLans.Add(VlanADD.Text) 'Remise a zero des champs VlanADD = "" VlanName = "" End Function
Private Sub Form_Load() Me.Left = (Screen.Width - Me.Width) \ 2 Me.Top = (Screen.Height - Me.Height) \ 2 End Sub Public Sub Ajouter_Click() Call Vlan Call vLans.Add(VlanADD.Text) 'Remise a zero des champs VlanADD = "" VlanName = "" End Sub Private Sub Terminer_Click() 'Fermeture de la fenetre AjouterVlan.Hide End Sub Private Function Vlan() 'Ajout d'un Vlan If VlanName.Text = "" Then ConfCisco48.MSComm1.Output = "end" & vbCr & "configure terminal" & vbCr & "vlan " & VlanADD.Text & vbCr & "end" & vbCr Else ConfCisco48.MSComm1.Output = "end" & vbCr & "configure terminal" & vbCr & "vlan " & VlanADD.Text & vbCr & "name " & VlanName.Text & vbCr & "end" & vbCr End If End Function