<%@ Page Language="VB" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>

<script language="VB" runat="server">

Sub Page_Load(sender As Object, e As EventArgs)

' skapar nya Image och Bitmap object. hämtar bilden från angiven fil
dim g as System.Drawing.Image = System.Drawing.Image.FromFile_(server.mappath("bilder/main.gif"))
dim imgOutput as New Bitmap(g)
dim text1
dim text2
dim stringlength

text1 = Request("text1")
text2 = Request("text2")
if Len(text1) < Len(text2) then
stringlength = Len(text2) + 7
else
stringlength = Len(text1) + 1
end if


'skapar en graphics objekt så att man kan rita på bitmappen
Dim objGraphic as Graphics = Graphics.FromImage(imgOutput)

'skapar en svart brush som anger textfärgen
Dim blackBrush As New SolidBrush(Color.Red)
Dim redPen As New Pen(Color.Red, 2)

Dim textFont As New Font("Arial",12)
.
objGraphic.TranslateTransform(-50, 0)
objGraphic.RotateTransform(-20)


Dim x As Single = -30
Dim y As Single = 440
Dim width As Single = stringlength * 7.5
Dim height As Single = 50

objGraphic.DrawRectangle(redPen,x, y, width,height)
objGraphic.DrawString(text1,textFont,blackBrush,-20,450)
objGraphic.DrawString(text2,textFont,blackBrush,-10,465)



' Säger till servern att det är en gif fil.
response.contenttype="image/gif"
' Skickar bilden till webbläsarn
imgOutput.save(response.outputstream, ImageFormat.Gif)

' Frigör minne genom att ta bort g och imgoutput
g.dispose()
imgOutput.dispose()
objGraphic.dispose()
End Sub

</script>

Jag har den här koden som skapar en gif som innehåller en färdig bakgrundsbild med text i. men det blir så dålig kvalite på gif bilden jag får. Hur ska jag lösa det så att jag får samma kvalite på bakgrundsbilden som den är ifrån början.

Jag har löst det själv gjorde bara om den till en jpg. Men om man gör den i Gif så borde det bli lika bra kvalite på bilden eftersom den hämtar in en bakgrundsbild som är en Gif

Det behöver inte alls vara sant eftersom din gif kan vara av annan indexering än den som används i din kod.

Jag har ju skrivit ett par artiklar på problemet men måste nog tyvärr säga att jag ofta gått bet på just samma problem. Dokumentationen är dålig inom området + att man inte förstår så mycket om det lilla som man kan hitta eftersom det är skrivet på bildiska (ett konstigt språk som pratas i tryckerier och på fotofirmor).

//Mikael.NET