varför blir texten så ful? ritar jag direkt i pictureboxen så ser det kanon ut. Men ritar jag upp det i en bitmap och sedan visar det i en picturebox så ser det ruskigt illa ut. förslag eller lösning efterfrågas.

<code>
Dim i As Integer
Dim xStart As Integer
Dim yStart As Integer
Dim xStopp As Integer
Dim yStopp As Integer

' Skapa bitmapp med rätt storlek
Dim objBitmap As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)

' Skapa graphic object
Dim objGraphics As Graphics = Graphics.FromImage(objBitmap)

'Skapa en font
Dim fonta As Font
fonta = New Font(FontFamily.GenericSerif, 6.0F, FontStyle.Regular)


'Y-axel
Dim Yaxelx1 As Integer = 30
Dim Yaxely1 As Integer = 30
Dim Yaxelx2 As Integer = 30
Dim Yaxely2 As Integer = objBitmap.Height - 60
objGraphics.DrawLine(Pens.LightGray, Yaxelx1, Yaxely1, Yaxelx2, Yaxely2)


'X-axel
Dim Xaxelx1 As Integer = 30
Dim Xaxely1 As Integer = Yaxely2
Dim Xaxelx2 As Integer = objBitmap.Width - 30
Dim Xaxely2 As Integer = Yaxely2
objGraphics.DrawLine(Pens.LightGray, Xaxelx1, Xaxely1, Xaxelx2, Xaxely2)


'X axel markeringar
xStart = Yaxelx1
yStart = Yaxely2 - 2
xStopp = Yaxelx1
yStopp = Yaxely2 + 2

For i = 0 To 24

If i > 0 Then _
objGraphics.DrawLine(Pens.DarkGray, xStart, yStart, xStopp, yStopp)
objGraphics.DrawString(i.ToString, fonta, Brushes.Black, xStart - 4, yStopp + 6)

'nuTidlinje
If Now.Hour = i Then
Dim x As Integer = Int(Now.Minute * 0.5) + xStart
objGraphics.DrawLine(Pens.Red, x, yStart - 300, x, yStopp + 50)
End If

xStart += 30
xStopp = xStart


Next


'Y axel markeringar
xStart = Yaxelx1 - 2
yStart = Yaxely2
xStopp = Yaxelx1 + 2
yStopp = Yaxely2

For i = 0 To 5

If i > 0 Then _
objGraphics.DrawLine(Pens.DarkGray, xStart, yStart, xStopp, yStopp)
yStart -= 50
yStopp = yStart

Next


'Skriver ut bild
PictureBox1.Image = objBitmap
</code>

Lustigt värre är att om jag sparar bitmap:en till fil så blir det svart bakgrund ...

<code>
objBitmap.Save("C:\olle.bmp", Imaging.ImageFormat.Bmp)
</code>

Hur skall man få till vit bakgrund?

Även om "ruskigt fult" är en mycket precis och detaljerad beskrivning, hade det varit bra med ett litet förtydligande... =)

Jag antar att vissa delar av texten antingen har försvunnit eller ser klumpiga och skumma ut?
I så fall är bilden hoptryckt resp. utdragen, och det blir den om "målbilden" har en annan storlek.

Att den får svart bakgrund borde bero på att du du ser egentligen är vitt som lyser igenom en delvis transparent bild, och det klarar inte bmp av att visa. Det borde finnas någon typ av "BackColor" eller något i den stilen som nu är svart som du kan ändra till vitt (t.ex. i objBitmap.Save eller i själva bitmappen)

Exakt vad jag nyss kom under fund. Letar nu efter hur man sätter vit bakgrund sedan kommer texten att bli bättre. Men hur sätter man vit bakgrund på en bitmap?

objGraphics.Clear(Colors.White);