1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Collection em vb6

Discussão em 'Programação' iniciada por palmoura, 9 de Janeiro de 2009. (Respostas: 1; Visualizações: 1992)

  1. Boas pessoal,
    precisava de uma ajudita. Eu tenho uma Collection em vb6 e precisava do seguinte:

    Código:
    Option Explicit
    Private mycolAvailable As New Collection
    
    Private Sub Command1_click()
    Dim obj As String
    Dim x As Integer, i As Integer
    
        
        mycolAvailable.Add 1430, "1"
        mycolAvailable.Add 1432, "2"
        mycolAvailable.Add 0, "3"
        mycolAvailable.Add 0, "4"
        mycolAvailable.Add 1436, "5"
        mycolAvailable.Add 1466, "6"
        mycolAvailable.Add 0, "7"
        mycolAvailable.Add 0, "8"
        mycolAvailable.Add 0, "9"
        mycolAvailable.Add 0, "10"
    
    
    VerificaTimerLivre (6)
    x = ProximoTimerLivre()
    
    
    End Sub
    
    
    Private Function VerificaTimerLivre(timerindex As String) As Boolean
      If mycolAvailable(timerindex) = 0 Then
          VerificaTimerLivre = True
      Else
          VerificaTimerLivre = False
      End If
    
    End Function
    
    Private Function ProximoTimerLivre() As Integer
      Dim i As Integer
    
      For i = 1 To 10
        If mycolAvailable(i) = 0 Then
           ProximoTimerLivre = i
           Exit Function
        End If
      Next i
      ProximoTimerLivre = -1
    End Function
    
    Onde tenho valores a 0 significa que aquela posicao está livre, eu procuro qual e o proximo que esta livre e o que quero fazer é na posicao que esta livre quero la colocar 1 valor qualquer.
    Alguem sabe se isto é possível e como poderei fazer?

    Cumpts
     
  2. Problema resolvido, em vez de collection coloquei uma listbox até para poder ter um controlo visual da coisa.
     

Partilhar esta Página