webForumDet fria alternativet

New HyperLink()

2 svar · 212 visningar · startad av cyprys

cyprysMedlem sedan dec. 20003 563 inlägg
#1

Så här ser min kod ut och det enda som inte funkar är att bilden vägrar bli 50 i width.
Hur kan man göra istället?

    Sub FillPictures(ByVal objektid As Integer)
        Dim Pic As HyperLink
        Dim dir As New DirectoryInfo(Server.MapPath("objects/"))
        Dim fil As FileInfo
        For Each fil In dir.GetFiles("*.*")
            Pic = New HyperLink()
            Pic.ImageUrl = "objects/" & fil.Name
            Pic.Width = Unit.Parse(50)
            Bilder.Controls.Add(Pic)
        Next
    End Sub
icaaqMedlem sedan okt. 20005 273 inlägg
#2

ska det inte vara

[red]
Pic.Width = Unit.Pixel(50)
[/red]
cyprysMedlem sedan dec. 20003 563 inlägg
#3

Nope.
Utkoden blir om man kör med hyperlink.

<a style="width:50px;"><img src="objects/8_2.gif" border="0" /></a>

Då jag egentligen vill ha

<a><img src="objects/8_2.gif" border="0" [b]width="50"[/b] /></a>

Den skall länkas därefter.
Vet inte vad som funkar bäst. Borde ju finnas någon lösning till detta.

127 ms totalt · 3 externa anrop · v20260731065814-full.3ab8d573
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)