| |
blabber
Posts: 3
Score: 0
Joined: 8/17/2005
Status: offline
|
I didn't find the solution for my problem. This is one of the functions that I created. Can someone take a look at it and help me? The function creates a webpage with images. Dim FilesChosen As String() = New String(200) {} Dim CountSelectedImages As Integer Public Sub CreateChosenImagesHtml() Dim i As Integer Dim path As String path = "ChosenImages.html" Dim file As New FileStream(path, FileMode.Create, FileAccess.Write) Dim writer As New StreamWriter(file) writer.WriteLine("<html>") writer.WriteLine("<head><link rel=" & Chr(34) & "STYLESHEET" & Chr(34) & " type=" & Chr(34) & _ "text/css" & Chr(34) & " href=" & Chr(34) & "Main.css" & Chr(34) & "></head>") writer.WriteLine("<body id=" & Chr(34) & "body" & Chr(34) & "scroll=" & Chr(34) & "no" & Chr(34) & ">") For i = 0 To CountSelectedImages - 1 writer.WriteLine("<img class=" & Chr(34) & "imgSmall" & Chr(34) & " id=" & Chr(34) & "imgSmall" & _ i & Chr(34) & " src=" & Chr(34) & _ FilesChosen(i) & Chr(34) & " />") Next writer.WriteLine("</body>") writer.WriteLine("</html>") writer.Close() file.Close() End Sub
|
|