Fechando o formulÃ¡rio - Karinh

carlos · August 3, 2003

OlÃ¡, Karinh

Em seu aplicativo video.exe existe uma operaÃ§Ã£o que quando o usuÃ¡rio se utiliza do botÃ£o (X) do formulÃ¡rio querendo fechar o aplicativo vocÃª chama sua mensagem de encerramento.

Estou querendo aplicar este conceito no meu sistema, seria possÃvel mandar esta instruÃ§Ã£o para mim.

sgcmrana@ig.com.br ou sutan@ig.com.br

Atenciosamente,

Carlos Eduardo - Rio de Janeiro

evandro · August 4, 2003

OlÃ¡,

Apesar de nÃ£o ser o "Karinh" (JoÃ£o), acho que vocÃª tem de acrescentar uma EXIT PROCEDURE ao seu sistema. Algo assim:

function main()

...

return .t.

exit procedure Encerra()

"comandos"

...

return

Espero que seja isto.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr.)

imortal@skillnet.com.br (Res.)

karinha · August 4, 2003

Verifique nas DICAS mais dicas... Programa para iniciantes em portugues... MDIMENU.PRG. AbraÃ§os e obrigado.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

marcos · August 4, 2003

citaÃ§Ã£o:
Em seu aplicativo video.exe existe uma operaÃ§Ã£o que quando o usuÃ¡rio se utiliza do botÃ£o (X) do formulÃ¡rio querendo fechar o aplicativo vocÃª chama sua mensagem de encerramento.

Estou querendo aplicar este conceito no meu sistema, seria possÃvel mandar esta instruÃ§Ã£o para mim.

id=quote>id=quote>

OlÃ¡ Carlos,

NÃ£o sei se entendi direito, mas vocÃª pode fazer assim:

DEFINE WINDOW oWnd ...

(...) // suas linhas de comando

ACTIVATE WINDOW oWnd MAXIMIZED VALID AClose() // AClose() FunÃ§Ã£o de fechamento.

(...)

// Fechamento

STATIC FUNCTION AClose()

SndPlaySound( "Lembrete.wav" )

RETURN( MsgYesNo( "Deseja Encerrar o Sistema ?", "Sair" ) )

// Fim

Desta forma vocÃª pode inserir a funcao AClose() na opÃ§Ã£o de menu, como 'Sair do Sistema', e desta forma, quando vocÃª pressionar o botÃ£o 'X' o sistema acessarÃ¡ a funÃ§Ã£o AClose().

AbraÃ§os

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

edmar1361303188 · August 4, 2003

Ã‰ exatamente como o Marcos disse,

abraÃ§os.

Edmar R. Santos

Sto.Ant.Monte - MG

karinha · August 4, 2003

Amigos, vocÃªs estÃ£o todos corretos, mas o que o Carlos quer, Ã© minha saida de tela, Ã© que ele tem duas bitmaps assim:

- Que ficam 'girando' na tela atÃ© que ele confirme uma das duas entende. Para entender o que ele quer, baixem nas dicas PROGRAMA AVANÃ‡ADO EXECUTAVEL e executem e saim do menu principal. AbraÃ§os. Se nÃ£o for isso Carlos por favor me corrija. Obrigado!

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

marcos · August 4, 2003

citaÃ§Ã£o:
Amigos, vocÃªs estÃ£o todos corretos, mas o que o Carlos quer, Ã© minha saida de tela, Ã© que ele tem duas bitmaps assim:

- Que ficam 'girando' na tela atÃ© que ele confirme uma das duas entende. Para entender o que ele quer, baixem nas dicas PROGRAMA AVANÃ‡ADO EXECUTAVEL e executem e saim do menu principal. AbraÃ§os. Se nÃ£o for isso Carlos por favor me corrija. Obrigado!

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

id=quote>id=quote>

Esta rotina tambÃ©m pode ser encontrada junto com o fivewin no programa "Accounting".

AbraÃ§os

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

karinha · August 4, 2003

Esta rotina tambÃ©m pode ser encontrada junto com o fivewin no programa "Accounting".

AbraÃ§os

Marcos - S.B.Campo - SP

Tem certeza? Poste aqui! he he he he he!

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

carlos · August 4, 2003

OlÃ¡, Amigos

AgradeÃ§o a atenÃ§Ã£o de todos, mas nÃ£o quero criar nehum entrevere. AgradeÃ§o muito a dica de todos e vou estuda-las.

Atenciosamente,

Carlos Eduardo - Rio de Janeiro

marcos · August 4, 2003

citaÃ§Ã£o:
Esta rotina tambÃ©m pode ser encontrada junto com o fivewin no programa "Accounting".

AbraÃ§os

Marcos - S.B.Campo - SP

Tem certeza? Poste aqui! he he he he he!

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

id=quote>id=quote>

** *******************************************************

** -------------------------------------------------------

** VENTANAS DE INFORMACION Y COMUNICACION CON EL USUARIO

** -------------------------------------------------------

** *******************************************************

FUNCTION Confirma(Mensa)

local oDlg, oBrush, oSi, oNo, oTmr, Sw := 0

local Respu := .F.

DEFINE BRUSH oBrush STYLE NULL

DEFINE DIALOG oDlg ;

FROM 2, 2 TO 20, 60 ;

BRUSH oBrush ;

STYLE WS_POPUP

@ 3,7 BITMAP oSi RESOURCE "SI1" NOBORDER SIZE 16, 16 OF oDlg ON CLICK (Respu:=.T., oDlg:End())

@ 3,12 BITMAP oNo RESOURCE "NO1" NOBORDER SIZE 16, 16 OF oDlg ON CLICK (Respu:=.F., oDlg:End())

ACTIVATE DIALOG oDlg CENTERED ;

ON PAINT ShowPregunta (oDlg, Mensa);

ON INIT (SetKey (13, { || Respu := .T., oDlg:End() }),;

SetKey (32, { || Respu := .T., oDlg:End() }),;

SetKey (27, { || Respu := .F., oDlg:End() }),;

oTmr := TTimer():New( 200,{|| Sw++ ,;

IF (Sw == 0,;

(oSi:SetBMP("SI0"),;

oNo:SetBMP("NO0")),;

IF (Sw == 1,;

(oSi:SetBMP("SI1"),;

oNo:SetBMP("NO1")),;

IF (Sw == 2,;

(oSi:SetBMP("SI2"),;

oNo:SetBMP("NO2")),;

IF (Sw == 3,;

(oSi:SetBMP("SI3"),;

oNo:SetBMP("NO3")),;

IF (Sw == 4,;

(oSi:SetBMP("SI4"),;

oNo:SetBMP("NO4")),;

IF (Sw == 5,;

(oSi:SetBMP("SI5"),;

oNo:SetBMP("NO5")),;

IF (Sw == 6,;

(oSi:SetBMP("SI6"),;

oNo:SetBMP("NO6")),;

IF (Sw == 7,;

(oSi:SetBMP("SI7"),;

oNo:SetBMP("NO7")),;

IF (Sw == 8,;

(oSi:SetBMP("SI8"),;

oNo:SetBMP("NO8")),;

(oSi:SetBMP("SI9"),;

oNo:SetBMP("NO9"), Sw := -1) ))))))))) } ),;

oTmr:Activate() )

RELEASE OBJETS oTmr, oSI, oNO

SET KEY 13 TO

SET KEY 32 TO

SET KEY 27 TO

RETURN Respu

STATIC FUNCTION ShowPregunta( oDlg, Mensa)

local oBmp2, oBmp1, oFont, Linea, ContLin, oBmp

local Respuesta := .F.

Mensa := OemToAnsi (Mensa)

DEFINE BITMAP oBmp1 RESOURCE "VentanaMSG1"

DEFINE BITMAP oBmp2 RESOURCE "VentanaMSG2"

DEFINE FONT oFont NAME "Ms Serif" SIZE 0, 16

PalBmpDraw( oDlg:hDC, 0, 0, oBmp2:hBitmap, 0, 0, 0, SRCPAINT )

PalBmpDraw( oDlg:hDC, 0, 0, oBmp1:hBitmap, 0, 0, 0, SRCAND )

oBmp := TBitmap():New( 2, 2.5,,, "Question",, .T., oDlg,,, .F., .F.,,, .F.,, .F., )

ContLin := 1

DO WHILE !Empty (Linea := MemoLine (Mensa, 38, ContLin,,.T.))

oDlg:Say( .2 + ContLin , 13, Linea,RGB(255,255,0),RGB(128,128,128), oFont )

ContLin ++

ENDDO

RETURN NIL

//--------------------------------------------------------------------

JoÃ£o, este programa estÃ¡ em C:\FW24\SAMPLES\ACCOUNT com o nome EJEMCONT.PRG

AbraÃ§os ( he he he he )

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

karinha · August 4, 2003

JoÃ£o, este programa estÃ¡ em C:\FW24\SAMPLES\ACCOUNT com o nome EJEMCONT.PRG

AbraÃ§os ( he he he he )

Marcos - S.B.Campo - SP

Eu sei Marcos, eu tava te zoando, preste atenÃ§Ã£o na minha resposta: o meu diz: e e no seu diz: entende? NÃ£o sÃ£o iguais... Era sÃ³ uma brincadeirinha, para vocÃª postar o cÃ³digo para o Carlos, pois acho que ele nÃ£o entendeu ou nÃ£o baixou MDIMENU.PRG. Obrigado! AbraÃ§os.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

marcos · August 4, 2003

citaÃ§Ã£o:
Eu sei Marcos, eu tava te zoando, preste atenÃ§Ã£o na minha resposta: o meu diz: e e no seu diz: entende? NÃ£o sÃ£o iguais... Era sÃ³ uma brincadeirinha, para vocÃª postar o cÃ³digo para o Carlos, pois acho que ele nÃ£o entendeu ou nÃ£o baixou MDIMENU.PRG. Obrigado! AbraÃ§os.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

id=quote>id=quote>

Realmente, nÃ£o sÃ£o iguais (heheheheheh)

AbraÃ§os

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

karinha · August 5, 2003

Marcos... O FIVEWIN Ã© mesmo apaixonante nÃ©? Olha a hora que vocÃª tÃ¡ indo dormir Homem... Tenha calma... Descanse! AbraÃ§os.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

marcos · August 5, 2003

citaÃ§Ã£o:
Marcos... O FIVEWIN Ã© mesmo apaixonante nÃ©? Olha a hora que vocÃª tÃ¡ indo dormir Homem... Tenha calma... Descanse! AbraÃ§os.

JoÃ£o Santos

SÃ£o Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

id=quote>id=quote>

Quando faÃ§o alguma coisa vou atÃ© o fim, nÃ£o existem limites, nem o tempo. NÃ£o posso ter medo do Fivewin, Ã© ele quem precisa me respeitar. Por isso quero dominÃ¡-lo. (he he he he )

AbraÃ§os

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

marcos · August 5, 2003

Em tempo: NÃ£o sou como vocÃª ainda JoÃ£o, Expert. Mas jÃ¡ estou me virando. Grande abraÃ§o

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

Fechando o formulÃ¡rio - Karinh

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation