Picture1

[PedroBarreto]

Bom dia eu to criando um programa de nomear foto exemplo uma foto de duas criaças o cara coloca o texto que ele que e aperta ok que aparece o texto na picture com a foto.

mais o texto aparece do lado esquerdo la em cima da picture.

mais eu quero que aonde a pessoa clicar na foto naquele lugar aparece o texto

deu pra entende?

[PedroBarreto]

E por favor esplique as linhas.

[Graymalkin]

Você pode utilizar as propriedades CurrentX e CurrentY para definir onde o texto irá começar. Basta atribuir os valores (posições) à elas. Para detectar onde o usuário clicou você pode utilizar o evento MouseMove. Isso é tudo que você precisa saber, portanto você já tem um ponto de partida e já pode tentar fazer sozinho.

Abraços,

Graymalkin

[PedroBarreto]

Cara Passa o codigo eu não consegui por favor men

Braços

[Graymalkin]

Cara Passa o codigo eu não consegui por favor men

Braços

É, estou bonzinho demais hoje... Bom, declare esses dois eventos aí (supondo que sua PictureBox se chame Picture1):

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        s = InputBox("Digite o nome:")
        Picture1.Print s
    End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.CurrentX = X
    Picture1.CurrentY = Y
End Sub

Creio que nem precise de explicação.

Abraços,

Graymalkin

[PedroBarreto]

cara esplica linha por linha

[Graymalkin]

cara esplica linha por linha

Cara, o que tem ali para explicar? Que CurrentX define a posição no eixo X e CurrentY define a posição no eixo Y para desenhar e escrever? Isso é óbvio pelo nome da propriedade (Current = Atual, Corrente).

Abraços,

Graymalkin

[PedroBarreto]

cara porque com o modo texto deu certo mais no modo image não deu olhe:

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

If Text1.Text = "" Then

Picture1.Print (Image5)

End If

End Sub

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

Picture1.CurrentX = X

Picture1.CurrentY = Y

End Sub

porque ele não colou a image5 no picture?

eu já troquei aquele Image5 por Image5.picture e por .image mais não da ajude para hoje por favor

abraços

[Graymalkin]

O método Print só serve para texto. Para outra imagem você precisa do método PaintPicture.

picture1.paintpicture image1.picture, x, y

Abraços,

Graymalkin

[PedroBarreto]

oque a de errado?

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

If Text1.Text = "" Then

Picture1.PaintPicture (Image5.Picture)

End If

End Sub

[Graymalkin]

oque a de errado?

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

If Text1.Text = "" Then

Picture1.PaintPicture (Image5.Picture)

End If

End Sub

Você não colocou os outros parâmetros obrigatórios de PainPicture. Todos os parâmetros com [] são opcionais, mas os demais não.

Abraços,

Graymalkin

[PedroBarreto]

Cara eu tentei

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

If Text1.Text = "" Then

Picture1.PaintPicture (image5.Picture As StdPicture, x1 As Single, y1 As Single)

End If

End Sub

mais da um erro no primeiro as

porque?

[Graymalkin]

Cara eu tentei

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

If Text1.Text = "" Then

Picture1.PaintPicture (image5.Picture As StdPicture, x1 As Single, y1 As Single)

End If

End Sub

mais da um erro no primeiro as

porque?

Porque não tem "As" ali; não se utiliza "As" nesse caso. Você precisa aprender a utilizar as coisas nos seus devidos lugares. Um código não é escrito à moda bangu; para tudo existe regra. E, no seu caso, deve-se passar os valores desejados, não declarar variáveis.

Abraços,

Graymalkin

[PedroBarreto]

velho passa o codigo pliss

[Graymalkin]

velho passa o codigo pliss

O que são os parâmetros X1 e Y1 de PaintPicture? O que você imagina que eles sejam?

Abraços,

Graymalkin

[PedroBarreto]

a posisao x e y da onde a image vai ficar na picture certo?

[Graymalkin]

a posisao x e y da onde a image vai ficar na picture certo?

Exatamente! Então, quais seriam essas posições? Onde você quer colocar a imagem? Começando no topo do lado esquerdo ou onde o cara clicou?

Abraços,

Graymalkin

[PedroBarreto]

a posicao x e y onde vai ficar a image no picture certo?

[PedroBarreto]

a posiçao que o cara clicar certo?

[Graymalkin]

a posiçao que o cara clicar certo?

Não sei, ué! É você quem está fazendo o programa. É você que vai decidir se é onde o cara clicou ou se é no topo do lado esquerdo. Qual dos dois *você* quer?

Abraços,

Graymalkin

[PedroBarreto]

onde o cara clicou na picture 1 no programa tm tem o codigo:

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

Picture1.CurrentX = X

Picture1.CurrentY = Y

End Sub

[Graymalkin]

onde o cara clicou na picture 1 no programa tm tem o codigo:

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

Picture1.CurrentX = X

Picture1.CurrentY = Y

End Sub

Você quer que a imagem apareça onde o cara clicou mesmo? Se for, você não tem essas posições guardadas em CurrentX e CurrentY? O que está esperando para utilizá-las?

Abraços,

Graymalkin

[PedroBarreto]

calma não sai daqui eu vo tenta daqui exatamente 3 min eu volto ok?

[PedroBarreto]

tentei isso mais eu sei que passei longe

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

If Text1.Text = "" Then

picture1.PaintPicture (image5.Picture x end y)

End If

End Sub

[Graymalkin]

tentei isso mais eu sei que passei longe

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

If Text1.Text = "" Then

picture1.PaintPicture (image5.Picture x end y)

End If

End Sub

Brother, o que separa os parâmetros de uma função? Quando aparece aquela janelinha amarelinha ela já te dá todas as dicas.

Abraços,

Graymalkin

[PedroBarreto]

ate hj não sei oque significa parametros e nem funcoes eu vo tudo no chute esplica aew