salve
mi sono e' sorto un dubbio 2 dubbi su matrici dinamiche
al primo giro Ubound(mioArray) mi da' errore
l'unico modo e' testare se e' vuoto? con una funzione esterna?
se scrivo
dim mioArray() ' matrice dinamica quidi VARIANT
Private Sub Command_Click()
If ArrayNoDimensioni(mioArray) Then
nIndexArray = 0
Else
' aggiungo una componente
nIndexArray = UBound(mioArray) + 1
End If
ReDim Preserve mioArray(nIndexArray)
mioArray(nIndexArray) = nValore
End Sub
Function ArrayNoDimensioni(mioArray() As Variant) As Boolean
On Error GoTo ArrayNoDimensioni_Error
Debug.Print UBound(mioArray)
ArrayNoDimensioni = False
On Error GoTo 0
Exit Function
ArrayNoDimensioni_Error:
ArrayNoDimensioni = True
End Function