Diagonale messen mit ToggleButton

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Diagonale messen mit ToggleButton
von: stef26
Geschrieben am: 10.08.2015 10:49:32

Hallo Zusammen,
ich bräuchte mal eure Hilfe...
Ich möchte eine Diagonale messen.
Wie: Anklicken und festhalten beim Startpunkt loslassen
Anklicken und festhalten und beim Endpunkt loslassen.
Dann soll er mir X und y und die diagonal anzeigen.
Irgendwie mache ich bei der Diagonale was falsch, da hier immer falsche Werte stehen.
Dazu habe ich folgenden Code in einem ToggleButton hinterlegt:

Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Static x1 As Single
Static y1 As Single
If Not ToggleButton1 Then
    x1 = X
    y1 = Y
Else
X = Round(X, 2)
Y = Round(Y, 2)
z = Sqr(((X - x1) ^ 2) + ((Y - y1) ^ 2))
z = Round(z, 2)
    MsgBox "Delta X: " & (X - x1) / 2 & " cm" & vbLf & "Delta Y: " & (Y - y1) / 2 & " cm" &  _
vbLf & "Diagonal: " & z & " cm"
End If
ToggleButton1 = Not ToggleButton1
End Sub
Was mache ich falsch ?
Liebe Grüße
Stefan

Bild

Betrifft: AW: Diagonale messen mit ToggleButton
von: stef26
Geschrieben am: 10.08.2015 10:56:53
Sorry hab den Fehler selbst gefunden...
Sorry

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Diagonale messen mit ToggleButton"