Página 2 de 2
Passar parâmetro pra thread
Enviado: 01 Set 2017 18:53
por asimoes
Passar parâmetro pra thread
Enviado: 01 Set 2017 19:11
por JoséQuintas
Aqui aconteceu a mesma coisa com GTWVG, só funcionou na primeira vez.
Depois só com as mudanças de registro.
Dei uma otimizada na configuração.
Código: Selecionar todos
#include "inkey.ch"
PROCEDURE Main
LOCAL oCom, nFlagIE := 11001, oElement
FOR EACH oElement IN { ;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", ;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS", ;
"SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_TABBED_BROWSING", ;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", ;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_ENABLE_WEB_CONTROL_VISUALS", ;
"SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_TABBED_BROWSING" }
win_regQuery( WIN_HKEY_LOCAL_MACHINE, oElement, "test.exe", nFlagIE, .T. )
NEXT
SetMode(40,100)
CLS
oCom := WvgActiveXControl():New( , , { 0, 0 }, { 800, 600 }, , .T. )
oCom:CLSID := "http://www.google.com.br/maps/dir/03676-080/03676-070/"
oCom:create()
Inkey(0)
RETURN
Passar parâmetro pra thread
Enviado: 01 Set 2017 21:28
por JoséQuintas
Também resolvi o problema do alfabeto acabar nos buttons... rs
Vou usar teclas F-x
Não para o usuário usar, mas pra uso interno, pra traduzir os buttons.
De F2 a F9, shift-F1 a shift-F9, control-F1 a control-F9, Alt-F1 a Allt-F9.
Isso aumenta as possibilidades em quase 40 opções, que pretendo nunca precisar, mas nunca se sabe.... rs
Tipo "<F2>MapaGoogle"
E no fonte:
IF cOpcao == "F2"
MapaGoogle()
ENDIF
Isso é pra testar o clique no button, e não para o usuário apertara tecla.
Mas durante o post já comecei a pensar na opção melhor:
Com a saída da opção de menu console, nada impede de atribuir um codeblock ao button, igual qualquer gui....
Vou testar isso depois.
Passar parâmetro pra thread
Enviado: 04 Set 2017 18:43
por JoséQuintas
Versão final... de hoje... rs
Eu disse... rs
Alterei pra não usar array, na chamada.
Código: Selecionar todos
FUNCTION GoogleMaps( ... )
LOCAL aLIst
aList := hb_AParams()
...
Mas em determinada situação precisei da função oposta:
Talvez altere novamente, pra aceitar de qualquer das duas formas..... rs
Passar parâmetro pra thread
Enviado: 04 Set 2017 18:46
por JoséQuintas
Talvez altere novamente, pra aceitar de qualquer das duas formas..... rs
alterado.
Acrescentei isto:
Código: Selecionar todos
IF Len( aList ) > 0 .AND. ValType( aList[ 1 ] ) == "A"
aList := aList[ 1 ]
ENDIF
Agora tanto faz, pode ser array ou lista de CEPs.
Dispensou o hb_ParamsToArray().