Bilder zur Laufzeit anzeigen und wieder entfernen => Keine PictureBox

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Kagurame.

    Bilder zur Laufzeit anzeigen und wieder entfernen => Keine PictureBox

    Hallo,

    ich möchte zur Laufzeit in einer Forms-Anwendung Bilder anzeigen können und diese auch wieder von der Form löschen können.
    Ich möchte dabei ohne PictureBoxen arbeiten, da ich unter umständen mehrere Bilder übereinander habe und .Net dabei einige diverse Transparenz-Defizite hat was Controls angeht.

    Bild anzeigen habe ich über Graphics-Objekt hinbekommen, jedoch nur im OnPaint-Event oder per Control#CreateGraphics. Wie kann ich ein Bild ohne dieses anzeigen?
    Mit Control#CreateGraphics habe ich kein Problem, sofern ich irgendwie vorher gezeichnete Grafiken loswerde, ohne alles neu zeichnen zu müssen.

    Wie kann ich ein Bild, dass bereits anzeigt, einfach wieder löschen? Ich habe kein Problem, neue Objekte dafür zu erstellen / programmieren, aber ich habe derzeit keinen Ansatz wie es funktionieren könnte.

    Mit OnPaint müsste ich immer wieder die Form neu zeichnen lassen, was unschön anzusehen ist, wenn bestimmte Grafiken gehovert dargestellt werden sollen :/

    Hi
    schreib' dir ein eigenes Control und füge die Bilder in einer Liste ein, die wiederum das Neuzeichnen per Invalidate aufruft, sofern eine Änderung eintritt. Wenn du in einen Puffer (BufferedGraphics oder vorzugsweise Bitmap) zeichnest und diesen dann darstellst, musst du auch nicht jedes mal alle Bilder zeichnen. Die Liste kann bspw. von System.Collections.ObjectModel.Collection(Of T) erben und InsertItem, RemoveItem, SetItem und ClearItems überschreiben. Wenn du ihr dann eine Instanz des Controls übergibst, kannst du das Control über Änderungen informieren. CreateGraphics ist in diesem Fall nicht sinnvoll möglich, daher überschreib die OnPaint-Methode des geerbten Controls und füg' da die Zeichenoperationen ein. Für die Optimierung mit dem Zwischenpuffer gehst du einfach alle Bitmaps durch und ermittelst die maximale Größe. Danach legst du den Puffer entsprechend an und zeichnest darauf. Wenn du damit fertig bist, stellst du den Puffer auf e.Graphics dar.

    Gruß
    ~blaze~

    Eine Fläche löschen kannst Du so:

    VB.NET-Quellcode

    1. Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    2. e.Graphics.Clear(Color.Beige) ' Deine Farbe natürlich
    3. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Naja, hab mal auf Basis dessen was gebastelt, was bisher recht sauber läuft und sich vernünftig handlen lässt. Danke.

    Edit:

    Habe das ganze mal etwa nach blazes Muster erstellt, was auch soweit funktioniert hat - bisher.

    Jetzt fällt im Nachhinein auf, dass die Größe der Bilder nicht stimmt ._.
    Wie kann ich Bilder skalieren bzw. verhindern, dass VB automatisch Bilder skaliert?

    In dem Screenshot (Siehe Link) geht es dabei um das runde etwas auf der rechten Seite, welches eine Größe von 760 auf 595 px hat - Das Control selbst hat die selbe Größe.
    Normalerweise sollte das runde etwas mittig angezeigt werden :/

    Bild
    Ein Teil des Codes:

    Spoiler anzeigen

    Control

    VB.NET-Quellcode

    1. Option Compare Binary
    2. Option Explicit On
    3. Option Strict On
    4. Option Infer On
    6. Imports System.Drawing
    8. Public Class GraphicsControl
    10. Private _lastColor As Color = Me.BackColor
    11. Private _images As New Dictionary(Of OsuImage, Boolean)
    12. Private _inForeGround As OsuImage
    13. Private _actions As New Dictionary(Of String, ActionType)
    15. Public Sub MakeTransparent()
    16. If Me.BackColor = Color.Transparent Then Return
    17. _lastColor = Me.BackColor
    18. Me.BackColor = Drawing.Color.Transparent
    19. End Sub
    21. Public Sub MakeInTransparent()
    22. Me.BackColor = _lastColor
    23. End Sub
    25. Public Sub MakeInTransparent(ByVal c As Color)
    26. _lastColor = c
    27. MakeInTransparent()
    28. End Sub
    30. Public Sub Add(ByVal image As OsuImage)
    31. If Include(image.Name) Then Return
    32. _images.Add(image, True)
    33. Draw(image)
    34. End Sub
    36. Public Sub BringToForeGround(ByVal name As String)
    37. If Not Include(name) Then Return
    38. Dim osImg As OsuImage = (From img As OsuImage In _images.Keys Where img.Name.Equals(name))(0)
    40. If Not _images(osImg) Then Return
    41. If _inForeGround.Name.Equals(osImg.Name) Then Return
    43. Draw(name)
    44. End Sub
    46. Public Sub Remove(ByVal name As String)
    47. If Not Include(name) Then Return
    49. Dim osImg As OsuImage = (From img As OsuImage In _images.Keys Where img.Name.Equals(name))(0)
    50. Dim isVisible As Boolean = _images(osImg)
    51. _images.Remove(osImg)
    53. If _actions.ContainsKey(name) Then _actions.Remove(name)
    55. If isVisible Then Refresh()
    56. End Sub
    58. Public Sub BlendOut(ByVal name As String)
    59. If Not Include(name) Then Return
    61. Dim osImg As OsuImage = (From img As OsuImage In _images.Keys Where img.Name.Equals(name))(0)
    62. Dim isVisible As Boolean = _images(osImg)
    64. _images(osImg) = False
    65. If isVisible Then Refresh()
    66. End Sub
    68. Public Sub BlendIn(ByVal name As String)
    69. If Not Include(name) Then Return
    71. Dim osImg As OsuImage = (From img As OsuImage In _images.Keys Where img.Name.Equals(name))(0)
    72. Dim isVisible As Boolean = _images(osImg)
    74. _images(osImg) = True
    75. If Not isVisible Then Draw(name)
    76. End Sub
    78. Public Sub AddAction(ByVal name As String, ByVal act As Action)
    79. If Not Include(name) Then Return
    81. Dim osImg As OsuImage = (From img As OsuImage In _images.Keys Where img.Name.Equals(name))(0)
    82. Dim action As New ActionType With {.Name = name, .Action = act, .Loc = osImg.Loc, .Size = osImg.Img.Size}
    84. _actions.Add(name, action)
    85. End Sub
    87. Private Function Include(ByVal name As String) As Boolean
    88. Dim imgs = From img As OsuImage In _images.Keys Where img.Name.Equals(name)
    90. Return imgs.Count > 0
    91. End Function
    93. Private Sub Draw(ByVal name As String)
    94. Dim images = From img As OsuImage In _images.Keys Where img.Name.Equals(name)
    96. Dim osImg As OsuImage = images(0)
    97. Draw(osImg)
    98. End Sub
    100. Private Sub Draw(ByVal osImg As OsuImage)
    101. Dim g As Graphics = Me.CreateGraphics
    103. g.DrawImage(osImg.Img, osImg.Loc)
    104. _inForeGround = osImg
    105. End Sub
    107. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    108. MyBase.OnPaint(e)
    109. Dim inForeGround As OsuImage = Nothing
    111. For Each osImg In _images
    112. If osImg.Value Then
    113. e.Graphics.DrawImage(osImg.Key.Img, osImg.Key.Loc)
    114. inForeGround = osImg.Key
    115. End If
    116. Next
    118. _inForeGround = inForeGround
    119. End Sub
    121. Protected Overrides Sub OnMouseClick(ByVal e As System.Windows.Forms.MouseEventArgs)
    122. MyBase.OnMouseClick(e)
    124. Dim mPos As New Point(MousePosition.X, MousePosition.Y)
    125. Dim point As Point = Osu.Business.OsuGraphics.GetRealPosition(Me)
    127. For Each actName As String In _actions.Keys
    128. If Not _images((From img As OsuImage In _images.Keys Where img.Name.Equals(actName))(0)) Then Continue For
    130. Dim actType As ActionType = _actions(actName)
    132. Dim realPoint As Point = New Point(point.X + actType.Loc.X, point.Y + actType.Loc.Y)
    133. Dim rect As New Rectangle(realPoint, actType.Size)
    135. If rect.Contains(mPos) Then actType.Action.Invoke()
    136. Next
    137. End Sub
    138. End Class
    140. Public Structure ActionType
    142. Public Name As String
    143. Public Action As Action
    144. Public Loc As Point
    145. Public Size As Size
    147. End Structure
    149. Public Structure OsuImage
    151. Public Name As String
    152. Public Img As Image
    153. Public Loc As Point
    154. Public ScaleSize As Size
    156. End Structure

    Hinzufügen des Bildes auf einem bestehenden Control

    VB.NET-Quellcode

    1. GCDrawingArea.Add(New OsuImage With {.Name = "Background", .Loc = New Point(0, 0), .Img = Image.FromFile(Menus.GetFileName(EMenus.Welcome_menu_))})

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kagurame“ ()

Facebook
Telefonspende