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
GR
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
- Public Class Form1
- Private pt As Point
- Dim x As Integer
- Dim y As Integer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.PictureBox1.BorderStyle = BorderStyle.FixedSingle
- End Sub
- Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Left Then
- pt = e.Location
- x = PictureBox1.Size.Width - pt.X
- y = PictureBox1.Size.Height - pt.Y
- End If
- End Sub
- Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
- Me.Cursor = Cursors.Default
- End Sub
- Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
- If e.Button = Windows.Forms.MouseButtons.Left Then
- PictureBox1.Size = New Size(e.Location.X + x, e.Location.Y + y)
- End If
- Me.Cursor = Cursors.SizeAll
- End Sub
- End Class
GR
Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen".