FAZER CONTADOR

IGNORANTE 08/05/2011 13:03:46
#373461
Numa Picture pretendo desenhar linhas e contar os pontos que foram pintados.
O código é o seguinte:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
n = 1
If Button = 1 Then
Picture1.AutoRedraw = True
Picture1.PSet (X, Y)
n = n + 1
Label2 = n
End If
End Sub

Deslocando o rato sobre a picture vai sendo desenhada uma linha.
Que fazer para contar os pontos (x,y) desenhados?

Obrigado desde já.
ROBIU 09/05/2011 09:35:29
#373491
vê se é isso:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsNumeric(Label2.Caption) = False Then Label2.Caption = 0
    If Button = 1 Then
        Picture1.AutoRedraw = True
        Picture1.PSet (X, Y)
        Label2.Caption = CInt(Label2.Caption) + 1
    End If
End Sub


ou isso:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsNumeric(Label2.Caption) = False Then Label2.Caption = 0
    If Button = 1 Then
        Label2.Caption = CInt(Label2.Caption) + 1
    End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    If Button = 1 Then
        Picture1.AutoRedraw = True
        Picture1.PSet (X, Y)
        
    End If
End Sub
IGNORANTE 10/05/2011 14:42:39
#373592
Candeias (ou Roberto Martins?)

Obrigado pela resposta. Só agora a vi porque dantes mandavam um mail a dizer que havia resposta e agora não.

Experimentei os dois métodos e não resulta.

Eu, de facto o que quero é capturar num array as coordenadas dos pontos, mas isso parece-me que não altera nada. Quando contar mais um ponto, capturo as coordenadas e fico a saber o número de pontos que também é indispensável.

Se tiveres outra ideia, apita.
ROBIU 11/05/2011 08:29:50
#373632
Bom, eu fiz um exemplo conforme você descreveu. é só adaptar ao seu projeto.
IGNORANTE 11/05/2011 11:11:25
#373650
Olá

Descarreguei o ficheiro mas não é possível abri-lo.
Aparece uma mensagem a dizer que está corrompido.

Pode verificar isso?

Obrigado
ROBIU 11/05/2011 11:22:29
#373652
eu testei aqui e está funcionando. Pode ser a conexão. Tente baixar novamente. Se não conseguir, informe seu email para eu enviar.
IGNORANTE 12/05/2011 15:18:59
#373788
Olá

Já baixei de novo e não funciona também, mas prestei atenção e durante a descarga a janela indicativa não estava correcta.

De ve haver qualquer problema com isso.

O meu e-mail é zeleal@sapo.pt

Agradeço o envio.
MARCELO.TREZE 12/05/2011 15:26:23
#373789 Resposta escolhida
olha só

[ô]no General do form

Dim N As Integer


[ô]no seu código

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Picture1.AutoRedraw = True
        Picture1.PSet (X, Y)
        N = N + 1
        Label2.Caption = N
    End If
End Sub
IGNORANTE 12/05/2011 15:42:59
#373791
Marcelo

E não é que deu certo?

Obrigado.
Eu estava com o mouse down na cabeça e afinal basta isto.

Obrigadíssimo e também ao Candeias.
Tópico encerrado , respostas não são mais permitidas
Voltar