Har någon här skapat en BMP fil
Om jag har ett antal variablar som jag vill ha ut skrivet på en BMP fil i en viss storlek går det???

Det är inte svårare än att skapa en PictureBox, sätt AutoRedraw till True, och sen

<code>
Picture1.Print "Min text"

SavePicture Picture1.Image, "C:\picture.bmp"
</code>

Jo jag hittade denna (lite onödigt stort så jag tänkte ta bort en del)

http://www.ostrosoft.com/vb/projects/text_to_image/index.asp

Men tack så mycket då vet jag lite mer hur det fungerar :)


Dock försöker jag hitta hur man får bort border i bmp filen :)

<b>Dock försöker jag hitta hur man får bort border i bmp filen :)</b>

Ex du refererar till använder en PicBox sätt BorderStyle = 0 (None) på den.

Tror Jag ;-)

Japp det trodde jag men men tji det hände inget.

Dock så undrar jag om detta är den bästa lösningen eftersom jag vill bestämma placeringen av info jag vill spara till en BMP fil


Ex

Info 1 i mitten av en bild som är 800x600 med stor text
Info 2,3, under med en liten mindre text.

Hade ju hoppas att det skulle gå med X/Y men verkar inte fungera så bra i picture box

<b>
Japp det trodde jag men men tji det hände inget.
</b>
Jag får ingen border runt bilden och jag har inte gjort någonting mer än jag skrev ovan. Vilket program öppnar du bilden i?

<b>
Dock så undrar jag om detta är den bästa lösningen eftersom jag vill bestämma placeringen av info jag vill spara till en BMP fil
Hade ju hoppas att det skulle gå med X/Y men verkar inte fungera så bra i picture box
</b>

Jaså?


I designern:
Picture1.AutoSize = True
Picture1.Appearance = 0
Picture1.BorderStyle = 0

Picture1.Width = 800 * Screen.TwipsPerPixelX
Picture1.Height = 600 * Screen.TwipsPerPixelY
Picture1.Font.Size = 15
Dim centerX as Integer, centerY As Integer
centerX = (Picture1.Width / 2) - (Picture1.TextWidth("Info 1") / 2)
centerY = (Picture1.Height / 2) - (Picture1.TextHeight("Info 1") / 2)

Picture1.CurrentX = centerX
Picture1.CurrentY = centerY
Picture1.ForeColor = vbRed
Picture1.Print "Info 1"

Picture1.Font.Size = 10
Picture1.ForeColor = vbBlue

Picture1.CurrentX = centerX - 200
Picture1.CurrentY = centerY + 500
Picture1.Print "Info 2"

Picture1.CurrentX = centerX + 200
Picture1.CurrentY = centerY + 800
Picture1.Print "Info 3"

SavePicture Picture1.Image, "C:\picture.bmp"

Tack, hade löst det men jag kan tala om att det var jag som klantade till det

Den hade ingen border men det såg ut om man öppnar bilden i windows bildvisare :)