/ 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
CreateObject / interfaces/ late binding
Fra : John Doe


Dato : 05-09-02 14:18

Hej,

kan man kalde en "nedarvet" klasse i VB via CreateObject ?

Mit eksempel er som følger:
(Som virker fint med early-binding)

'--------------------------------------------------
'Abstrakt klasse [cases.cls]
'--------------------------------------------------
Option Explicit

Public Function Killer() As String

End Function
'--------------------------------------------------

'Klasse som implementerer [cases.cls]: case1.cls:
'--------------------------------------------------
Option Explicit
Implements Cases

Private Function Cases_Killer() As String
Cases_Killer = "Case 1: "
End Function

'--------------------------------------------------


Dim tamtam
set tamtam = CreateObject("Tjatiiing.case1")

debug.print tamtam.Killer() ' <-Her fejler den !!

'-------------------------------------



mvh/robert




 
 
John Doe (05-09-2002)
Kommentar
Fra : John Doe


Dato : 05-09-02 14:41

Til alle jer som bare hungrer efter svar på dette utrolig dejlige
spørgsmål - kan det meddeles at svaret findes på:

http://support.microsoft.com/default.aspx?scid=KB;EN-US;q188716&

Suk - basic er sq for latterligt til tider - anyway; frem med den store VC++
6.0 compiler.

robert

"John Doe" <john@doe.com> wrote in message
news:al7lhu$uce$1@news.net.uni-c.dk...
> Hej,
>
> kan man kalde en "nedarvet" klasse i VB via CreateObject ?
>
> Mit eksempel er som følger:
> (Som virker fint med early-binding)
>
> '--------------------------------------------------
> 'Abstrakt klasse [cases.cls]
> '--------------------------------------------------
> Option Explicit
>
> Public Function Killer() As String
>
> End Function
> '--------------------------------------------------
>
> 'Klasse som implementerer [cases.cls]: case1.cls:
> '--------------------------------------------------
> Option Explicit
> Implements Cases
>
> Private Function Cases_Killer() As String
> Cases_Killer = "Case 1: "
> End Function
>
> '--------------------------------------------------
>
>
> Dim tamtam
> set tamtam = CreateObject("Tjatiiing.case1")
>
> debug.print tamtam.Killer() ' <-Her fejler den !!
>
> '-------------------------------------
>
>
>
> mvh/robert
>
>
>



datz (09-09-2002)
Kommentar
Fra : datz


Dato : 09-09-02 02:48


"John Doe" <john@doe.com> wrote in message
news:al7mt8$bd2$1@news.net.uni-c.dk...
> Til alle jer som bare hungrer efter svar på dette utrolig dejlige
> spørgsmål - kan det meddeles at svaret findes på:
>
> http://support.microsoft.com/default.aspx?scid=KB;EN-US;q188716&
>
> Suk - basic er sq for latterligt til tider - anyway; frem med den store
VC++
> 6.0 compiler.

eller vb.net



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