VB6 - Błąd typu niedopasowania argumentu ByRef - gdzie on jest?

Question

Od ponad 10 lat używam VB6, od czasu do czasu pojawia się błąd "Niedopasowanie typu argumentu ByRef", w którym po prostu nie mogę znaleźć niezgodności. Po chwili zmagań zawsze punted przez zmuszanie typu w ten czy inny sposób, ale tym razem myślałem, że zapytam. Załączam cały kod, który moim zdaniem może mieć coś z tym wspólnego; ale można pominąć go teraz i odnoszą się do niego po tym, jak wykazać problem:

Public Type PBufferType 
    Location(9) As Integer ' code location 
    ValueHi(9) As Integer ' Vhi code 
    ValueLo(9) As Integer ' Vlo code 
    Locked(9) As Integer ' State of pair 
    Gamma(9) As Single  ' Gamma between this segment and next 
End Type 

Public GammaBuffer(1) As PBufferType ' The main data type 

Public SelectedBank as Integer 

Function MeasureLuxAtCode(code As Integer) As Single 
    Call TestPatternForm.DrawTestWindow(3, code) 
    MeasureLuxAtCode = MeasureLux(1) 
End Function 

Problem pojawia się poniżej. Linia "LuxMinTarget = MeasureLuxAtCode (FirstLevel)" generuje błąd "Brak zgodności typu argumentu ByRef", wskazując, że FirstLevel nie jest liczbą całkowitą.

 
Sub DetermineIdealLuxCurve() 
    Dim FirstLevel, FirstDACtoMeasure As Integer 
    FirstDACtoMeasure = 0 
    FirstLevel = GammaBuffer(SelectedBank).Location(FirstDACtoMeasure) 
    LuxMinTarget = MeasureLuxAtCode(FirstLevel) 
End Sub 

Ale Dang nim Firstlevel jest liczbą całkowitą, prawda? Zmieniono int, jego wartość jest ustalana przez UDT, który zwraca int, więc dokąd się pomyliłem? Jeśli zmusić go do int takich jak to:

 
    LuxMinTarget = MeasureLuxAtCode(Int(FirstLevel)) 

kompilator/tłumacz jest szczęśliwy. Ale ja nie jestem.

Czy jest to błąd w kompilatorze, czy tylko gęsty?

Answer 1

Problemem jest tutaj:

Dim FirstLevel, FirstDACtoMeasure As Integer 

To rzeczywiście deklaruje FirstLevel jako Variant a nie jako Integer jak można się było spodziewać.

To klasyczna kostka VB6! (i nie jesteś pierwszym, który go ugryzł).

Deklarowanie zmiennej na linię unika problemu:

Dim FirstLevel As Integer 
Dim FirstDACtoMeasure As Integer 

Answer 2

Jako Mitch wskazał, VB6 deklaruje tylko ostatniej zmiennej na liście rozdzielany przecinkami jako jawnie typu zdefiniowane. Poprzednie wpisy są zadeklarowane, ale jako warianty.

Aby poprawnie zdefiniować zmienne, należy postępować z nimi indywidualnie.

Dim FirstLevel As Integer 
Dim FirstDACtoMeasure As Integer 

Tak było również w poprzednich wersjach VB, IIRC, a nie nowych dla VB6.

Answer 3

John T, Faktycznie można jawnie zadeklarować zmienne na liście.

Dim Firstlevel jak Integer, FirstDACtoMeasure As Integer