Diagonale messen mit ToggleButton
10.08.2015 10:49:32
stef26
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
Liebe Grüße
Stefan