Olá, pessoa.
Na minha aplicação tenho um picturebox com do tamanho da imagem que está carregada nele. Essa imagem é um desenho técnico em escala. O que eu gostaria era de medir a distância real do projeto em centímetros a partir de cliques no picturebox. Criei o código
abaixo, mas não sei onde está o erro:
Public Sub BlueprintClick(sender As Object, e As MouseEventArgs)
If e.Button = MouseButtons.Left Then
If Inicio.IsEmpty Then
Inicio = New Point(e.X, e.Y)
Else
Final = New Point(e.X, e.Y)
End If
End If
If Inicio.IsEmpty = False And Final.IsEmpty = False Then
Dim cBlueprint As RPLControls.Blueprint = GetBlueprint("Blueprint" & FormPrincipal.TabProjeto.SelectedIndex + 1)
Dim escala As Integer = cBlueprint.Scale.Replace("1:", "")
Dim Xa As Double = PixelTOCentímetro(Inicio.X) / cBlueprint.DPI
Dim Xb As Double = PixelTOCentímetro(Final.X) / cBlueprint.DPI
Dim Ya As Double = PixelTOCentímetro(Inicio.Y) / cBlueprint.DPI
Dim Yb As Double = PixelTOCentímetro(Final.Y) / cBlueprint.DPI
Dim dist As Double = (Xb - Xa) ^ 2 + (Yb - Ya) ^ 2
MsgBox(dist * escala)
Inicio = Nothing
Final = Nothing
End If
End Sub
O objetivo é capturar as coordenadas no mouse, iniciais e finais, as quais representam um reta (que pode ser em qualquer direção), calcular a distância entre os pontos, em algum momento do processo converter as coordenadas para centímetros e aplicar a escala
do desenho afim de se obter o tamanho real. Alguém poderia me ajudar?
