gennemsigtig baggrund med AspImage

Image.TransparentColor = vbWhite

- hvis det er hvid der skal være transparent.
Du skal dog huske på, at ASPImage ikke kan loade GIF filer men kun gemme.

Hvis det er PNG format, så skal ASPImage være minimum version 2.26

Dette er fundet i vejledningen til ASPImage.

/Goose

hmm - virker ikke umiddelbart.
min kode ser5 sådan ud:

Set Image = Server.CreateObject("AspImage.Image")

  rem Set various font parameters
  Image.FontColor = vbBlack
  Image.Bold = True
  Image.FontName = "Arial"
  Image.FontSize = 12
  Image.PadSize = 5
  Image.TransparentColor = vbblack
 

  rem Calculate how big our text info is and set the image to this size
  rem  This has to be done since we want to fill the area with a gradient
  strMessage = request("pictxt")
  Image.MaxX = Image.TextWidth (strMessage)
  Image.MaxY = Image.TextHeight (strMessage)



  rem Print our string to the image
  Image.TextOut strMessage, Image.X, Image.Y, false

Kan du se hvorfor den ikke virker?

Næee, ikke umiddelbart, jeg har aldrig rodet med denne del af ASPImage, men det er nok fordi du ikke gemmer det som en fil i PNG eller GIF format som er de eneste formater der understøtter transparent baggrund.

/Goose

jo - jeg gemmer i .gif og det spiller fint
jeg må prøve mig frem...

Hmm, jeg har lige lavet et eksempel hvor baggrundsfarven rød er sat som transparent:

http://www.goose.dk/aspimage_lav.asp

/Goose

cool - smider du ikke lige koden??

Jo, det kan jeg da godt, dog skal du lige selv rette stien til der hvor den skal gemme billedet:

<%
Set Image = Server.CreateObject("AspImage.Image")
Image.BackgroundColor = vbRed
Image.FontColor = vbBlack
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 12
Image.PadSize = 10
Image.AntiAliasText = False
strMessage = "Skilt med rød baggrund"
Image.MaxX = Image.TextWidth (strMessage)
Image.MaxY = Image.TextHeight (strMessage)
Image.TextOut strMessage, Image.X, Image.Y, false
Image.ImageFormat = 5
Image.FileName = "d:\web\localuser\goose.dk\public_html\msg1.gif"
if Image.SaveImage then
Response.Write "<img src=""/msg1.gif""><br>"
else
Response.Write "<h2>Virker ikke</h2>"
end if

Set Image = Server.CreateObject("AspImage.Image")
Image.BackgroundColor = vbRed
Image.FontColor = vbBlack
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 12
Image.PadSize = 10
Image.AntiAliasText = False
Image.TransparentColor = vbRed
strMessage = "Skilt med rød som transparent baggrund"
Image.MaxX = Image.TextWidth (strMessage)
Image.MaxY = Image.TextHeight (strMessage)
Image.TextOut strMessage, Image.X, Image.Y, false
Image.ImageFormat = 5
Image.FileName = "d:\web\localuser\goose.dk\public_html\msg2.gif"
if Image.SaveImage then
Response.Write "<img src=""/msg2.gif""><br>"
else
Response.Write "<h2>Virker ikke</h2>"
end if
%>

/Goose

Tak Goose,

Det spiller perfekt!!

Det var så lidt og tak for point :o)

/Goose