5 svar · 256 visningar · startad av Fraggel
Option Explicit
Dim strHtml
strHtml = generateAnchore("menu","TOP","http://www.webforum.nu","Bra länk") & vbCrLf &_
generateAnchore("menu","TOP","http://www.webforum.nu","Bra länk", "images/banner.jpg") & vbCrLf
Function generateAnchore(strClass,strTarget,strHref,strLinkTxt,strImgSrc)
'
' Massa kod som genererar en massa fina länkar
'
End Function
Vad jag vill göra är följande:
jag vill att strImgSrc skall vara en frivillig uppg. Om jag inte anger någon strImgSrc så skall den enbart generera en text länk!
Hur gör jag för att åstadkomma ett frivilligt värde i en function går det
En if-sats kanske:
if strImgSrc="" then
generateAnchore = "<a href="""& strHref &""" target="""& strTarget &""">"& strLinkTxt &"</a>
else
generateAnchore = "<a href="""& strHref &""" target="""& strTarget &""" border=""0""><img src="""& strImgSrc &"""></a>
end if
I VBScript kan man inte använda "frivilliga" optionalparametrar, utan alla måste anges i anropet till funktionen.
mvh
Jesper T skrev:
En if-sats kanske:
if strImgSrc="" then generateAnchore = "<a href="""& strHref &""" target="""& strTarget &""">"& strLinkTxt &"</a> else generateAnchore = "<a href="""& strHref &""" target="""& strTarget &""" border=""0""><img src="""& strImgSrc &"""></a> end if
Tackar, det är just den lösningen jag har i dag :e , skall jag vara ärlig så är din kod i stort sett identisk med min... enda skillnaden är att jag har mina href="" i slutet på min <A> tagg :e
@nders skrev:
I VBScript kan man inte använda "frivilliga" optionalparametrar, utan alla måste anges i anropet till funktionen.
mvh
Jag hade fått förmig att det gick i VBscript men jag kunde inte hitta lösningen på det. Men vist fan(ursäkta min franska) funkar det i VB eller hur jag vet att jag gjort det någonstans...
Tackar mina herrar för att ni tog er tid.
Ja, det går alldeles utmärkt i VB:
Public Function FooBar(ByVal strFoo, [i]Optional[/i] ByRef strBar) As Boolean
Till exempel.