vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest poniedziałek, 29 kwietnia 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Rozmiar tablicy.


otwartyotwarty rozpoczął: grzegorz0379 postów: 4



napisał: grzegorz0379
postów: 76


umieszczony:
2 listopada 2012
18:08

  
Dzięki
napisał: Trebor
postów: 1209


umieszczony:
27 października 2012
14:31

  
Znalazłem coś takiego
Sub ff()
Dim tabla()
'ReDim tabla(1 To 10)

If (Not Not tabla) <> 0 Then
    MsgBox "inicjalizowana"
        Else
            MsgBox "bez inicjalizacji"
                End If
End Sub

napisał: admin
postów: 613


umieszczony:
27 października 2012
14:03

  
Witam,


Otóż nie jest to możliwe, spotkałem się z tym problemem. Można go obejść na kilka sposobów, niemniej ja używam dwóch:
1. Zamiast tablic - kolekcje.
2. Własny typ danych:

Public Type MojaTabela
Tablica()
Initialized as Boolean
End Type



Następnie w momencie dodania do tej tablicy elementu ustawienie zmiennej Initialized na True:

Dim oTab as MojaTabela

Redim Preserve oTab.Tablica(0 to 0)
oTab.Tablica(0)=1
oTab.Initialized =True



pozdrawiam
admin

Cytat:
Witam wszystkich,

Sprawdzam rozmiar tablicy poleceniem ubound. Jak nie został zdefiniowany jej rozmiar to wyskakuje błąd. Czy jest możliwość wcześniejszego sprawdzenia czy został określony w ogóle rozmiar tablicy?
napisał: grzegorz0379
postów: 76


umieszczony:
27 października 2012
11:31

  
Witam wszystkich,

Sprawdzam rozmiar tablicy poleceniem ubound. Jak nie został zdefiniowany jej rozmiar to wyskakuje błąd. Czy jest możliwość wcześniejszego sprawdzenia czy został określony w ogóle rozmiar tablicy?


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z