vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Rechteck auf PictureBox verschieben 
Autor: Dikn
Datum: 11.07.18 11:00

Hallo!
Ich möchte ein Rechteck auf einer PictureBox mit der Maus bewegen.
Dies funktioniert auch mit:
Public Class Form1
  Dim x1, y1, x2, y2, w, h As Integer
  Dim dragRec As Boolean
  Dim memX, memY As Integer
 
  Private Sub Form1_Load _
             (sender As Object, e As EventArgs) Handles Me.Load 
  x1 = 80: y1 = 45: x2 = 240: y2 = 135 : w = 160: h = 90
  End Sub
 
  Private Sub pb1_MouseDown _
             (ByVal sender As Object, ByVal e As _
             System.Windows.Forms.MouseEventArgs) Handles pb1.MouseDown
  dragRec = True
  memX = e.X: tb1.Text = memX
  memY = e.Y: tb2.Text = memY
  End Sub
 
  Private Sub pb1_MouseMove _
             (ByVal sender As Object, ByVal e As _
             System.Windows.Forms.MouseEventArgs) Handles pb1.MouseMove
  If Not dragRec Then Exit Sub
 
  x1 = x1+(e.X-memX) 
  memX = e.X
  y1 = y1+(e.Y-memY) 
  memY = e.Y
  x2 = x1+w
  y2 = y1+h
 
  If x1 < 0 OR y1 < 0 OR x2 > pb1.Width-3 OR y2 > pb1.Height-3 Then Exit Sub
 
  pb1.Refresh
  End Sub
 
  Private Sub pb1_MouseUp_
             (ByVal sender As Object, ByVal e As _
             System.Windows.Forms.MouseEventArgs) Handles pb1.MouseUp
  dragRec = False
  End Sub
 
 
 
  Private Sub pb1_Paint _
             (sender As Object, e As PaintEventArgs) Handles pb1.Paint 
  e.Graphics.DrawRectangle(Pens.Red, x1, y1, x2-x1, y2-y1)
  End Sub
End Class
Aber:
Warum wird das Rechteck manchmal nicht bis an den Rand geschoben????
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Rechteck auf PictureBox verschieben128Dikn11.07.18 11:00
Re: Rechteck auf PictureBox verschieben52Kuno6011.07.18 11:34
Re: Rechteck auf PictureBox verschieben51Kuno6011.07.18 12:23
Re: Rechteck auf PictureBox verschieben30Dikn11.07.18 18:30
Re: Rechteck auf PictureBox verschieben20Dikn17.07.18 11:21

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel