[Resolvido]Modificar Paint VBA - Coordenadas

Mylton 1/6/2016, 21:52

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1042
Registrado : 23/08/2010

Mensagem nº1

[Resolvido]Modificar Paint VBA - Coordenadas

Mensagem Mylton 1/6/2016, 21:52

Boa Tarde.
garimpando por ai encontrei esse aplicativo na versão 97, que compilei para 2003 e 2007.
Esta compilação "imita um paint" simples no VBA.
troquei a imagem nativa por uma que precisava que fosse marcada de acordo com a lesão apresentada.
Todavia... muda só a cor do desenho.
Precisaria que fosse "exportado esse desenho depois.
Alguém poderia ajudar?
Obrigado

Anexos

Paint.zip: Você não tem permissão para fazer download dos arquivos anexados.; (138 Kb) Baixado 34 vez(es)

Mylton 10/6/2016, 12:04

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1042
Registrado : 23/08/2010

Mensagem nº2

Re: [Resolvido]Modificar Paint VBA - Coordenadas

Mensagem Mylton 10/6/2016, 12:04

Bom dia.
Alguém poderia ajudar?
Obrigado

Mylton 12/6/2016, 18:25

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1042
Registrado : 23/08/2010

Mensagem nº3

Re: [Resolvido]Modificar Paint VBA - Coordenadas

Mensagem Mylton 12/6/2016, 18:25

Boa tarde.
Alguém teria uma ideia?
Obrigado.

**Alvaro Teixeira** 13/6/2016, 17:57

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº4

Re: [Resolvido]Modificar Paint VBA - Coordenadas

Mensagem Alvaro Teixeira 13/6/2016, 17:57

Olá, não vi exemplo que postou.
No entanto a solução seria ter uma imagem de fundo e pintar no form aa lesões.
Não sei se será possível, Veja se link abaixo ajuda
http://www.google.pt/search?q=drawing+circle+vba+access&oq=drawing+circle+vba+access&gs_l=mobile-heirloom-serp.12...338413.341025.0.344721.7.7.0.0.0.0.318.1420.0j4j2j1.7.0....0...1c.1.34.mobile-heirloom-serp..4.3.528.w59aoLr1cBE

Caso seja possível desenhar objectos, apenas seria necessário guardar em tabela as cordenadas e tipo de.desenho.
Ao abrir, caso tivesse dados fazias os desenhos.
Ao sair, guardava.

Mais um link
http://www.vbaexpress.com/forum/showthread.php?31833-Solved-Use-of-AddShape-to-add-circle

Fica ideia.
Abraço

Mylton 13/6/2016, 23:21

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1042
Registrado : 23/08/2010

Mensagem nº5

Re: [Resolvido]Modificar Paint VBA - Coordenadas

Mensagem Mylton 13/6/2016, 23:21

Oi
AhTeixeira
Vi sua dica.
só que realmente não sei implementar.
Tentei utilizar a classe do paint que anexei e que vc viu no repositório.
Se usar numa foto funciona.
mas o que precisava é que já abrisse na imagem que coloquei no form.
e quando usasse o aplicativo marcasse a figura, podendo salvar de ver depois associado no paciente.
Veja o que consegui.
rsrs
pouco.
rs

Anexos

Paint 2007 versão 1 teste.zip: Você não tem permissão para fazer download dos arquivos anexados.; (41 Kb) Baixado 19 vez(es)

Mylton 14/6/2016, 01:23

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1042
Registrado : 23/08/2010

Mensagem nº6

Re: [Resolvido]Modificar Paint VBA - Coordenadas

Mensagem Mylton 14/6/2016, 01:23

Boa noite
Navegando em foruns encontrei esse maravilhoso exemplo que ajuda de forma especial.
tentei trocar a imagem onde é feita a assinatura pela outra imagem anexada junto.
Infelizmente não funcionou.
se alguém puder ajudar nisso será perfeito.
obrigado.

Mylton 15/6/2016, 21:03

Mylton

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1042
Registrado : 23/08/2010

Mensagem nº7

Re: [Resolvido]Modificar Paint VBA - Coordenadas

Mensagem Mylton 15/6/2016, 21:03

Credito que a solução seja pela classe criada pelo Stephen Lebans.
Vou tentar entender

**Alvaro Teixeira** 19/6/2016, 13:52

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº8

Re: [Resolvido]Modificar Paint VBA - Coordenadas

Mensagem Alvaro Teixeira 19/6/2016, 13:52

Olá Mylton Nogueira,

Quanto ao signature, agradeço a partilha, mais um excelente exemplo.

A solução de fazer em Ms Paint as várias imagens, não seria o mais adequado.
Pois caso tivesse 1000 pacientes seria esse numero vezes a imagem.
No entanto no tópico abaixo tem a solução para ediar:
https://www.maximoaccess.com/t27019-por-que-a-tela-do-ms-paint-usando-vba-abre-preta

Nesse mesm tópico, tem a referencia do nosso colega Avelino Sampaio de um excelente exemplo que criou, que vai de encontro precisamente do que relatava na minha mensagem nº 4 "coordenadas"
Fica aqui o link:
http://www.redeaccess.com.br/viewtopic.php?f=7&t=749

Se assim o entender, acho que poderá dar este tópico como resolvido.
Abraço