ja det er også hvad de siger på deres hjememside, men min kode ser ud som følgende, og der er den indkluderet, så hvad kan det så være??
<%
rem ******************************************************************** rem * rem * Note: This demo uses the lanmannt.bmp file. You can change to rem * another BMP if you like but you'll have to modify the XY rem * values to fit within your BMP image or set AutoSize = true rem * rem ********************************************************************
rem ********************************************************************** rem * Instantiate the object rem ********************************************************************** Set Image = Server.CreateObject("AspImage.Image")
rem ********************************************************************** rem * If AutoSize is false then any text that exceeds the current image rem * will be clipped. rem ********************************************************************** Image.AutoSize = false
rem ********************************************************************** rem * Load a BMP. You can load JPG and BMP files rem ********************************************************************** Image.LoadImage("d:\www2\mb\db\txtz2.jpg")
rem ********************************************************************** rem * Set some font properties, set the X and Y location and write some rem * text out to the loaded image rem ********************************************************************** Image.FontColor = vbWhite Image.ThreeDColor = &h80000011 Image.Italic = False Image.Bold = True Image.FontName = "Arial" Image.FontSize = 12 Image.PadSize = 4 Image.TextAlign = 6
rem ********************************************************************** rem * Set some font properties, set the X and Y location and write some rem * 3D'd text out to the loaded image rem ********************************************************************** Image.TextOut "Duno!", Image.X, Image.Y, true
rem ********************************************************************** rem * Demostrate the fact that X has been moved forward beyond the rem * original 160. Just add 20 to bump it over a little rem **********************************************************************
rem ********************************************************************** rem * Set the physical path for the FileName we are going to save rem * NOTE: You should gen the filename dynamically for multiuser usage rem ********************************************************************** Image.FileName = "d:\www2\mb\db\lman.jpg"
rem ********************************************************************** rem * Save the image rem ********************************************************************** Image.SaveImage
rem ********************************************************************** rem * Now write the <img src> tag out for the browser to pick up rem ********************************************************************** Response.Write "<img src=""\db\lman.jpg""><br>"
rem ********************************************************************** rem * These properties give eval/registration information for the component rem ********************************************************************** rem Response.Write "<p>Expires: " & Image.Expires rem Response.Write "<br>Version: " & Image.Version rem Response.Write "<br>Registered To: " & Image.RegisteredTo
Set Image = nothing
%>
teksten lægger sig helt i toppen af billedet, og helt ude til venstre, så jeg kun kan se "no!" delen af Duno!
altså - Image.X og Image.Y. jeg har en plan om selv at kunne lægge en tekst ind i koden.. altså så den bliver dynamisk.. og kan ændres efter behov.. så jeg ved ikke hvad midten vil være for teksten.. eller hvor bred teksten vil blive..
Image.X og Image.Y er fra start af begge 0, hvorfor de ikke er nødvendige at definere, hvis du kun har et objekt (din tekst) på billedet. Hvis du ikke kender bredden på din tekst/billedet, kan du definere billedets størrelse ved. Image.MaxX = Image.TextWidth (dintekst) Image.MaxY = Image.TextHeight (dintekst)
Teksten ryger sandsynligvis ud over kanten, fordi du angiver Image.PadSize efter Image.MaxX. Jeg er ikke sikker på, om det er fejlen, og jeg er ikke sikker på, om jeg forstår dit spørgsmål. Hvis du fortsat har problemer med dette, må du skrive igen.
font = 100 'du bør nok angive font til et lavere tal, så løkken ikke skal køres for mange gange igennem Do Until bredde < 380 Image.FontSize = font bredde = Image.TextWidth (dintekst) font = font-1 Loop
ja det må man sige, det virkede opver al forventning
Som sagt før, mange tak for hjælpen, Jeg sender point med det samme
Tak
Duno
Synes godt om
Ny brugerNybegynder
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.