Hvorfor ikke ?

Jeg skal måske lige fortælle at denne function er en del af en ActiveX Dll

/Websam

hmm ... hvis den er en del af en ActiveX dll, så har du vel også postet i den forkerte kategori. dette er jo et VB spm.

men ... din signatur på functionen er forkert, og der er hellere ikke angivet en returtype ?

Er der slet ikke nogen der kan hjælpe ?

Hvis jeg ligger functionen i en Class virker det fint men når jeg ligger det i en dll får jeg denne fejl :
Type mismacth

hmm ... hvordan kalder du functionen ?

Det gør jeg med denne :

Dim objClass
Set objClass = Server.CreateObject("Book.BookTitles")
Dim arrLang
arrLang = objClass.ChosenLanguage(Session("setLanguage"))

/Websam

hmm igen ... det kører fint for mig :-|

jeg har lavet et project, med navnet "Book", en Class, med navnet "BookTitles" og derefter kører jeg de linjer du har postet ... no errors

/nute

og du har compilet det til en dll og udskriver f.eks arrLang(0) ???

/Websam

Hvad mener du med at signatur er forkert og returtype ikke er angivet ?

/Websam

jeg har compilet den, ja og det kører fint ... *men* ...

når jeg skriver "Response.write( Ubound( arrLang ) )", får jeg godt nok 5 i retur, hvilket er fint ... problemet er så når jeg skriver "Response.write( arrLang(0) )" ...

er ikke den store "array i VB"-haj... har haft mange problemer med det selv, men jeg kigger lige på det

men som skrevet tidligere .. du har også postet i forkert kategori, så dem der virkelig kan svare, ser nok ikke dit spm (selv om det er mange VB mennesker der også kigger her)

/nute

Ja jeg burde nok forsøge mig i kategorien vb istedet det havde jeg ikke lige tænkt over i første omgang :o)

/Websam

signatur = din parameter angivelse

Public Function ChosenLanguage( ByVal Language As String )

returtype = hvad din metode returnere:

Public Function ChosenLanguage( ByVal Language As String ) As String()

/nute

Den skal vel heller ikke retuneres som en string når det er et array ? Bare lige en tanke der strejfer mig ikke fordi jeg ved noget om det :o)

/Websam

String() = en array af strings ... det er hvertfald sådan jeg kender det fra C3 og Java, men det skal ikke forundre mig om ikke VB6 har en helt anden definition af tingene ...

:-[

Hey nute jeg syntes lige du skal have løsningen på dette :

//Visual Basic Script
'--- Function der udskiver sprog på siden.
Public Function ChosenLanguage(ByVal Language As String) As String
    Dim Lang As String
    If Language = "DK" Then
        Lang = ""
        Lang = Lang & "Seneste Nyheder,"
        Lang = Lang & "Nyhed nr.,"
        Lang = Lang & "i rækken af nyheder.,"
        Lang = Lang & "Liste over alle nyheder,"
        Lang = Lang & "Læs Mere,"
        Lang = Lang & "Vis Alle Nyheder"
    ElseIf Language = "EN" Then
        Lang = ""
        Lang = Lang & "Latest News,"
        Lang = Lang & "News no.,"
        Lang = Lang & "of all news.,"
        Lang = Lang & "List of all news,"
        Lang = Lang & "Read More,"
        Lang = Lang & "Show All News"
    End If
    ChosenLanguage = Lang
End Function

//ASP Script
<%
Dim objClass
Set objClass = Server.CreateObject("Book.BookTitles")

Dim arrLang
arrLang = Split(objClass.ChosenLanguage("EN"), ",")

Response.Write arrLang(0)&"<br>"
Response.Write arrLang(1)&"<br>"
Response.Write arrLang(2)&"<br>"
Response.Write arrLang(3)&"<br>"
Response.Write arrLang(4)&"<br>"
Response.Write arrLang(5)&"<br>"
%>

Som du kan se var alt der skulle til at fjerne Split Functionen fra Vb til ASP så virker det hele.

/Websam