Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
10 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 10 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Ajuda a direcionar
8/12/2016, 01:17 por miiiih

» Alterar uma palavra num arquivo de texto
5/12/2016, 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6964 usuários registrados
O último usuário registrado atende pelo nome de Ricardo Cassolatto

Os nossos membros postaram um total de 17119 mensagens em 2577 assuntos

Código prg para gerar form com zoomm

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo Código prg para gerar form com zoomm

Mensagem por hugo em 14/1/2010, 16:00

achei este codigo no meio de umas coisas antigas que tinha
fiz umas pequenas adequacoes

espero que tenha algo que possa ser aproveitado

para testar basta copiar e colar num prg no vfp e mandar executar

valeu

Código:
CLEAR
SET SYSMENU OFF
SET READBORDER ON
CLOSE ALL
SET TALK OFF

DEFINE WINDOW ZOOMWIND ;
    AT 00.000, 00.000 ;
    SIZE 16.000, 40.000 ;
    FONT [MS SANS SERIF], 10 STYLE [B] ;
    COLOR RGB(000,000,000,192,192,192), ;
    RGB(000,000,000,255,255,255) ;
    SYSTEM ;
    TITLE [ Janela Normal ]
MOVE WINDOW ZOOMWIND CENTER
ACTIVATE WINDOW ZOOMWIND NOSHOW
STORE .T. TO ZOOM

@ 00.938, 01.125 SAY [Nome ...] ;
    FONT [MS SANS SERIF], 8 STYLE [B]
@ 03.938, 01.125 SAY [E-mail ...] ;
    FONT [MS SANS SERIF], 8 STYLE [B]

@ 01.875, 01.125 TO 03.063, 24.000 ;
    PEN 1 COLOR RGB(255,255,255,192,192,192)
@ 01.875, 01.125 TO 01.875, 24.000 ;
    PEN 1 COLOR RGB(128,128,128,192,192,192)
@ 01.875, 01.125 TO 03.063, 01.125 ;
    PEN 1 COLOR RGB(128,128,128,192,192,192)
@ 04.875, 01.125 TO 06.063, 24.000 ;
    PEN 1 COLOR RGB(255,255,255,192,192,192)
@ 04.875, 01.125 TO 04.875, 24.000 ;
    PEN 1 COLOR RGB(128,128,128,192,192,192)
@ 04.875, 01.125 TO 06.063, 01.125 ;
    PEN 1 COLOR RGB(128,128,128,192,192,192)

@ 02.000, 01.500 GET M.NAME ;
    DEFAULT [J. Hugo R.            ] ;
    FONT [FIXEDSYS], 9 ;
    FUNCTION [K]
@ 05.000, 01.500 GET M.ADDRESS ;
    DEFAULT [armybrasil@hotmail.com] ;
    FONT [FIXEDSYS], 9 ;
    FUNCTION [K]
@ 01.000, 28.500 GET M.LNOKBUTTON ;
    FUNCTION [* \<OK] ;
    FONT [MS SANS SERIF], 8 STYLE [B] ;
    SIZE 01.769, 14.000 ;
    DEFAULT 0
@ 03.000, 28.500 GET M.LNCANCELBUTTON ;
    FUNCTION [* \?\<Cancelar] ;
    FONT [MS SANS SERIF], 8 STYLE [B] ;
    SIZE 01.769, 14.000 ;
    DEFAULT 0
@ 05.000, 28.500 GET M.LNZOOMBUTTON ;
    FUNCTION [* \<Expandir>>] ;
    FONT [MS SANS SERIF], 8 STYLE [B] ;
    SIZE 01.769, 14.000 ;
    DEFAULT 0
@ 09.500, 01.500 GET M.HOMEPHONE ;
    DEFAULT [(31)3329-1xxx        ] ;
    WHEN ZOOM ;
    FONT [FIXEDSYS], 9 ;
    FUNCTION [K]
@ 12.500, 01.500 GET M.WORKPHONE ;
    DEFAULT [(31)3329-1xxx        ] ;
    WHEN ZOOM ;
    FONT [FIXEDSYS], 9 ;
    FUNCTION [K]
ZOOM WINDOW ZOOMWIND NORMAL ;
    SIZE 09.000, 40.000

DO WHILE .T.
   READ ;
    CYCLE ;
    MODAL ;
    SAVE ;
    WHEN ZOOM() ;
    VALID LNOKBUTTON + LNCANCELBUTTON + LNZOOMBUTTON > 0
   IF LNOKBUTTON + LNCANCELBUTTON = 1
      EXIT
   ENDIF
   LNZOOMBUTTON = 0
   curobj=objnum(m.name)
ENDDO

CLEAR GETS
RELEASE WINDOW ZOOMWIND
SET TALK ON
WAIT WINDOW IIF(LNOKBUTTON = 1, [Gravado], [Cancelado])
SET SYSMENU AUTO

******************
FUNCTION ZOOM
STORE !ZOOM TO ZOOM
IF ZOOM
   ZOOM WINDOW ZOOMWIND NORMAL SIZE 16.000, 40.000
   MODIFY WINDOW ZOOMWIND ;
       TITLE [ Janela Maximizada ]
   SHOW GET LNZOOMBUTTON, 1 PROMPT [<<R\<ecolher]
   STORE 6 TO _CUROBJ

   @ 09.375, 01.125 TO 10.563, 24.000 ;
       PEN 1 COLOR RGB(255,255,255,192,192,192)
   @ 09.375, 01.125 TO 09.375, 24.000 ;
       PEN 1 COLOR RGB(128,128,128,192,192,192)
   @ 09.375, 01.125 TO 10.563, 01.125 ;
       PEN 1 COLOR RGB(128,128,128,192,192,192)
   @ 12.375, 01.125 TO 13.563, 24.000 ;
       PEN 1 COLOR RGB(255,255,255,192,192,192)
   @ 12.375, 01.125 TO 12.375, 24.000 ;
       PEN 1 COLOR RGB(128,128,128,192,192,192)
   @ 12.375, 01.125 TO 13.563, 01.125 ;
       PEN 1 COLOR RGB(128,128,128,192,192,192)

   @ 07.438, 01.000 TO 07.438, 38.000 ;
       PEN 1 COLOR RGB(128,128,128,192,192,192)
   @ 07.500, 01.125 TO 07.500, 38.125 ;
       PEN 1 COLOR RGB(255,255,255,192,192,192)


   @ 08.438, 01.125 SAY [Fone ...] ;
       FONT [MS SANS SERIF], 8 STYLE [B]
   @ 11.438, 01.125 SAY [Fax ...] ;
       FONT [MS SANS SERIF], 8 STYLE [B]
ELSE
   MODIFY WINDOW ZOOMWIND ;
       TITLE [ Janela Normal ]
   ZOOM WINDOW ZOOMWIND NORMAL SIZE 09.000, 40.000
   SHOW GET LNZOOMBUTTON, 1 PROMPT [\<Expandir>>]
ENDIF

SHOW GETS

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Anexo Re: Código prg para gerar form com zoomm

Mensagem por Marcos Guedes em 14/1/2010, 16:03

Obrigado por compartilhar, Hugo!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum