Picturebox mit autom. Grössenanpassung des Bilds

    • VB.NET
    • .NET (FX) 4.5–4.8

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

      Picturebox mit autom. Grössenanpassung des Bilds

      Hi Ihr,

      nachdem ich einige Zeit damit verbracht habe, Bilder in meiner Anwendung stets passend in einem Parent-Container und mit möglicher Auswahl vom PicSizeMode Normal, Center, Zoom und Stretch anzeigen zu können, hier mein Script:
      Vielleicht kann es ja mal jemand brauchen.

      Das Bild resized automatisch beim Resizen der Mainform, wenn das Tsc_PicEditor an dieser verankert ist.

      Ich bitte um Nachsicht, wenn es nicht perfekt gecodet ist, bin aber noch nicht so lange mit VB.Net unterwegs.

      Benötigt werden:
      - Ein ToolStripControl als Container für die PicBox mit Namen "Tsc_PicEditor"
      - Eine PictureBox im CenterPanel des o.g. Tsc_PicEditor mit Namen "PictureBox"
      - Fünf Buttons für MainformPicSizeMode Normal, Center, Zoom und Stretch sowie Bild Beschneiden
      - Vier Buttons für Links und Rechts drehen, sowie Horizontal und Vertikal spiegeln

      VB.NET-Quellcode

      1. Dim MainformPicSizeMode as integer = 0
      3. ' Rubberband
      4. Dim inRubberBand As Boolean = False
      5. dim clearImage as Boolean = false
      7. Dim cropX As Integer
      8. Dim cropY As Integer
      9. Dim cropWidth As Integer
      10. Dim cropHeight As Integer
      11. Dim mousePosX As Integer
      12. Dim mousePosY As Integer
      13. Dim mouseMovePosX As Integer
      14. Dim mouseMovePosY As Integer
      16. Dim oCropX As Integer
      17. Dim oCropY As Integer
      18. Dim cropBitmap As Bitmap
      20. Public cropPen As Pen
      21. Public cropPenSize As Integer = 2
      22. Public cropDashStyle As Drawing2D.DashStyle = Drawing2D.DashStyle.Solid
      23. Public cropPenColor As Color = Color.Red
      26. Private Sub StateChangedForm_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged
      27. FormWindowState_Changed(False)
      28. End Sub
      30. Private Sub StateChangedForm_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
      31. FormWindowState_Changed(True)
      32. End Sub
      34. Private Sub FormWindowState_Changed(grössenänderung As Boolean)
      35. Select Case Me.WindowState
      37. Case = FormWindowState.Normal
      38. If grössenänderung = True andalso tsc_PicEditor.Visible = True Then
      39. resize_PicEditor()
      40. End If
      42. Case = FormWindowState.Maximized
      43. If grössenänderung = True andalso tsc_PicEditor.Visible = True Then
      44. tsc_PicEditor_PictureBox.Visible = False
      45. resize_PicEditor()
      46. End If
      47. End Select
      48. End Sub
      50. Private Sub Tsc_PicEditor_PictureBox_Paint(sender As Object, e As PaintEventArgs) Handles tsc_PicEditor_PictureBox.Paint
      51. If clearImage Then
      52. clearImage = False
      53. e.Graphics.Clear(Color.White)
      54. End If
      55. End Sub
      57. Private Sub Tsc_PicEditor_PictureBox_MouseEnter(sender As Object, e As EventArgs) Handles tsc_PicEditor_PictureBox.MouseEnter
      58. tsc_PicEditor.Cursor = Cursors.Cross
      59. End Sub
      61. Private Sub Tsc_PicEditor_PictureBox_MouseLeave(sender As Object, e As EventArgs) Handles tsc_PicEditor_PictureBox.MouseLeave
      62. tsc_PicEditor.Cursor = Cursors.Default
      63. End Sub
      65. Private Sub Tsc_PicEditor_PictureBox_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tsc_PicEditor_PictureBox.MouseDown
      66. Try
      67. cropPenColor = My.Settings.PicEditor_RubberbandFarbe
      68. cropPenSize = My.Settings.PicEditor_RubberbandSize
      69. cropWidth = 0
      70. cropHeight = 0
      71. inRubberBand = False
      72. If e.Button = Windows.Forms.MouseButtons.Left Then
      73. cropX = e.X
      74. cropY = e.Y
      75. cropPen = New Pen(cropPenColor, cropPenSize) With {
      76. .DashStyle = DashStyle.DashDotDot
      77. }
      78. End If
      79. tsc_PicEditor_PictureBox.Refresh()
      80. Catch exc As System.Exception
      81. End Try
      82. End Sub
      84. Private Sub Tsc_PicEditor_PictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tsc_PicEditor_PictureBox.MouseMove
      85. Try
      86. If tsc_PicEditor_PictureBox.Image Is Nothing Then Exit Sub
      88. mousePosX = e.X
      89. mousePosY = e.Y
      91. If e.Button = Windows.Forms.MouseButtons.Left Then
      93. tsc_PicEditor_PictureBox.Refresh()
      95. If e.X <= tsc_PicEditor_PictureBox.Width - My.Settings.PicEditor_RubberbandSize Then
      96. cropWidth = e.X - cropX
      97. mouseMovePosX = e.X
      98. Else
      99. mouseMovePosX = tsc_PicEditor_PictureBox.Width
      100. cropWidth = tsc_PicEditor_PictureBox.Width - cropX - My.Settings.PicEditor_RubberbandSize
      101. End If
      103. If e.Y <= tsc_PicEditor_PictureBox.Height - My.Settings.PicEditor_RubberbandSize Then
      104. cropHeight = e.Y - cropY
      105. mouseMovePosY = e.Y
      106. Else
      107. mouseMovePosY = tsc_PicEditor_PictureBox.Height
      108. cropHeight = tsc_PicEditor_PictureBox.Height - cropY - My.Settings.PicEditor_RubberbandSize
      109. End If
      111. inRubberBand = True
      113. tsc_PicEditor_PictureBox.CreateGraphics.DrawRectangle(cropPen, cropX, cropY, cropWidth, cropHeight)
      114. End If
      116. System.Windows.Forms.Application.DoEvents()
      117. Catch exc As System.Exception
      118. If Err.Number = 5 Then Exit Sub
      119. End Try
      120. End Sub
      122. Private Sub Tsc_PicEditor_PictureBox_MouseUp(sender As Object, e As MouseEventArgs) Handles tsc_PicEditor_PictureBox.MouseUp
      123. inRubberBand = False
      124. End Sub
      126. Private Sub Bild_LadenUndAnzeigen(name As String)
      127. tsc_PicEditor_PictureBox.Visible = False
      128. Using fs As New System.IO.FileStream(name, IO.FileMode.Open)
      129. tsc_PicEditor_PictureBox.Image = New Bitmap(Image.FromStream(fs))
      130. End Using
      131. resize_PicEditor()
      132. inRubberBand = False
      133. End Sub
      136. Private Sub Bild_Normal()
      137. tsc_PicEditor_PictureBox.Visible = False
      138. MainformPicSizeMode = 0
      139. resize_PicEditor()
      140. End Sub
      142. Private Sub Bild_Center()
      143. tsc_PicEditor_PictureBox.Visible = False
      144. MainformPicSizeMode = 1
      145. resize_PicEditor()
      146. End Sub
      148. Private Sub Bild_Zoom()
      149. tsc_PicEditor_PictureBox.Visible = False
      150. MainformPicSizeMode = 2
      151. resize_PicEditor()
      152. End Sub
      154. Private Sub Bild_Stretch()
      155. tsc_PicEditor_PictureBox.Visible = False
      156. MainformPicSizeMode = 3
      157. resize_PicEditor()
      158. End Sub
      160. Private Sub Bild_LinksDrehen()
      161. Dim Bitmap As Image
      163. tsc_PicEditor_PictureBox.Visible = False
      165. Bitmap = tsc_PicEditor_PictureBox.Image
      166. Bitmap.RotateFlip(RotateFlipType.Rotate270FlipNone)
      167. tsc_PicEditor_PictureBox.Image = Bitmap
      168. resize_PicEditor()
      169. End Sub
      171. Private Sub Bild_RechtsDrehen()
      172. Dim Bitmap As Image
      174. tsc_PicEditor_PictureBox.Visible = False
      176. Bitmap = tsc_PicEditor_PictureBox.Image
      177. Bitmap.RotateFlip(RotateFlipType.Rotate90FlipNone)
      178. tsc_PicEditor_PictureBox.Image = Bitmap
      179. resize_PicEditor()
      180. End Sub
      182. Private Sub Bild_VertikalSpiegeln()
      183. Dim Bitmap As Image
      185. tsc_PicEditor_PictureBox.Visible = False
      187. Bitmap = tsc_PicEditor_PictureBox.Image
      188. Bitmap.RotateFlip(RotateFlipType.Rotate180FlipY)
      189. tsc_PicEditor_PictureBox.Image = Bitmap
      190. resize_PicEditor()
      191. End Sub
      193. Private Sub Bild_HorizontalSpiegeln()
      194. Dim Bitmap As Image
      196. tsc_PicEditor_PictureBox.Visible = False
      198. Bitmap = tsc_PicEditor_PictureBox.Image
      199. Bitmap.RotateFlip(RotateFlipType.Rotate180FlipX)
      200. tsc_PicEditor_PictureBox.Image = Bitmap
      201. resize_PicEditor()
      202. End Sub
      204. Private Sub Bild_Beschneiden()
      205. Try
      207. If cropWidth < 1 Then
      208. Exit Sub
      209. End If
      211. tsc_PicEditor_PictureBox.Visible = False
      213. Dim rect As New Rectangle(cropX, cropY, cropWidth, cropHeight)
      214. Dim bit As New Bitmap(tsc_PicEditor_PictureBox.Image, tsc_PicEditor_PictureBox.Width, tsc_PicEditor_PictureBox.Height)
      216. cropBitmap = New Bitmap(cropWidth, cropHeight)
      217. Dim g As Graphics = Graphics.FromImage(cropBitmap)
      218. g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
      219. g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
      220. g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
      221. g.DrawImage(bit, 0, 0, rect, GraphicsUnit.Pixel)
      222. tsc_PicEditor_PictureBox.Image = cropBitmap
      223. resize_PicEditor()
      225. Catch exc As System.Exception
      226. End Try
      227. inRubberBand = False
      228. End Sub
      230. Private Sub resize_PicEditor()
      231. Dim tmpString As String = ""
      233. tsc_PicEditor_PictureBox.SuspendLayout()
      235. If tsc_PicEditor_PictureBox.Image IsNot Nothing Then
      237. tsc_PicEditor.Width = spc_DateienInhalte.Panel2.Width
      238. tsc_PicEditor.Height = spc_DateienInhalte.Panel2.Height
      239. tsc_PicEditor_Panel.Width = tsc_PicEditor.Width - 2
      241. Dim bildWidth As Integer = tsc_PicEditor_PictureBox.Image.Width
      242. Dim bildHeight As Integer = tsc_PicEditor_PictureBox.Image.Height
      243. Dim panelWidth As Integer = tsc_PicEditor_Panel.Width
      244. Dim panelHeight As Integer = tsc_PicEditor_Panel.Height
      246. Select Case MainformPicSizeMode
      247. Case = 0 ' normal
      248. tmpString = "Originalgrösse"
      250. If ((bildWidth > panelWidth) Or (bildHeight > panelHeight)) Then
      251. tsc_PicEditor_PictureBox.Anchor = AnchorStyles.Top Or AnchorStyles.Left
      252. Else
      253. tsc_PicEditor_PictureBox.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
      254. End If
      255. tsc_PicEditor_PictureBox.SizeMode = PictureBoxSizeMode.Normal
      257. tsc_PicEditor_PictureBox.Left = 0
      258. tsc_PicEditor_PictureBox.Top = 0
      259. tsc_PicEditor_PictureBox.Width = bildWidth
      260. tsc_PicEditor_PictureBox.Height = bildHeight
      262. Case = 1 ' center
      263. tmpString = "Originalgrösse (zentriert)"
      265. tsc_PicEditor_PictureBox.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
      266. tsc_PicEditor_PictureBox.SizeMode = PictureBoxSizeMode.CenterImage
      268. If panelWidth > bildWidth Then
      269. tsc_PicEditor_PictureBox.Left = CInt((panelWidth - bildWidth) / 2)
      270. tsc_PicEditor_PictureBox.Width = bildWidth
      271. Else
      272. tsc_PicEditor_PictureBox.Left = 0
      273. tsc_PicEditor_PictureBox.Width = panelWidth
      274. End If
      276. If panelHeight > bildHeight Then
      277. tsc_PicEditor_PictureBox.Top = CInt((panelHeight - bildHeight) / 2)
      278. tsc_PicEditor_PictureBox.Height = bildHeight
      279. Else
      280. tsc_PicEditor_PictureBox.Top = 0
      281. tsc_PicEditor_PictureBox.Height = panelHeight
      282. End If
      284. Case = 2 ' Zoom
      285. tmpString = "Anzeigegrösse (Verhältnis beibehalten)"
      287. tsc_PicEditor_PictureBox.Anchor = AnchorStyles.None
      288. tsc_PicEditor_PictureBox.SizeMode = PictureBoxSizeMode.Zoom
      290. If panelWidth > 0 AndAlso panelHeight > 0 Then
      291. Dim panelVerhältnis As Single = CSng(panelWidth / panelHeight)
      292. Dim BildVerhältnis As Single = CSng(bildWidth / bildHeight)
      294. If panelVerhältnis > 1 Then
      295. ' Panel breiter als Hoch
      296. If BildVerhältnis > 1 Then
      297. ' Bild breiter als Hoch
      298. If panelVerhältnis < BildVerhältnis Then
      299. ' Bild schmaler als Panel
      300. tsc_PicEditor_PictureBox.Top = CInt((panelHeight - (panelWidth / bildWidth * bildHeight)) / 2)
      301. tsc_PicEditor_PictureBox.Left = 0
      302. tsc_PicEditor_PictureBox.Width = panelWidth - 2
      303. tsc_PicEditor_PictureBox.Height = CInt(panelWidth / bildWidth * bildHeight)
      304. Else
      305. ' Bild breiter als Panel
      306. tsc_PicEditor_PictureBox.Top = 0
      307. tsc_PicEditor_PictureBox.Left = CInt((panelWidth - (bildWidth / (bildHeight / panelHeight))) / 2)
      308. tsc_PicEditor_PictureBox.Height = panelHeight
      309. tsc_PicEditor_PictureBox.Width = CInt(bildWidth / (bildHeight / panelHeight))
      310. End If
      311. Else
      312. ' Bild höher als Breit
      313. ' Bild höher als Panel
      314. tsc_PicEditor_PictureBox.Top = 0
      315. tsc_PicEditor_PictureBox.Left = CInt((panelWidth - (panelHeight / bildHeight * bildWidth)) / 2)
      316. tsc_PicEditor_PictureBox.Height = panelHeight
      317. tsc_PicEditor_PictureBox.Width = CInt(panelHeight / bildHeight * bildWidth)
      318. End If
      319. Else
      320. ' Panel Höher als Breit
      321. If BildVerhältnis > 1 Then
      322. ' Bild breiter als hoch
      323. tsc_PicEditor_PictureBox.Top = CInt((panelHeight - (panelWidth / bildWidth * bildHeight)) / 2)
      324. tsc_PicEditor_PictureBox.Left = 0
      325. tsc_PicEditor_PictureBox.Width = panelWidth - 2
      326. tsc_PicEditor_PictureBox.Height = CInt(panelWidth / bildWidth * bildHeight)
      327. Else
      328. If panelVerhältnis < BildVerhältnis Then
      329. ' Bild höher als Panel
      330. tsc_PicEditor_PictureBox.Top = CInt((panelHeight - (panelWidth / bildWidth * bildHeight)) / 2)
      331. tsc_PicEditor_PictureBox.Left = 0
      332. tsc_PicEditor_PictureBox.Width = panelWidth - 2
      333. tsc_PicEditor_PictureBox.Height = CInt(panelWidth / bildWidth * bildHeight)
      334. Else
      335. ' Bild niedriger als Panel
      336. tsc_PicEditor_PictureBox.Top = 1
      337. tsc_PicEditor_PictureBox.Left = CInt((panelWidth - (panelHeight / bildHeight * bildWidth)) / 2)
      338. tsc_PicEditor_PictureBox.Height = panelHeight - 2
      339. tsc_PicEditor_PictureBox.Width = CInt(panelHeight / bildHeight * bildWidth)
      340. End If
      341. End If
      342. End If
      343. End If
      344. Case = 3 ' Stretch
      345. tmpString = "Anzeigegrösse (Verhältnis ignorieren)"
      347. tsc_PicEditor_PictureBox.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
      348. tsc_PicEditor_PictureBox.SizeMode = PictureBoxSizeMode.StretchImage
      350. tsc_PicEditor_PictureBox.Left = 0
      351. tsc_PicEditor_PictureBox.Top = 0
      352. tsc_PicEditor_PictureBox.Width = panelWidth - 2
      353. tsc_PicEditor_PictureBox.Height = panelHeight
      354. End Select
      355. dateiinfo = tmpString & " - (" & Format(tsc_PicEditor_PictureBox.Image.PhysicalDimension.Width, "###,###,##0") & " x " & Format(tsc_PicEditor_PictureBox.Image.PhysicalDimension.Height, "###,###,##0") & " - Format: " & Chr(34) & tsc_PicEditor_PictureBox.Image.PixelFormat.ToString.Substring(6) & Chr(34) & ")"
      356. Else
      357. dateiinfo = "Pic-Viewer - Kein Bild geladen"
      358. End If
      359. tsc_PicEditor_PictureBox.Visible = True
      360. tsc_PicEditor_PictureBox.ResumeLayout()
      361. End Sub

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Dideldum“ ()

      Anstatt viele Voraussetzungen bzgl. des Codes zu machen, wäre ein Beispielprogramm sinnvoll gewesen.
      Zeile#37: If grösse = - der Parameter ist nicht definiert. Der Code sollte vor dem Posten erfolgreich getestet sein und funktionieren. Bitte nachbessern.
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

      Dideldum schrieb:

      Das Bild resized automatisch beim Resizen der Mainform, wenn das Tsc_PicEditor an dieser verankert ist.
      Das kann ja auch jede PictureBox, wenn man sie mit geeignetem Docking oder Anchoring aufs Form packt.
      BeispielAnwendung wäre also wirklich nützlich, dass man sehen kann, was dieser Ansatz in der Beziehung anders macht.

      Beispiele

      Hi Ihr
      @VaporiZed
      Danke für Eure Beiträge.
      Sorry, muss in #37 nicht grösse, sondern grössenänderung heissen

      @ErfinderDesRades
      Ich wusste nicht, dass man hier auch fertige Apps hochladen kann.
      Was muss denn in die Beispielanwendung rein?
      Gibt es dafür eine Anleitung?
      Dann bastle ich das.

      Also bei meinem Script wird die PictureBox wie in den Pics in dem ToolStripContainer angezeigt.
      Das habe ich nicht anders hinbekommen, als mit dem Code.
      Wird der TSC resized, passt sich die PicBox automatisch an.
      Wenn das auch anders und einfacher funktioniert, kann man diesen Thread gerne löschen.
      Bilder

      • Center.jpg

        161,52 kB, 1.206×1.096, 23 mal angesehen

      • Normal.jpg

        133,39 kB, 1.206×1.074, 23 mal angesehen

      • Stretch.jpg

        206,54 kB, 1.206×1.096, 25 mal angesehen

      • Zoom 1.jpg

        144,28 kB, 956×1.022, 24 mal angesehen

      • Zoom 2.jpg

        90,16 kB, 490×1.016, 25 mal angesehen

      Du kannst ein Projekt ohne bin-, obj-, .vs- und .git-Ordner und gezippt über [+ Erweiterte Antwort] hochladen. Eben ein Visual Studio Projekt, welches den Quellcode enthält. Also in dem Fall ein ganzes Testprojekt. Nur eben ohne die anfangs erwähnten Ordner.
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Facebook
    Telefonspende