Item de Menu selecionado (RESOLVIDO)

[Luiz Arruda (ICO)]

Boa Tarde Pessoal ..

Como faço para "casar" uma opção de Menu ??

Para Botão eu faço assim ;

Function tst(obt)

If obt==1

msginfo("BOTÃO 1")

elseIf obt==2

msginfo("BOTÃO 2")

ElseIF obt==3

msginfo("BOTÃO 3")

endif

Return .t.

id=code>id=code>

Como saber qual item do menu foi selecionado ??

Tô meio lorão na vespera de natal e não achei o prg correspondente em samples..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

Editado por - ico on 27/12/2010 17:09:41

[Luiz Arruda (ICO)]

Boa Tarde Pessoal ..

Como faço para "casar" uma opção de Menu ??

Para Botão eu faço assim ;

Function tst(obt)

If obt==1

msginfo("BOTÃO 1")

elseIf obt==2

msginfo("BOTÃO 2")

ElseIF obt==3

msginfo("BOTÃO 3")

endif

Return .t.

id=code>id=code>

Como saber qual item do menu foi selecionado ??

Tô meio lorão na vespera de natal e não achei o prg correspondente em samples..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

Editado por - ico on 27/12/2010 17:09:41

[Luiz Arruda (ICO)]

Go Top

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[joaosolution]

Luiz

Boa tarde

Acredito que a dúvida está meio "vaga" por isso ainda não teve retorno. Segue uma segestão para clarearmos.

MENUITEM "&Cadastros" ;

MESSAGE "Cadastros do sistema"

MENU

MENUITEM "&Projetos" ACTION MsgInfo("Menu 1")

MENUITEM "Registro" ACTION MsgInfo("Menu 2")

...

ENDMENU

Att

João Bosco

Contagem/MG

FWH 10.6b xHb 1.2.1 WorkShop 4.5

PellesC SQLLIB

[Luiz Arruda (ICO)]

Boa Tarde Joao Bosco..

Eu quero exactamente como postei acima com o exemplo do Botão.. algo assim

MenuItem "Opção 1" Action Opcao(1)

MenuItem "Opção 2" Action Opcao(2)

Proc Opcao(opc)

If opc == 1

MsgInfo("Cliquei na opçao 1")

ElseIf opc == 2

MsgInfo("Cliquei na opção 2")

Endif

id=code>id=code>

Ou seja todas as opção levarao até a mesma Function, lá é que quero "executar" algo de acordo com o item selecionado

No Clipper a Gente usava Prompt com Do Case, com FWH já fiz alguns testes mais nem um deu certo..

Com Button é como postei acima, mas com Menu o bixo tá pegando..

Abraços..

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[Luisão]

Também não entendi muito bem Luiz... seria isso ?

oMENU[1]:= TMenuItem():New( cPrompt, cMsg, lChecked, lActive, {||MSGINFO(oMENU[1]:cCargo)},;

cBmpFile, cResName, nVKState, nVirtKey, lHelp, nHelpId, bWhen, lBreak )

oMENU[1]:cCargo:= "Qualquer texto Aqui"

oMENU[2]:= TMenuItem():New( cPrompt, cMsg, lChecked, lActive, {||MSGINFO(oMENU[2]:cCargo)},;

cBmpFile, cResName, nVKState, nVirtKey, lHelp, nHelpId, bWhen, lBreak )

oMENU[2]:cCargo:= "Porque cCargo"

oMENU[3]:= TMenuItem():New( cPrompt, cMsg, lChecked, lActive, {||MSGINFO(oMENU[3]:cCargo)},;

cBmpFile, cResName, nVKState, nVirtKey, lHelp, nHelpId, bWhen, lBreak )

oMENU[3]:cCargo:= "É Livre"

id=code>id=code>

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

juninho.luisao@gmail.com

juninho_luisao@hotmail.com

Skype luis.fernando.jr

[Luiz Arruda (ICO)]

Não sei se eu que não tô sabendo explicar ou ... ainda é efeito da champagne.

Mas é algo assim que quero.

MenuItem "Opção 1" Action Opcao(1) // o (1) indica que esta é a opção 1 se eu clicar nela

MenuItem "Opção 2" Action Opcao(2) // o (2) indica que esta é a opção 2 se eu clicar nela

Proc Opcao(opc)

If opc == 1

MsgInfo("Cliquei na opçao 1")

ElseIf opc == 2

MsgInfo("Cliquei na opção 2")

Endif

id=code>id=code>

Compilem este exemplo usando botão e 6 vão entender direitinho

Redefine Button obtn[1] ;

Action Tst(1)

Redefine Button obtn[2] ;

Action Tst(2)

Redefine Button obtn[3] ;

Action Tst(3)

Function tst(obt)

If obt==1

msginfo("BOTÃO 1")

elseIf obt==2

msginfo("BOTÃO 2")

ElseIF obt==3

msginfo("BOTÃO 3")

endif

Return .t.

id=code>id=code>

Os (1),(2),(3) indicam qual foi o botão pressionado.

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

[Luisão]

Luiz, e qual a diferença entre usar os "buttons normais" e usar o trecho que você passou ?

MenuItem "Opção 2" Action Opcao(2)

Proc Opcao(opc)

If opc == 1

MsgInfo("Cliquei na opçao 1")

ElseIf opc == 2

MsgInfo("Cliquei na opção 2")

Endif

id=code>id=code>Isso não dá certo ?

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

juninho.luisao@gmail.com

juninho_luisao@hotmail.com

Skype luis.fernando.jr

[Luiz Fernando]

citação:

MenuItem "Opção 1" Action Opcao(1)

MenuItem "Opção 2" Action Opcao(2)

Proc Opcao(opc)

If opc == 1

MsgInfo("Cliquei na opçao 1")

ElseIf opc == 2

MsgInfo("Cliquei na opção 2")

Endif

id=code>id=code>

---

id=quote>id=quote>

ICO não faz sentido este seu código acima não funcionar, é como o Luizão mencionou acima, tando faz se vc esta chamando a funcao via menu, button , on change ou de qq outra forma ele sempre vai executar a funcao obedecendo seus parametro, que no seu caso é um unico parametro...

Obs: nem precisei compilar , pois uso muito isto aqui...

Abraços

Luiz Fernando

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0

Editado por - empresoft on 27/12/2010 16:42:56

[Luisão]

Eu não uso PROCEDURE, uso sempre FUNCTION.

Mude para FUNCTION opcao(opc).

Já que você diz não funcionar, quem sabe não é por isso...

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

juninho.luisao@gmail.com

juninho_luisao@hotmail.com

Skype luis.fernando.jr

[sambomb]

MenuItem "Opção 1" Action Chamada(1)

MenuItem "Opção 2" Action Chamada(2)

Redefine Button obtn[1] ;

Action Chamada(1)

Redefine Button obtn[2] ;

Action Chamada(2)

PROCEDURE CHAMADA( nOpcao )

Default nOpcao := 0

Alert(nOpcao)

Return nil

id=code>id=code>

SamirSSabreu@gmail.com

samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02id=black>

"Acreditar é mais fácil do que pensar: Daí existem muito mais crentes do que pensadores.†Bruce Calvert

[AMBROSIO]

citação:

Luiz

Boa tarde

Acredito que a dúvida está meio "vaga" por isso ainda não teve retorno. Segue uma segestão para clarearmos.

MENUITEM "&Cadastros" ;

MESSAGE "Cadastros do sistema"

MENU

MENUITEM "&Projetos" ACTION CadArq("1")id=red>

MENUITEM "Registro" ACTION CadArq("2")id=red>

...

ENDMENU

CadArq FUNCIONARIA TANTO COMO PROCEDURE COMO FUNCTION

id=red>

Att

João Bosco

Contagem/MG

FWH 10.6b xHb 1.2.1 WorkShop 4.5

PellesC SQLLIB

---

id=quote>id=quote>

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[Luiz Arruda (ICO)]

Pessoal.. desculpe ai.. foi erro do babão aqui..

Eu tava Fazendo assim, na proc eu usei oBt e no If oPc por isso que dava erro, e como não usei as teclas magicas CTRL+C - CTRL-V pra postar aqui no forum não deu pra ninguém perceber

Procedure IImpriMostra( obt id=size5> id=red> )

If opcid=red> == 1

MsgInfo("Cliquei na opçao 1")

ElseIf opcid=red> == 2

MsgInfo("Cliquei na opção 2")

Endif

id=code>id=code>

Prometo prestar mais atenção daqui pra frente

depois da ressaca das festas id=size1>

Retorne avisando se a dica funcionouid=red>

Luiz Arruda

Corumbá - MS

ico.corumba@gmail.com

Editado por - ico on 27/12/2010 17:09:03

[AMBROSIO]

Pessoal!!!!

SE BEBER NAO PROGRAME,

E SE PROGRAMAR NAO BEBAM!

Viram o que acontece!

kkkkkkkkkkkkkkkkkkkkkkkkk

Ambrosio de Barros Filho.

JRAMBRO - jrambro@hotmail.com

Curitiba/São José dos Pinhais - PR

Clipper5.0/ADVPL

[Jmsilva]

Luiz, aproveitando a dica do João Bosco.

Verifica se ajuda,

MENUITEM "&Cadastros" MESSAGE "Cadastros do sistema"

MENU

MENUITEM "&Projetos" ACTION msginfo("Opção 1 - projetos")

MENUITEM "Registro" ACTION msginfo("Opção 2 - Registro")

...

ENDMENU

Silva

Litoral/SP

xHarbour/Fivewin/Sqllib

[Luisão]

Luiz, depois dessa só tenho uma coisa a dizer: PARABÉNSid=red>

Essa é para fechar o ano com chave de ouro!

ps.: que bom que deu certo pelo menos... =)

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

juninho.luisao@gmail.com

juninho_luisao@hotmail.com

Skype luis.fernando.jr

[Luiz Arruda (ICO)]

Editado por - ico on 27/12/2010 17:49:10