vergroessern der Picturebox weahrend der Laufzeit

    • VB.NET

      vergroessern der Picturebox weahrend der Laufzeit

      Hallo

      ich hab da ein code gebastelt der die groesser der picturebox weahrend der Laufzeit eandern kann.
      das weare hilfreich wenn man ein bild weahrend der laufzeit geladen hat und die picturebox eben zu kelin ist und so man das bild nicht ganz sehen kann, so kann man einfach die groesse durchs ziehen der maus einfach eandern

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private pt As Point
      4. Dim x As Integer
      5. Dim y As Integer
      7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      8. Me.PictureBox1.BorderStyle = BorderStyle.FixedSingle
      9. End Sub
      11. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
      12. If e.Button = Windows.Forms.MouseButtons.Left Then
      13. pt = e.Location
      14. x = PictureBox1.Size.Width - pt.X
      15. y = PictureBox1.Size.Height - pt.Y
      16. End If
      17. End Sub
      19. Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
      20. Me.Cursor = Cursors.Default
      21. End Sub
      23. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
      25. If e.Button = Windows.Forms.MouseButtons.Left Then
      26. PictureBox1.Size = New Size(e.Location.X + x, e.Location.Y + y)
      27. End If
      29. Me.Cursor = Cursors.SizeAll
      31. End Sub
      32. End Class


      GR
      Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen". ?(