Ziel dieser Funktion ist es dass Generieren von A Links zu vereinfachen. Grundsätzlich ist das natürlich einfach jedoch ist es immer wieder eine Schwierigkeit die Anführungszeichen richtig zu setzen. Deshalb haben wir ein kleine Hilfsfunktion die beliebig um weitere A Tags erweiterbar ist geschrieben.
Public Shared Function GenerateALink(ByVal strUrl As String, ByVal strLinktext As String, Optional ByVal strTarget As String = “_self”, Optional ByVal strClass As String = “”) As String
Dim strText As String = “”
strText = “<a href=”
strText += “”"”
strText += strUrl
strText += “”"”
strText += ” ”
strText += “target=”
strText += “”"”
strText += “” & strTarget & “”
strText += “”"”
If strClass <> “” Then
strText += ” ”
strText += “class=”
strText += “”"”
strText += “” & strClass & “”
strText += “”"”
End If
strText += “>”
strText += strLinktext
strText += “</a>”
Return strText
End Function
Schlagworte: ASP.net