copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - TextBox mit gedrückter Alt- und gedrückter linker Maustaste in der Größe verändern
'
Option Explicit On
Option Strict On

Public Class Form1

    Private NewSize As Boolean = False
    Private Shadows Location As Point

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
            Handles MyBase.MouseDown
        Me.ResizeTextBox("Down", e)
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
            Handles MyBase.MouseMove
        Me.ResizeTextBox("Move", e)
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
            Handles MyBase.MouseUp
        Me.ResizeTextBox("Up", e)
    End Sub

    Private Sub ResizeTextBox(ByVal Index As String, ByVal e As System.Windows.Forms.MouseEventArgs)
        Select Case Index
            Case "Down"
                If e.Button = Windows.Forms.MouseButtons.Left Then
                    If Control.ModifierKeys = Keys.Alt Then
                        Location.X = e.X : Location.Y = e.Y
                        NewSize = True
                    End If
                End If
            Case "Move"
                If NewSize Then
                    With Me.TextBox1
                        .Width += e.X - Location.X
                        .Height += e.Y - Location.Y
                        Location.X = e.X : Location.Y = e.Y
                    End With
                End If
            Case "Up"
                NewSize = False
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "TextBox mit gedrueckter Alt- und gedrueckter linker Maustaste in der Groesse veraendern"
            .TextBox1.Multiline = True
            .CenterToScreen()
            .Label1.Text = "Alt-Taste druecken und mit gedrueckter Maustaste auf der Form die Groesse aendern..."
        End With
    End Sub

End Class
Sourcecode Visual Basic