Listar pastas e subpastas
Enviado: 10 Out 2023 15:47
sim Zé .. até compilei alguns exemplo seus esses dias com esses botoes no topo .. fica showw... porém como eu faria pra abrir esse explorador de arquivos com a GTWVG tem alguma função especifica ??JoséQuintas escreveu:Como está usando essa rotina de pegar nomes de arquivos, é de se imaginar que está querendo adicionar algum algo mais no aplicativo.
Com WVG pode aproveitar sua tela console e brincar um pouco mais.
A princípio é compilar usando GTWVG.HBC.
O resto depende do que fizer.
Só importante lembrar que a rotina de erro padrão é pra console, e gtwvg não é console.
como o exemplo da foto ... q usa a visual lib + gtwvw do Vagucs ... o codigo é esse ... porém a função GETFILE() não sei de onde ele tira ela ...
Código: Selecionar todos
#include "C:\vl\visual2.ch"
procedure main
set scoreboard off
set deleted on
desktop(,,,,[Times News Roman],"win95.jpg")
tela=win(4,1,19,78,"Visualiza‡Æo de imagens")
use dados.dbf
resposta=1
do while .t.
rstobj(lastwindow)
set color to n/w*
if file(alltrim(imagem))
addobj(lastwindow,{|janela|wvw_drawimage(janela,7,7,14,20,alltrim(imagem),.f.)})
else
@ 7,7 clear to 14,20
end if
addobj(lastwindow,{|janela|wvw_drawboxraised(janela,7,7,14,20)})
@ 6,23 say "Nome"
@ 7,23 say nome
@ 8,23 say "Cidade"
@ 9,23 say cidade
@ 10,23 say "Tipo"
@ 11,23 say tipo
@ 12,23 say "Ocasiao"
@ 13,23 say ocasiao
addobj(lastwindow,{|janela|WVW_DrawBoxGet(janela,7,23,35)})
addobj(lastwindow,{|janela|WVW_DrawBoxGet(janela,9,23,35)})
addobj(lastwindow,{|janela|WVW_DrawBoxGet(janela,11,23,10)})
addobj(lastwindow,{|janela|WVW_DrawBoxGet(janela,13,23,20)})
@ 16,68 say alltrim(str(recno()))+"/"+alltrim(str(reccount()))
abtn=newbutton()
addbutton(abtn,16,6,14,"&Primeiro")
addbutton(abtn,16,21,14,"&Anterior")
addbutton(abtn,16,35,14,"&Pr¢ximo")
addbutton(abtn,16,49,14,"&éltimo")
addbutton(abtn,18,6,14,"&Incluir")
addbutton(abtn,18,21,14,"&Alterar")
addbutton(abtn,18,35,14,"&Excluir")
addbutton(abtn,18,49,14,"&Foto")
addbutton(abtn,18,63,14,"&Sair")
resposta=procbutton(abtn,NB_WHITE,resposta)
do case
case resposta=1
go top
case resposta=2
skip -1
case resposta=3
skip
case resposta=4
go bottom
case resposta=5
append blank
@ 7,23 get nome
@ 9,23 get cidade
@ 11,23 get tipo
@ 13,23 get ocasiao
vlread
case resposta=6
@ 7,23 get nome
@ 9,23 get cidade
@ 11,23 get tipo
@ 13,23 get ocasiao
vlread
case resposta=7
if msgbox2("Deseja excluir o registro?")=1
delete
end if
case resposta=8
arquivo=getfile({{"Imagem JPG","*.jpg"},{"Imagem Bitmap","*.bmp"},{"Imageme GIF","*.gif"},"*.jpg"},"Procurar fotografia","foto",.f.,.t.)
xlocal="fotos\"+right(arquivo,len(arquivo)-rat([\],arquivo))
if left(xlocal,9)#"fotos\"
copy file &arquivo to &xlocal
end if
replace imagem with xlocal
case resposta=9
vlexit()
end case
enddo