Tablica typów w procedurze

Question

Dzień dobry.

Mam problem v Visual Basic 6.

Postaram się dokładnie sprecyzować zagadnienie na przykładzie. Mam taki kod:

Public Type typBudowa
     Dom As Boolean
     Sklep As Boolean
     Kościół As Boolean
End Type

Public Budowy(10) As typBudowa

Public Sub Odwiedź (ByRef Budynek As typBudowa)

     ' ... kod

     Dim i As Integer

     For i=1 To 10
          If Budynek(i) Then
          ' ... kod
          End If
     Next i

End Sub

' wywołanie procedury:

Odwiedź Kościół(2)

Problem polega na tym, że wewnątrz procedury Odwiedź nie mogę sprawdzić wszystkich elementów tablicy Budynek ponieważ Budynek jest w tym wypadku odnośnikiem do drugiego elementu Kościół. Czy można to w jakiś sposób rozwiązać? Innymi słowy, że bez względu jaki typ budowy wywołam w procedurze będę mógł sprawdzić wszystkie elementy tablicy.

Answer 1

Nie mam już dostępu do VB6 (piszę z głowy, czyli z niczego  ), ale spróbuj tak

Public Sub Odwiedź (ByRef Budynek As typBudowa, ByVal Index As Integer)
 
     ' ... kod
 
     Dim i As Integer
 
     For i=1 To 10
          ' If i = Index Then
          If Budynek(i) = Budynek(Index) Then
          ' ... kod
          End If
     Next i
 
End Sub
 
' wywołanie procedury:
 
Odwiedź Kościół, 2

 

BTW, polecam przejść na VB.Net.   ( vb6 v. vb.net )

Comments

Dziękuję za odpowiedź, ale niestety to nie będzie działać. Problem w tym, że VB6 nie pozwala wywołać procedurę bez indeksu tablicy (już próbowałem). Jeżeli jest tablica o wielu elementach to musi być podany konkretny element. W innym przypadku wystąpi błąd 'Expected array'.Więc nie można się wewnątrz procedury odwołać do objektu jako takiego czyli ogólnie. Problem ten oczywiście rozwiązałem w inny sposób na zewnątrz procedury ale ciekawi mnie czy to w ogóle jest możliwe.

---

@VBService, Dlaczego miałbym przejść na VB.Net? Proszę o odpowiedź.

---

Napisałem,

polecam

a nie, że musisz, czy coś w tym stylu (po co ta pogrubiona czcionka?)

a tu jedno z wielu porównań dostępnych w "sieci": Difference Between Visual Basic and Visual Basic.Net (VB6 and VB.net)

---

To nie było pytanie złośliwe. Po prostu pytanie. A co do czcionki to szczerze nie pomyślałem nawet, że mogła by kogoś urazić czy coś w tym stylu. Myślę, że są wszyscy zbyt przewrażliwieni tym internetowym bontonem ale takie mamy dziwne czasy. Jeszcze raz podkreślam, że nie miałem nic złego na myśli. Jeżeli tak to zabrzmiało to przepraszam    

A jeżeli chodzi o VB6 to do moich potrzeb wystarczy choć oczywiście zawsze jest fajnie wypróbować coś innego. 

Dziękuję za odpowiedź i pozdrawiam 

P.S. Można w takiej odpowiedzi wstawiać zółte buźki?

---

Można wstawiać , gorąco Ciebie namawiam do przejścia na VB w wersji .NET, bo jest on w pełni dojrzałym środowiskiem programowania OOP (zobaczysz pozytywną zmianę, na początku może się wydawać "skomplikowany", biblioteki dotnet-owe oferują bogaty wachlarz możliwości), też długie lata "używałem" VB6 i tak np. najbardziej pamięta to, że jak chciałem "sięgnąć" za jego pomocą do zasobów sprzętowych, chodziło o generację dźwięku to musiałem robić "masę" odwołań do dll-ek systemowych, używać dużej ilości plików bas, ciężko było po jakimś czasie zapanować nad tym kodem, gdy się wracało do projektu po jakimś czasie przerwy. Ostatnia sprawa VB6 nie jest już wspierane przez MS-a.

 

P.S. W net etykiecie zdania (nie pojedyncze słowa - wskazanie na słowo "klucz"  ) pisane pogubioną czcionką, ukazują, że internauta piszący je, jest np. poirytowany, zdenerwowany, jakby je wypowiadał to by to robił podniesionym głosem i tu nie chodzi tylko o ...

Myślę, że są wszyscy zbyt przewrażliwieni tym internetowym bontonem ale takie mamy dziwne czasy.

Pozdrawiam.