---
title: "Bygga bild dynamiskt"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/67116-bygga-bild-dynamiskt"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "henrikjohansson"
published: "2003-02-04T08:12:31.000Z"
updated: "2003-02-04T09:45:17.000Z"
replies: 1
views: 240
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/67116-bygga-bild-dynamiskt"
---

# Bygga bild dynamiskt

## #1 — henrikjohansson, 2003-02-04T08:12Z

Jag försöker lägga ihop flera Gif bilder och det fungerar nästan bra.. det är så att den ändrar kvalitet. hur gör man för att åtgäda detta.. 

```
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Dim sFilnamn As String
        Dim i As Image
        Dim Xx As Integer
        Dim Nr As String = CStr(Val(Request.QueryString("nr")))
        Dim X As Integer
        Dim g As Graphics
        
       
        Dim bredd As Integer = Len(Nr) * 6

        Dim b As New Bitmap(bredd, 10, PixelFormat.Format24bppRgb)

        g = Graphics.FromImage(b)

        For X = 1 To Len(Nr)
            sFilnamn = Server.MapPath("counter/" & Mid(Nr, X, 1) & ".gif")
            i = Image.FromFile(sFilnamn)
            g.DrawImage(i, New Point(Xx, 0))
            Xx = Xx + i.Width
        Next X

        Response.ContentType = "image/gif"
        b.Save(Response.OutputStream, ImageFormat.Gif)
        b.Dispose()
    End Sub
```

Permalänk: https://www.webforum.nu/p/67116

## #2 — Nickemannen, 2003-02-04T09:45Z

b.Save(Response.OutputStream, ImageFormat.Gif)

Du skall kunna sköta komprimeringen från denna kodraden
Man skall kunna lägga till något efter ImageFormat.Gif,óch ngt mer

Permalänk: https://www.webforum.nu/p/940416

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/67116-bygga-bild-dynamiskt