- Код: Выделить всё
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Static c As Integer
If Button = vbRightButton Then Form1.PopupMenu mnuFile
c = c + 1
If c = 1 Then
cx1 = x
cy1 = y
ElseIf c = 2 Then
cx2 = x
cy2 = y
c = 0
rasst = Sqr((cx2 - cx1) ^ 2 + (cy2 - cy1) ^ 2)
masstab = Image1.Height / Image1.Picture.Height
End If
End Sub
rasst - это расстояние между двумя точками в твипах. Как мне перевести их в сантиметры?
masstab - масштаб картинки...