Será isto?Dim x As Array
Array.Clear(x, IndiceInicial, TamanhoArray)
é mais simples e menos custoso a nivel de ciclos fazer dois redim'sUma coisa assim deve resultar:
Em arrays multidimensionais é ligeiramente mais complicado, mas não sei se será o caso.Código:For n = LBound(array) To UBound(array) array(n) = "" Next n
redim vector(1)
redim vector (OTeuValor)
Eu sei, mas se tiveres dimensionado a variável com um valor fixo, i.e. "Dim array(2)", não podes fazer um ReDim depois.é mais simples e menos custoso a nivel de ciclos fazer dois redim's
Código:redim vector(1) redim vector (OTeuValor)
simEu sei, mas se tiveres dimensionado a variável com um valor fixo, i.e. "Dim array(2)", não podes fazer um ReDim depois.
Para poderes fazer isso, tens de a inicializar com um "Dim array()" e um "ReDim array(2)" para mais tarde poderes fazer o que fizeste
Option Explicit
Private Sub Form_Load()
Dim vector()
Dim i As Integer
ReDim vector(5)
For i = 0 To 5
vector(i) = i
Next
ReDim vector(1)
ReDim vector(5)
For i = 0 To 5
vector(i) = i
Next
End Sub
For i = LBound(Picture1) To UBound(Picture1)
Picture1(i).Picture = LoadPicture("[B]<nome>[/B].jpg")
EndIf
Mesmo assim, pela forma que usaste o código, não tens desculpamas eu como sou um grande noob na coisa
Private Sub Picture1_Click(Index As Integer)
If lblrestantes.Caption = 0 Then
MsgBox ("Ganhou")
MsgBox ("Deseja tentar outra vez ?,vbYesNo, Confirmação")
Else
If lbltentativas = 0 Then
If MsgBox("Perdeu, deseja tentar outra vez?", vbYesNo, "Confirmação") = vbYes Then
For i = Picture1.LBound To Picture1.UBound
Picture1(i).Picture = LoadPicture("mina.jpg")
[B] Next i[/B]
Else
End
End If
Else
lbltentativas = lbltentativas - 1
End If
For i = 0 To 6
If Index = Chave(i) Then
Picture1(Index).Picture = LoadPicture("mina.jpg")
lblrestantes.Caption = Val(lblrestantes.Caption) - 1
End If
Next
If Picture1(i).Picture = LoadPicture("mina.jpg") Then
' lblrestantes.Caption = Val(lblrestantes.Caption) - 1
End If
End If
End Sub