Bir dizinin boyutunu öğrenmek

[hsayar]

Sub testDiziBoyutu()
Dim arr()
ReDim arr(1 To 5)
[COLOR=Red]'DiziBoyutu = ??  '1 dönecek[/COLOR]
Stop
ReDim arr(1 To 5, 1 To 8)
'[COLOR=Red]DiziBoyutu = ??   '2 dönecek[/COLOR]
Stop
ReDim arr(1 To 5, 1 To 8, 1 To 10)
'[COLOR=Red]DiziBoyutu = ??   '3 dönecek[/COLOR]
Stop
'MsgBox "arr dizisi " & DiziBoyutu & " boyutludur"

End Sub

yukarıdaki kırmızı satırlar nasıl düzenlenmelidir?

 

[janveljan]

http://msdn.microsoft.com/en-us/library/system.array_properties(VS.80).aspx
bu adreste konuyla ilgili bilgi var.

 

[hsayar]

ilginize teşekkür ederim ama fonksiyonları denediğimde sub or function not defined, yani sun yada fonksiyon tanımlşı değil hatası alıyorum.

 

[janveljan]

Zannediyorum bu mscorlib (in mscorlib.dll) dosyası ile ilgili olabilir, kütüphane dosyaları ile iligli fazla bilgim yok ama zannediyorum bu dosyayı elde etmek ve en başa da bununla ilgili en başa kod yazmak gerekiyor.

 

[hsayar]

Zannediyorum bu mscorlib (in mscorlib.dll) dosyası ile ilgili olabilir, kütüphane dosyaları ile iligli fazla bilgim yok ama zannediyorum bu dosyayı elde etmek ve en başa da bununla ilgili en başa kod yazmak gerekiyor.

bilgisi olna arkadaşların yardımını bekliyorum.

 

[Levent Menteşoğlu]

Bunun için özel bir fonksiyon varmı bilmiyorum ama aşağıdaki gibi bir kullanıcı tanımlı fonksiyonla bulunabilir.

Sub testDiziBoyutu()
Dim arr()
ReDim arr(1 To 5)
'DiziBoyutu = ??  '1 dönecek

ReDim arr(1 To 5, 1 To 8)
'DiziBoyutu = ??   '2 dönecek

ReDim arr(1 To 5, 1 To 8, 1 To 10)

'DiziBoyutu = ??   '3 dönecek
 
MsgBox "arr dizisi " & diziboyutsayisi(arr) & " boyutludur"
 
End Sub

Function diziboyutsayisi(dizi)
On Error GoTo 10
If IsArray(dizi) = True Then
For a = 1 To 100
If UBound(dizi, a) > 0 Then c = c + 1
Next
End If
10 diziboyutsayisi = c
End Function

 

[hsayar]

teşekkür ederim hocam.