TIRAR MEDIDAS DE UMA IMAGEM COM OBJETO LINE

PATRICIALINDA 02/08/2009 12:32:34
#318588
Postei meu source (fonte) do programinha para tirar medidas (foto ou imagem) marcadas pelo proprio usuário como mostra na imagem abaixo:

  • SCREEN DO MEU OBJETIVO NO SOFTWARE:
    http://www.gtsdigital.com.br/arquivos_download/LINE.jpg


  • SOURCE (FONTE) DO SOFTWARE ATé O MOMENTO:
    http://www.gtsdigital.com.br/arquivos_download/Source_Medidas.zip

    Ações que preciso fazer:
    Até agora só consegui com ajuda do membro do VBMania
    • [Ô]TECLA[Ô] o uso do pincel na mão livre, mas nao sei tirar e marcar na picture-box a medida como mostra no screen acima.

    >>>>>>>Preciso saber o valor das unidades de medidas (milimetros, cm, twips, Pixel e Inches) que o usuario traçou igual como mostra no screen.


    [txt-color=#ff0000]A regua amarela é só perfumaria para dar um ênfase mais profissional.[/txt-color]

    Dica: eu achado que em alguns modelos, só daria para fazer com o objeto padrão do VB chamado LINE, estou correta ?

    Me ajudem, por favor, pois nao estou conseguindo.... ?


    WCOSTA 02/08/2009 14:41:26
    #318597
    Inseri um line e consegui traçar a reta

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

        [ô]OPÇÕES DO USUARIO
        Picture1.DrawMode = 13
        Picture1.DrawWidth = CboPontaPincel.Text
        
        
        
        If OptLivre.Value = True Then
        [ô]OPÇÃO: Mão livre
            [ô]BOTÃO ESQUERDO DO MOUSE
            If Button > 0 Then
                Picture1.Line (oldx, oldy)-(X, Y), vbGreen
            End If
            
        
        ElseIf OptReta.Value = True Then
        [ô]OPÇÃO: Reta
            If Button > 0 Then
            Line1.Visible = True
            Line1.X1 = oldx
            Line1.Y1 = oldy
            End If
        ElseIf OptReta.Value = True Then
        [ô]OPÇÃO: Raio
        
        End If
        
        
        
        
        [ô]VARIÁVEIS RECEVENDO OS PARAMETROS x E y
        [ô]oldx = X
        [ô]oldy = Y
        
    End Sub

    Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If OptReta.Value = True Then
        [ô]OPÇÃO: Reta
                    If Button > 0 Then
            Line1.X2 = X
            Line1.Y2 = Y
            MsgBox Abs(Line1.X2 - Line1.X1) * 1040
            End If
    End If
    End Sub
    PATRICIALINDA 04/08/2009 10:44:13
    #318817
    WCOSTA, seu codigo funcionou para mim apenas para colocar linha reta, nao consegui tirar a medida do traçado ainda...
    WCOSTA 04/08/2009 19:50:43
    #318925
    Pensa en algo como medir a diferença entre X2 e X1 em ABS(), mas precisará converter a medida da linha que deve estar em twip para mm ou cm
    Tópico encerrado , respostas não são mais permitidas
    Voltar