/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
ByRef i abstrakt klasse?
Fra : Stefan Kristensen


Dato : 21-10-02 14:59

Hej NG.

Jeg vil gerne kalde en funktion Getxy(x, y), hvor Getxy er defineret som
Getxy(ByRef x as integer, ByRef y as integer). Det virker også fint, men
hvis jeg vil definere Getxy i en abstrakt klasse og så implementer denne
klasse i en enden klasse, forsvinder ByRef fra definitionen i den nye
klasse.
Kan man ikke bruge ByRef i forbindelse med nedarvning?

mvh
Stefan



 
 
John Doe (21-10-2002)
Kommentar
Fra : John Doe


Dato : 21-10-02 15:27

Jeg kan ikke se at der sq være noget problem:

Har prøvet med flg. - men det kan da være jeg har misforstået hvad du mente
!?

-----------------------------------
Class1.cls
-----------------------------------
Option Explicit

Public Function test(ByRef iTest As Integer)

End Function


-----------------------------------
Class2.cls
-----------------------------------
Option Explicit

Implements Class1

Public Function Class1_test(ByRef iTest As Integer)
iTest = iTest - 1
End Function

-----------------------------------
form1.frm (m/ command button: CommandButton1
-----------------------------------
Private Sub Command1_Click()

Dim abc As Class2
Set abc = New Class2
Dim i As Integer
i = 10
abc.Class1_test i
MsgBox i
End Sub


"Stefan Kristensen" <a@a> wrote in message
news:3db40779$0$34845$edfadb0f@dspool01.news.tele.dk...
> Hej NG.
>
> Jeg vil gerne kalde en funktion Getxy(x, y), hvor Getxy er defineret som
> Getxy(ByRef x as integer, ByRef y as integer). Det virker også fint, men
> hvis jeg vil definere Getxy i en abstrakt klasse og så implementer denne
> klasse i en enden klasse, forsvinder ByRef fra definitionen i den nye
> klasse.
> Kan man ikke bruge ByRef i forbindelse med nedarvning?
>
> mvh
> Stefan
>
>



Stefan Kristensen (22-10-2002)
Kommentar
Fra : Stefan Kristensen


Dato : 22-10-02 10:57

> Har prøvet med flg. - men det kan da være jeg har misforstået hvad du
mente
> !?
Nej, det er hvad jeg mente. Men da ByRef manglede i Class1_test(ByRef iTest
As Integer) i Class2, når jeg valgte den i drop-down listen blev jeg i
tvivl. Jeg skulle selvfølgelig bare have prøvet selv.
Tak for hjælpen.

Stefan



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste