Texto

[PedroBarreto]

como eu faço para que as pessoas possão escrever algo dentro da picture1 e quando salvar a imagem é salva com aquele texto em cima plisss me ajudem

valeww

[Guest Guest]

p**** ta feio o seu português hein???

hehehehe

manda as pessoas usarem o Paint...

hehehe

Se eu descobrir como faz isso eu posto para você...

guenta ai

[Graymalkin]

como eu faço para que as pessoas possão escrever algo dentro da picture1 e quando salvar a imagem é salva com aquele texto em cima plisss me ajudem

Para escrever você pode utilizar o método Print (sim, ele não aparece na lista, mas está lá):

picture1.print "teste"

E, para salvar é só utilizar a função SavePicture():

savepicture picture1.image, "c:\teste.bmp"

Lembre-se de ativar a propriedade AutoRedraw da mesma.

Abraços,

Graymalkin

[PedroBarreto]

ae cara valeu mais ele não salva o bmp com o texto ve oque há de errado

Private Sub Image4_Click()

Com.FileName = ""

'Definir o filtro de tipos de arquivos

Com.Filter = "Arquivo BMP |*.bmp"

'Definir o diretório inicial

Com.InitDir = "C:\Windows"

Com.ShowSave

If Com.FileName = "" Then

MsgBox "Nenhum Arquivo Exportado!"

Else

MsgBox "O Arquivo Exportado é : " & Com.FileName

'Salva arquivo com nome que você criou na COM

SavePicture Picture1.Image, Com.FileName

End If

End Sub

e eu tambem quero sabe como fais para abrir a palheta de cor pelo common dialog

[Graymalkin]

ae cara valeu mais ele não salva o bmp com o texto ve oque há de errado

Private Sub Image4_Click()

Com.FileName = ""

'Definir o filtro de tipos de arquivos

Com.Filter = "Arquivo BMP |*.bmp"

'Definir o diretório inicial

Com.InitDir = "C:\Windows"

Com.ShowSave

If Com.FileName = "" Then

MsgBox "Nenhum Arquivo Exportado!"

Else

MsgBox "O Arquivo Exportado é : " & Com.FileName

'Salva arquivo com nome que você criou na COM

SavePicture Picture1.Image, Com.FileName

End If

End Sub

Você fez o que eu disse no último parágrafo do meu post?

e eu tambem quero sabe como fais para abrir a palheta de cor pelo common dialog

Se ShowSave (Save=Salvar) abre a janela de "salvar", ShowOpen (Open=Abrir) abre a janela de "abrir", ShowPrinter (Printer=Impressora) abre a janela de impressão, o que você acha que vai abrir a paleta de cores (sendo cor = Color)?

Abraços,

Graymalkin

[PedroBarreto]

manu o negosio de salvar não da scerto olha:

Private Sub Image4_Click()

Com.FileName = ""

'Definir o filtro de tipos de arquivos

Com.Filter = "Arquivo BMP |*.bmp"

'Definir o diretório inicial

Com.InitDir = "C:\Windows"

Com.ShowSave

If Com.FileName = "" Then

MsgBox "Nenhum Arquivo Exportado!"

Else

MsgBox "O Arquivo Exportado é : " & Com.FileName

'Salva arquivo com nome que você criou na COM

SavePicture Picture1.Image, (Com.FileName)

End If

End Sub

e pra eu fasse para que o texto inserido na imagem seja da cor escolhida na palheta.

oke tem de errado?

Private Sub Image3_Click()

Com.ShowColor

Picture1.Print "teste"

Picture1.Print Color = (Com.FileName)

End Sub

[Graymalkin]

manu o negosio de salvar não da scerto olha:

Private Sub Image4_Click()

Com.FileName = ""

'Definir o filtro de tipos de arquivos

Com.Filter = "Arquivo BMP |*.bmp"

'Definir o diretório inicial

Com.InitDir = "C:\Windows"

Com.ShowSave

If Com.FileName = "" Then

MsgBox "Nenhum Arquivo Exportado!"

Else

MsgBox "O Arquivo Exportado é : " & Com.FileName

'Salva arquivo com nome que você criou na COM

SavePicture Picture1.Image, (Com.FileName)

End If

End Sub

O quê, exatamente, não dá certo?

e pra eu fasse para que o texto inserido na imagem seja da cor escolhida na palheta.

oke tem de errado?

Private Sub Image3_Click()

Com.ShowColor

Picture1.Print "teste"

Picture1.Print Color = (Com.FileName)

End Sub

Primeira coisa... em qualquer propriedade da CommonDialog é que você acha que a cor que você escolheu vai estar? Porque "FileName" (FILENAME = NOME DE ARQUIVO) é onde fica o nome do arquivo escolhido em ShowSave ou ShowOpen. As propriedades Font* ficam com a fonte escolhida em ShowFont. Então, use só um pouquinho a imaginação e pense em qual propriedade é que vai ficar a cor escolhida.

Segunda coisa... é na propriedade ForeColor da picture que definimos qual a cor do texto.

Abraços,

Graymalkin

[PedroBarreto]

velho não consegui nenhuma das duas coisa nem muda a cor e nem salvar, nma verdade salvar eu consegui mais ele não salva o texto em cima da imagem

ajuda eu aew plisssssssss

passa os codigos

[Graymalkin]

velho não consegui nenhuma das duas coisa nem muda a cor e nem salvar, nma verdade salvar eu consegui mais ele não salva o texto em cima da imagem

ajuda eu aew plisssssssss

passa os codigos

Você habilitou a propriedade AutoRedraw conforme eu disse no outro post?

E, como você está fazendo o lance da cor?

Abraços,

Graymalkin