Visual Basic Forum

DFJ_ · Poster Anmeldedatum: 15.10.2007 Beiträge: 156

Da ich noch mal lust hatte ein Source online zu stellen .

Html Link Generator , mach eine Url und eine Link name , zu einem Html code , man kann den Linknamen fettschreiben , schrägschreiben und farbigschreiben,

Viel Spaß damit Wink

[vb:1:519abf1d2b]
Dim url As String
Dim linkname As String
Dim hasen As String
Dim Fetts As String
Dim fettx As String
Dim longs As String
Dim longx As String
Dim farbe As String
Dim farbx As String
Dim farbs As String
Dim farby As String

Private Sub cmdColor_Click()
' Das hier ist eine check box ,war schöner Wink

' Achso ihr braucht die komponente Microsoft Commen Digalog Control 6.0

If cmdColor.Value = 1 Then
On Error Resume Next
With CommonDialog1
.CancelError = True
.ShowColor
If Err = 0 Then
farbe = .Color
End If
End With
End If
' Wer sich wunder ? = ich habe das so gemacht falls der user noch mal auf die checkbox klick
' um sie unmackiert zu machen öffnen sich nicht der Dialog

End Sub

Private Sub pl_html_Click()
url = pl_url.Text
linkname = pl_linkname.Text

If pl_dick.Value = 1 Then
Fetts = "<b>"
fettx = "</b>"
Else
Fetts = ""
fettx = ""

End If

If pl_schräg.Value = 1 Then
longs = "<l>"
longx = "</l>"
Else
longs = ""
longx = ""
End If

If cmdColor.Value = 1 Then
farbx = "<FONT COLOR=""#"
farbs = "</FONT>"
farby = """>"
Else
farbx = ""
farbs = ""
farby = ""
farbe = ""
End If

pl_htmurl.Text = "<a href=""" & url & """>" & farbx & farbe & farby & Fetts & longs & linkname & fettx & longx & farbs & "</a>"

' Jor Ist nicht schwer zu verstehen denke ich Wink

End Sub

[/vb:1:519abf1d2b]

Wer sich eine auf gabe stellen lassen will :

Versuch Eine Bild adresse zu unterscheiden zu einer Webseiten/ ftp url
Als Tipp
http://www.vb-x.org/viewtopic.php?t=502&highlight=

gruß
DFJ
_________________
Spam bot