Clique abaixo para nos ajudar
Conectar-se

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
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7038 usuários registrados
O último usuário registrado atende pelo nome de CASTROCV

Os nossos membros postaram um total de 31 mensagens em 17 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.]
avatar
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