Avatar billede forcedesigner Nybegynder
24. april 2004 - 00:31 Der er 17 kommentarer og
1 løsning

Random image problem

Hejsa ekspertere

hvad er der galt med denne kode?

        Dim path = "C:\inetpub\wwwroot\images\"
        Dim dir As New DirectoryInfo(path)
        Dim files As FileInfo() = dir.GetFiles("*.jpg")
        Dim random As New Random
        Dim ranNum = random.Next(0, UBound(files) + 1)
        Image1.ImageUrl = (" & path & files(ranNum).Name & ")


Koden virker ikke og giver denne error:

Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30188: Declaration expected.


Det er den sidste line der er noget galt med
Avatar billede lauge Nybegynder
24. april 2004 - 09:52 #1
tror den skal være sådan her :
Image1.ImageUrl = (path & files(ranNum).Name)
Avatar billede forcedesigner Nybegynder
24. april 2004 - 12:37 #2
Det hjaelper ikke
Avatar billede lauge Nybegynder
24. april 2004 - 12:39 #3
prøv at udskrive den streng du laver i den sidste linje, og se om den passer med den faktiske utl på dit image.
Avatar billede forcedesigner Nybegynder
24. april 2004 - 12:41 #4
Jeg kan ikke rigtig finde ud af det....jeg er træt af det, har sku næsten prøvet alt.
Nu ønsker jeg bare en koder der virker...
Avatar billede lauge Nybegynder
24. april 2004 - 12:43 #5
ja velkommen til prøgrammør universet - der er altid problemer. Men problemerne bliver jo kun løst hvis man arbejder videre :-)

Response.write (path & files(ranNum).Name)
Response.end

Hvad udskriver den så?
Avatar billede forcedesigner Nybegynder
24. april 2004 - 12:46 #6
OK.

Jeg har denne her kode som virker FINT men nu vil jeg bare bruge IMAGE.

        Dim path = "C:\inetpub\wwwroot\images\"
        Dim dir As New DirectoryInfo(path)
        Dim files As FileInfo() = dir.GetFiles("*.jpg")
        Dim random As New Random
        Dim ranNum = random.Next(0, UBound(files)+1)
        response.Write("<img Height=""218px"" Width=""238px"" src='" & path & files(ranNum).Name & "'>")

Denne her er ikke så meget problemet men jeg kunne ønske mig at bruge en ASP.NET image.
Avatar billede lauge Nybegynder
24. april 2004 - 12:52 #7
hmmm, har du dette i toppen :
Protected WithEvents Image1 As System.Web.UI.WebControls.Image

Jeg har ikke så meget tid lige nu, så jeg kan ikke hjælpe.
Avatar billede forcedesigner Nybegynder
24. april 2004 - 12:52 #8
Jep det har jeg
Avatar billede lauge Nybegynder
24. april 2004 - 12:56 #9
før du går videre, så udskriv den streng som du sender til Image1 som ImageURL - jeg tror det er her du har fejl.

Når du ved at den sender den RIGTIGE URL, så prøve således:

Image1.Attributes.Add("src",path & files(ranNum).Name)
Avatar billede forcedesigner Nybegynder
24. april 2004 - 12:58 #10
Nope den virker heller ikke
Avatar billede lauge Nybegynder
24. april 2004 - 12:59 #11
har du udskrevet strengen? og passer den med din image fil?
Avatar billede forcedesigner Nybegynder
24. april 2004 - 13:01 #12
jeg er lidt forvirret men saadan ser min kode ud:

        Dim path = "C:\inetpub\wwwroot\images\"
        Dim dir As New DirectoryInfo(path)
        Dim files As FileInfo() = dir.GetFiles("*.jpg")
        Dim random As New Random
        Dim ranNum = random.Next(0, UBound(files) + 1)
        Image1.Attributes.Add("src",path & files(ranNum).Name)
Avatar billede lauge Nybegynder
24. april 2004 - 13:04 #13
ok- du prøver at sætte SRC på dit Image1 med en streng der ser således :
path & files(ranNum).Name

Men der kan jo være fejl i denne streng.

For at sikre dig at strengen er rigtig, så udskriv den til browseren med :
Response.write ("her er den : " & path & files(ranNum).Name)
Response.end

Så skulle browseren gerne udskrive:
her er den : C:\inetpub\wwwroot\images\x.jpg
Avatar billede forcedesigner Nybegynder
24. april 2004 - 13:07 #14
Jep saa viser browser x.jpg det har du ret i men den anden streng virker bare ikke
Avatar billede forcedesigner Nybegynder
24. april 2004 - 13:09 #15
Jo nu virker det fanme....MANGE tak og kommentere lige saa jeg kan giv dig dinne points
Avatar billede lauge Nybegynder
24. april 2004 - 13:09 #16
hvilken "anden streng" virker ikke?
Avatar billede lauge Nybegynder
24. april 2004 - 13:11 #17
:-)
Avatar billede forcedesigner Nybegynder
24. april 2004 - 13:12 #18
Mange TAK Lauge or her er dine points
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester