Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
21 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 21 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
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

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

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

Barra de processamento

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

Anexo Barra de processamento

Mensagem por hugo em 14/1/2010, 20:20

Galera

umas barrinhas basicas ai

o codigo vai abaixo

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]

Código:

********************************************************
Function BarGraf1
********************************************************
* Written by: Ralph P. Morse Jr.  (c) 1996
*            [Você precisa estar registrado e conectado para ver este link.]
*  Parameter: Character string (Window Title)
*  Platform: FoxPro for Windows
********************************************************
Parameter PCTitleBar
If Type([PCTitleBar]) = [L]
Private JNDrawBar
Store 03.125 + LNPercent * 00.375 To JNDrawBar
@ 01.750, 03.125 Clear To 02.750, JNDrawBar
@ 01.688, 03.000 TO 01.688, JNDrawBar ;
    Pen 1 Color RGB(255,255,255,192,192,192)
@ 02.750, 03.125 TO 02.750, JNDrawBar ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 01.688, JNDrawBar TO 02.813, JNDrawBar ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 03.500, 20.000 Say LTrim(Str(LNPercent)) + [%]
Return
Endif

Define Window BarGraph ;
    At 00.000, 00.000 ;
    Size 05.000, 43.625 ;
    Title AllTrim(PCTitleBar) ;
    System ;
    Font [MS Sans Serif], 10 Style [B] ;
    Color RGB(000,000,000,192,192,192)
Activate Window BarGraph NoShow
Move Window BarGraph Center
@ 01.625, 02.875 To 02.875, 40.875 ;
    Pen 1 Color RGB(000,000,000,192,192,192)
@ 01.563, 02.750 To 02.938, 41.000 ;
    Pen 1 Color RGB(255,255,255,192,192,192)
@ 01.563, 02.750 To 01.563, 41.000 ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 01.563, 02.750 To 02.938, 02.750 ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 01.688, 03.000 Fill To 02.813, 40.750 ;
    Color RGB(000,000,000,255,255,128)
@ 01.688, 03.000 To 02.813, 03.000 ;
    Pen 2 Color RGB(128,128,128,192,192,192)
@ 01.688, 03.000 To 02.750, 03.000 ;
    Pen 1 Color RGB(255,255,255,192,192,192)
@ 03.500, 20.000 Say [0%]


Código:
********************************************************
Function BarGraf2
********************************************************
* Written by: Ralph P. Morse Jr.  (c) 1996
*            [Você precisa estar registrado e conectado para ver este link.]
*  Parameter: Character string (Window Caption)
*  Platform: FoxPro for Windows
********************************************************

Parameter PCTitleBar
If Type([PCTitleBar]) = [L]
If Mod(LNPercent, 2) = 1
Return
Endif
Private JNLoop
For JNLoop = 1 To LNPercent / 2
@ 02.688, 01.500 + JNLoop Say Space(3) ;
    Color RGB(192,192,192,000,000,128) ;
    Font [Arial], 6 Style [N]
EndFor
Return
Endif

Define Window BarGraph ;
    At 00.000, 00.000 ;
    Size 04.500, 55.000 ;
    Font [MS Sans Serif], 10 Style [B] ;
    System ;
    Color RGB(000,000,000,192,192,192)
Move Window BarGraph Center
Activate Window BarGraph NoShow
@ 02.500, 02.000 To 03.500, 52.750 ;
    Pen 1 Color RGB(255,255,255,192,192,192)
@ 02.500, 02.000 To 02.500, 52.625 ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 02.500, 02.000 To 03.438, 02.000 ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 00.750, 02.000 Say AllTrim(PCTitleBar)


Código:
********************************************************
Function BarGraf3
********************************************************
* Written by: Ralph P. Morse Jr.  (c) 1996
*            [Você precisa estar registrado e conectado para ver este link.]
*  Parameter: Character string (Window Title)
*  Platform: FoxPro for DOS
********************************************************
Parameter PCTitleBar
If Type("PCTitleBar") = "L"
@ 3, 04 Say Replicate(Chr(219), LNPercent / 2) + ;
    IIf(LNPercent / 2 > Int(LNPercent / 2), ;
    CHR(221), "") Color N+/W
@ 4, 26 Say Str(LNPercent, 3) Color N/W
Return
Endif

Define Window BarGraph ;
    At 0, 0 ;
    Size 5, 56 ;
    Shadow ;
    None ;
    Color W+/W, N/W
Move Window BarGraph Center
Activate Window BarGraph NoShow
@ 0, 01 To 6, 56
@ 0, 56 Say Chr(191) Color N+/W
@ 1, 56 To 6, 56 Color N+/W
@ 6, 56 Say Chr(217) Color N+/W
@ 6, 02 To 6, 55 Color N+/W
@ 2, 03 To 5, 54
@ 2, 03 Say Chr(218) Color N+/W
@ 3, 03 To 5, 03 Color N+/W
@ 5, 03 Say Chr(192) Color N+/W
@ 2, 04 To 2, 53 Color N+/W
@ 1, 03 Say Chr(222) Color B/W
@ 1, 04 Say PadC(AllTrim(PCTitleBar), 50) Color W+/B
@ 1, 54 Say Chr(221) Color B/W
@ 4, 28 Say "0%" Color N/W

espero que possa servir pra alguem

valeu

_________________
"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

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