Post by flyingDman » 27 Jul 2022, 13:20
Prueba esto. Tenga en cuenta que cambiar el color de los botones no es sencillo. Lo cambié a controles de texto simples. No se cual es su intencion con el boton "Actualiza Base". No sé cuál es la estructura de los archivos .csv. Entonces, asumí que si el código está en algún lugar en el archivo, cambia el color.
Code: Select all
fileread, cod1, codigo1.csv
fileread, cod2, codigo2.csv
fileread, cod3, codigo3.csv
Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades
Gui, Font, S20 CBlack, Arial
Gui, Add, Text, x12 y9 w470 h30 +Center, ================================
Gui, Font, S16 CBlack, Arial
Gui, Add, Text, x22 y79 w160 h40 , Ingresar CP :
Gui, Font, S26 CBlack Bold, Arial
Gui, Add, Edit, x192 y79 w290 h45 vCP,
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Button, x12 y149 w230 h60 gVal, Valida Codigo Postal
Gui, Add, Button, x330 y320 w160 h60 gLimp, Limpiar
Gui, Add, Button, x252 y149 w230 h60 , Actualiza Base
Gui, Add, text, x10 y249 w160 h60 -VScroll center vL1 , Lista 1
Gui, Add, text, x170 y249 w160 h60 -VScroll center vL2 , Lista 2
Gui, Add, text, x330 y249 w160 h60 -VScroll center vL3 , Lista 3
Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades
Return
Val:
gui, submit, nohide
Gui, Font, cRed
if instr(cod1,CP)
GuiControl, Font, L1
if instr(cod2,CP)
GuiControl, Font, L2
if instr(cod3,CP)
GuiControl, Font, L3
return
Limp:
Gui, Font, cBlack
GuiControl, Font, L1
GuiControl, Font, L2
GuiControl, Font, L3
GuiControl,,CP
return
GuiClose:
ExitApp
Prueba esto. Tenga en cuenta que cambiar el color de los botones no es sencillo. Lo cambié a controles de texto simples. No se cual es su intencion con el boton "Actualiza Base". No sé cuál es la estructura de los archivos .csv. Entonces, asumí que si el código está en algún lugar en el archivo, cambia el color.
[code]fileread, cod1, codigo1.csv
fileread, cod2, codigo2.csv
fileread, cod3, codigo3.csv
Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades
Gui, Font, S20 CBlack, Arial
Gui, Add, Text, x12 y9 w470 h30 +Center, ================================
Gui, Font, S16 CBlack, Arial
Gui, Add, Text, x22 y79 w160 h40 , Ingresar CP :
Gui, Font, S26 CBlack Bold, Arial
Gui, Add, Edit, x192 y79 w290 h45 vCP,
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Button, x12 y149 w230 h60 gVal, Valida Codigo Postal
Gui, Add, Button, x330 y320 w160 h60 gLimp, Limpiar
Gui, Add, Button, x252 y149 w230 h60 , Actualiza Base
Gui, Add, text, x10 y249 w160 h60 -VScroll center vL1 , Lista 1
Gui, Add, text, x170 y249 w160 h60 -VScroll center vL2 , Lista 2
Gui, Add, text, x330 y249 w160 h60 -VScroll center vL3 , Lista 3
Gui, Show, x411 y251 h397 w500, Verificador de Codigos postales y Ciudades
Return
Val:
gui, submit, nohide
Gui, Font, cRed
if instr(cod1,CP)
GuiControl, Font, L1
if instr(cod2,CP)
GuiControl, Font, L2
if instr(cod3,CP)
GuiControl, Font, L3
return
Limp:
Gui, Font, cBlack
GuiControl, Font, L1
GuiControl, Font, L2
GuiControl, Font, L3
GuiControl,,CP
return
GuiClose:
ExitApp[/code]