Har någon här skapat en BMP fil Det är inte svårare än att skapa en PictureBox, sätt AutoRedraw till True, och sen Jo jag hittade denna (lite onödigt stort så jag tänkte ta bort en del) <b>Dock försöker jag hitta hur man får bort border i bmp filen :)</b> Japp det trodde jag men men tji det hände inget. <b> Tack, hade löst det men jag kan tala om att det var jag som klantade till detSkapa 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???Sv: Skapa en BMP fil
<code>
Picture1.Print "Min text"
SavePicture Picture1.Image, "C:\picture.bmp"
</code>Sv:Skapa en BMP fil
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 :)Sv: Skapa en BMP fil
Ex du refererar till använder en PicBox sätt BorderStyle = 0 (None) på den.
Tror Jag ;-)Sv:Skapa en BMP fil
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 boxSv: Skapa en BMP fil
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"
Sv:Skapa en BMP fil
Den hade ingen border men det såg ut om man öppnar bilden i windows bildvisare :)