13 Jan 2012 13:58
#include "FiveWin.ch"
Static oWnd
Function Main()
LOCAL oWnd, oWnd2
MENU oMenu
MENUITEM "OPCAO1" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window1")
MENUITEM "OPCAO2" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window2")
MENUITEM "OPCAO3" ACTION MsgInfo ("Coloque aqui uma chamada a um dialog ou window3")
MENUITEM "FECHAR" ACTION oWnd:End()
ENDMENU
DEFINE WINDOW oWnd TITLE "MEU PRIMEIRO PROGRAMA" MDI MENU oMenu COLOR "W/BG"
SET MESSAGE OF oWnd TO "SOFTWARE PARA AUTOMAÇÃO" CLOCK DATE CENTERED
DEFINE WINDOW oWnd2 TITLE "oWnd2" COLOR "B/WG" ;
FROM 8, 8 TO 30, 50
ACTIVATE WINDOW oWnd MAXIMIZED VALID MsgYesNo( "Deseja sair ?" )
return nil
13 Jan 2012 18:12
Justamente, como faz com janela, mas está faltando...Como faço para a opção 1, 2,3 acionar uma janela com uma caixa de dialogo dentro com alguns campos para preenchimento de dados?
13 Jan 2012 20:11
MENUITEM "OPCAO1" ACTION Janela1()
MENUITEM "OPCAO2" ACTION Janela2()
MENUITEM "OPCAO3" ACTION Janela3()
function Janela1()
local oDlg, oGet1, oGet2
local cCodigo := SPACE(5)
local cNome := SPACE(40)
DEFINE DIALOG oDlg FROM 1, 5 TO 40, 200 TITLE "Janela com GETs"
@ 05, 3 SAY "Código " OF oDlg
@ 06, 3 SAY "Nome " OF oDlg
@ 05, 11 GET oGet1 VAR cCodigo OF oDlg SIZE 50,20
@ 06, 11 GET oGet2 VAR cNome OF oDlg SIZE 120,20
ACTIVATE DIALOG oDlg CENTERED
return nil
14 Jan 2012 08:06
18 Jan 2012 11:45
18 Jan 2012 16:00