Imports System.Windows.Forms
Public Class MaßbandFrm
 
Dim nStartPos As Point
Dim nDragPos As Point
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
    Private Sub MaßbandFrm_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.TopMost = False
    End Sub
 
    Private Sub MaßbandFrm_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Start()
        Me.Opacity = 0.5
        Me.TopMost = True
    End Sub
 
    Private Sub MaßbandFrm_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        nStartPos = Me.Location
        nDragPos = Me.PointToScreen(New Point(e.X, e.Y))
        If Cursor = Cursors.Default Then Cursor = Cursors.SizeAll
    End Sub
 
    Private Sub MaßbandFrm_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Try
            If e.Button = Windows.Forms.MouseButtons.None Then
                If e.Location.X > Me.Width - 3 And e.Location.Y > _
                  Me.Height - 3 Then
                    Cursor = Cursors.SizeNWSE
                ElseIf e.Location.X > Me.Width - 3 Then
                    Cursor = Cursors.SizeWE
                ElseIf e.Location.Y > Me.Height - 3 Then
                    Cursor = Cursors.SizeNS
                Else
                    Cursor = Cursors.Default
                End If
            ElseIf e.Button = Windows.Forms.MouseButtons.Left Then
                Dim w As Integer = Math.Max(e.Location.X, 200)
                Dim h As Integer = Math.Max(e.Location.Y, 200)
                If Cursor = Cursors.SizeNWSE Then
                    Me.Width = w : Me.Height = h
                ElseIf Cursor = Cursors.SizeWE Then
                    Me.Width = w
                ElseIf Cursor = Cursors.SizeNS Then
                    Me.Height = h
                ElseIf Cursor = Cursors.SizeAll Then
                    ' >>aktuelle Mausposition bezogen auf den Desktop
                    Dim nCurPos As Point = Me.PointToScreen(New Point(e.X, e.Y))
 
                    ' >>Fenster an neuen Position verschieben
 
                    Me.Location = New Point(nStartPos.X + nCurPos.X - _
                      nDragPos.X, _
                     nStartPos.Y + nCurPos.Y - nDragPos.Y)
                End If
            End If
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub MaßbandFrm_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Cursor = Cursors.Default
    End Sub
End Class

"Ich denke also bin ich." ... voll besch?ftigt

Beitrag wurde zuletzt am 25.04.11 um 21:58:44 editiert.