En liten fundering jag har, kan man göra en bild av textboxar där texten blir med på bilden? > En liten fundering jag har, kan man göra en bild av textboxar där texten blir med på bilden? Tack för svaret, Men som jag kan utläsa det så är det hur man får in bilden i textboxen, Jag vill få en bild utav det som står i textboxen. Och dessutom var den koden för VB.NET och C# som jag inte är något som hällst beläst i. kanske är samma som vsnliga vb, men det blir kanske bara en massa merpulande med koden. Denna lilla kodsnutt ritar upp en bild med samma font och färger som textboxen på en fil vid namn tmp.jpg Tack Cecilia, ...fast det där är vb.net... Aaa, man ser inte så lätta att man hamnar i vb (ej vb.net) forumet när jag går in via 'forum senast ändrade'. sorry där Joacim, men vill du "hemmapula" med vb.net så finns det gratis express version att hämta hem ;-) Nä, jag kör också "senast ändrade". Det var på mitt förslag den här sorteringsordningen lades in. Sen pelle gjorde ändringen för ett par år sen har en stående punkt i varje runda med förslag varit att få forumsnamnet som kolumn, tyvärr inte blivit av än. Har även legat på felanmälan ett tag om jag inte minns fel. Hej allesamma!textboxar till bmp bilder
och kan man då, om man har mer än en textbox få dom skrivna som man gör med printer.printer objekten. använda x och y axlarna för att få dom där man vill samtidigt som man kan ändra på fonterna?
samtidigt spara dom på datorn med ett namn på?. Kanske någon rentav har en kodsnutt att dela med sig av:).
Tack på förhand
//JockeSv: textboxar till bmp bilder
Hope this article will be helpful:
http://www.vbaccelerator.com/home/net/code/controls/ListBox_and_ComboBox/TextBox_Icon/article.aspSv:textboxar till bmp bilder
Sv: textboxar till bmp bilder
Dim b As New System.Drawing.Bitmap(TextBox.Width, TextBox.Height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(b)
g.FillRectangle(New SolidBrush(TextBox.BackColor), 0, 0, 100, 20)
g.DrawString(TextBox.Text, TextBox.Font, New SolidBrush(TextBox.ForeColor), TextBox.Margin.Left, TextBox.Margin.Top)
g.Dispose()
Dim filename = "tmp.jpg"
b.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg)
b.Dispose()
Sv:textboxar till bmp bilder
Det ser väldigt lovande ut :)
Sitter på jobbet just nu, skall prova när jag kommer hem.Sv: textboxar till bmp bilder
Om det bara är texten går det att lösa med något i stil med image.printText, kommer inte ihåg exakta namnet. Annars är jag rädd att du får ta en vända via WinAPI...Sv:textboxar till bmp bilder
Sv: textboxar till bmp bilder
Sv:textboxar till bmp bilder
Lösningen var alldeles för nära för att man skulle se den direkt.
Tack för era förslag och andra interesanta inlägg i denna tråd.
Jag har nu kommit på lösningen :)
Sänder med mig av det lilla test jag gjort.
Lägg in tre textboxar, en picturebox med autoredraw till true och en button med följande kod i.
<code>Private Sub Command1_Click()
Picture1.CurrentX = 50 'Vänstermarginal
Picture1.FontSize = 15
Picture1.Print Text1.Text
Picture1.CurrentY = 450 'Topmarginal
Picture1.CurrentX = 50
Picture1.FontSize = 8
Picture1.Print Text2.Text
Picture1.CurrentY = 450 'Topmarginal
Picture1.Print Tab(30); Text4.Text
Picture1.Picture = Picture1.Image 'skriv ut till pictureboxen
'Spara
Dim sPath As String
sPath = App.Path & "\" & Text1 & ".bmp"
SavePicture Picture1.Image, sPath
End Sub
</code>
Då sparas en bild med textinnehållet som en bmp bild