Text auf einen Bild verschieben

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Text auf einen Bild verschieben

    Hallo zusammen,
    Ich habe eine Frage zu einen Projekt.

    Ich habe eine Vorlage und füge einene Text mit Hilfe X und Y Parameter mit

    VB.NET-Quellcode

    1. Graphic.DrawString
    ein.
    Dass geht und läuft tadellos. Das Text Positionieren íst nur etwas aufwendig. ;)

    Ich möchte den Text in Echtzeit auf den Bild mit Hilfe zwei Scrollbar verschieben danach die X und Y Parameter speichern, ist so etwas mit VB möglich?

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Quick and dirty

    Ja ganz bestimmt... :)

    Für die X-Achse hab ich das kurz realisiert (klick .gif im Anhang). Für die Y-Achse ist es dann das Gleiche nur mit Y.Value.

    ACHTUNG ist 100% schlechte Lösung wegen des ständigen neu Ladens der Bilddatei bei jedem Trackbar Event/Scrollbar-Event.

    C# Code:

    C#-Quellcode

    1. public partial class Form1 : Form
    2. {
    3. readonly string imageFilePath = @"Wald.jpg"; //PicturePath
    4. readonly string TextOnPic = "HELLO THERE!"; //Your Text
    5. PointF txtLocation = new(0f, 200f); //TextPosition
    6. public Form1()
    7. {
    8. InitializeComponent();
    9. CenterToParent();
    10. TrkbarX_Scroll(null,null);
    11. }
    13. private void TrkbarX_Scroll(object? sender, EventArgs? e)
    14. {
    15. var tmpBitmap = (Bitmap)Image.FromFile(imageFilePath);
    16. txtLocation.X = TrkbarX.Value;
    17. using (Graphics graphics = Graphics.FromImage(tmpBitmap))
    18. {
    19. using Font arialFont = new("Arial", 72);
    20. graphics.DrawString(TextOnPic, arialFont, Brushes.White, txtLocation);
    21. }
    22. PicbxShow.Image = tmpBitmap;
    23. TxbxX.Text = $"{TrkbarX.Value}";
    24. }
    25. }





    Vielleichte können die anderen Forums-Nutzer noch etwas dazu schreiben, wie man das Problem des ständigen Ladens des .jpgs eleganter lösen kann :)

    lg nogood
    Bilder

    • TxtOnImage.gif

      663,47 kB, 670×652, 126 mal angesehen
    codewars.com Rank: 4 kyu

    nogood schrieb:

    wie man das Problem des ständigen Ladens des .jpgs eleganter lösen kann


    Einfach eine abgeleitete PictureBox machen, eine Klasse für den Text, da kannst du auch selbst noch mehr Felder hinzufügen(Farbe, Font etc.). So lässt sich auch leicht das verwenden von mehreren Texten mit unterschiedlichen Styles einbauen. Wenn nur 1 Text pro PB gemalt werden soll, kannst du die Klasse PictureBoxExText ersatzlos streichen, dann aber auch die Control.Text Property der PBex wieder sichtbar machen und nutzen.

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.Drawing.Imaging
    4. Public Class PictureBoxEx
    5. Inherits PictureBox
    7. Private pictureBoxExText As New PictureBoxExText()
    9. Public Sub New()
    10. Font = New Font("Microsoft Sans Serif", 8.25F)
    11. End Sub
    12. Public Sub SetPictureBoxExText(text As String)
    13. pictureBoxExText.Text = text
    14. Invalidate()
    15. End Sub
    17. Public Sub SetPictureBoxExTextPosition(position As Point)
    18. pictureBoxExText.Position = position
    19. Invalidate()
    20. End Sub
    22. Public Sub Export(filename As String, imageFormat As ImageFormat)
    23. If IO.File.Exists(filename) Then
    24. If MessageBox.Show("Datei existiert bereits, überschreiben?", "Appname", MessageBoxButtons.YesNoCancel) <> DialogResult.Yes Then
    25. Return
    26. End If
    27. End If
    28. 'Bitmap erstellen(mit using Anweisung!), sowohl Image wie auch den Text drauf malen und speichern
    29. End Sub
    31. <Browsable(True)>
    32. <EditorBrowsable(EditorBrowsableState.Always)>
    33. Public Overloads Property Font As Font
    35. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    36. MyBase.OnPaint(e)
    37. 'todo:
    38. 'die anderen Fälle im Select vervollständigen
    39. Select Case SizeMode
    40. Case PictureBoxSizeMode.StretchImage
    41. If Not Image Is Nothing Then e.Graphics.DrawImage(Image, 0, 0, Width, Height)
    42. e.Graphics.DrawString(pictureBoxExText.Text, Font, Brushes.Black, pictureBoxExText.Position)
    43. Case PictureBoxSizeMode.Normal
    45. e.Graphics.DrawString(pictureBoxExText.Text, Font, Brushes.Black, pictureBoxExText.Position)
    46. Case PictureBoxSizeMode.AutoSize
    48. e.Graphics.DrawString(pictureBoxExText.Text, Font, Brushes.Black, pictureBoxExText.Position)
    49. Case PictureBoxSizeMode.CenterImage
    51. e.Graphics.DrawString(pictureBoxExText.Text, Font, Brushes.Black, pictureBoxExText.Position)
    52. Case PictureBoxSizeMode.Zoom
    54. End Select
    55. End Sub
    56. End Class
    58. Class PictureBoxExText
    59. Public Text As String
    60. Public Position As New Point
    61. Public Sub New()
    62. End Sub
    63. Public Sub New(text As String)
    64. Me.Text = text
    65. End Sub
    66. Public Sub New(text As String, position As Point)
    67. Me.Text = text
    68. Me.Position = position
    69. End Sub
    70. End Class

    Bessere Lösung

    Auf @-Franky- Anregung, falls ich das in etwa richtig interpretiert habe. Hier noch eine bessere Lösung, für das 'Text'-Bewegen auf einem Bild.
    Idee ist, eine Picturebox als Hintergrund, mit dem jpg als Image. Darauf ein Label setzen (Background Transperent). Als Parent des Lables dient dann die Picturebox.
    Per Scroll wird dann nur der Text verschoben. Das .jpg wird nur einmal geladen.
    Wenn die Koordinaten dann später fest stehen, kann man immer noch den Text mit dem Bild verbinden.

    C#
    Spoiler anzeigen

    C#-Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using System.ComponentModel;
    4. using System.Data;
    5. using System.Drawing;
    6. using System.Linq;
    7. using System.Text;
    8. using System.Threading.Tasks;
    9. using System.Windows.Forms;
    11. namespace WF_TextOnImageV2
    12. {
    13. public partial class Form1 : Form
    14. {
    15. Point txtLocation = new Point(0, 0); //TextPosition
    17. public Form1()
    18. {
    19. InitializeComponent();
    20. CenterToParent();
    22. txtLocation = new Point(PicbxBg.Location.X, PicbxBg.Location.Y);
    24. PicbxBg.BackgroundImage = Image.FromFile(@"deinImg.jpg");
    26. LbTxt.Location = txtLocation;
    27. LbTxt.Parent = PicbxBg;
    28. LbTxt.Text = "TEST";
    29. LbTxt.BackColor = Color.Transparent;
    30. }
    32. private void ScrbrTxt_X_Scroll(object sender, ScrollEventArgs e)
    33. {
    34. txtLocation.X = ScrbrTxt_X.Value;
    35. LbTxt.Location = txtLocation;
    36. }
    37. }
    38. }


    konvertiert via OnlineConvert nach VB

    VB.NET-Quellcode

    1. Public Partial Class Form1
    2. Inherits Form
    4. Private txtLocation As Point = New Point(0, 0)
    6. Public Sub New()
    7. InitializeComponent()
    8. CenterToParent()
    9. txtLocation = New Point(PicbxBg.Location.X, PicbxBg.Location.Y)
    10. PicbxBg.BackgroundImage = Image.FromFile("deinImg.jpg")
    11. LbTxt.Location = txtLocation
    12. LbTxt.Parent = PicbxBg
    13. LbTxt.Text = "TEST"
    14. LbTxt.BackColor = Color.Transparent
    15. End Sub
    17. Private Sub ScrbrTxt_X_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs)
    18. txtLocation.X = ScrbrTxt_X.Value
    19. LbTxt.Location = txtLocation
    20. End Sub
    21. End Class
    codewars.com Rank: 4 kyu

    Also so gesehen das gleiche wie ich zeigte nur mit einem Label, da ist eine abgeleitete PictureBox doch besser, so wird auch nur 1 mal in das Bild gerendert(beim Export), erspart sich aber das Label, richtig gemacht, kann man dann auch alles im Designer einstellen(Text(e), Farben, Fonts usw...). Das alles dann in einem Control.

    ich finde die beidden Varianten überhaupt nicht gleich - nichtmal ähnlich.
    Die erste ist aufwändig, mit Vererbung und OwnerDrawing: 70 zeilen.
    Die zweite ist simpel, mit Composition und ohne selbstgebastelte Controls: 20 Zeilen. Allerdings auch noch ohne Export-Funktion.

    Generell gilt: Composition over Inheritance.
    Weil bei Composition kann man sich die Features, die man braucht , je nach Bedarf hinzufügen und andere weglassen.
    Bei Inheritance kann man nix weglassen, sodass eine Neigung zu immer mehr Erben besteht, oder aber der Versuch, eine eierlegende Wollmilchsau zu fabrizieren.