title image


Smiley Danke, habe es schon gelöst...
Ich projektziere beim Klicken ein Rechteck auf die Mauskoordinaten und lasse das Rechteck blinken.



Private Sub Bild1_Click()

Dim bildX As Single, bildY As Single, markerX As Single, markerY As Single

bildX = Me!Bild1.Left

bildY = Me!Bild1.Top

Me!rr1.Left = Me!bzX.Caption + bildX - 141 '141 = Mitte des Rechtecks

Me!rr1.Top = Me!bzY.Caption + bildY - 141

Me!txXPos = Me!bzX.Caption + bildX - 141

Me!txYPos = Me!bzY.Caption + bildY - 141

Me!bfSpeichern.Enabled = True

End Sub



Private Sub Bild1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me!bzX.Caption = X

Me!bzY.Caption = Y

End Sub



Private Sub Form_Current()

If Nz(Dir(pfad & "skizze.jpg")) "" Then

Me!Bild1.Picture = pfad & "skizze.jpg"

Me!rr1.Visible = True

Me!rr1.Left = Me!txXPos

Me!rr1.Top = Me!txYPos

Else

Me!Bild1.Visible = False

Me.Width = 1000

End If

End Sub



Private Sub Form_Timer()

If Nz(Dir(pfad & "skizze.jpg")) "" Then

If Me!rr1.Visible = True Then

Me!rr1.Visible = False

Else

Me!rr1.Visible = True

End If

End If

End Sub
Ch. Bielmeier
aus Ludwigsburg
-MSAccess97/2000
-HTML/CSS
-C++
-PHP
-MySQL
-JS (Anfänger)
-VB6.0
-Visual Studio Express 2005 (Anfänger)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: