Ajuda com Workshop e FiveWin

[MSANMFA]

id='Courier New'>Olá pessoal. Estou iniciando no uso do FiveWin (versão demo) com o Resource Workshop 4.5 e estou tendo dificuldade em manipular (por exemplo: exibir em um msginfo()) o conteúdo de uma caixa de texto que inseri em uma janela pelo Workshop. Os procedimentos que fiz foram:

1. Criei pelo Workshop minha dll contendo um resource DIALOG (DIALOG_2) e dentro dele inseri uma caixa de texto (control ID 101);

2. Salvei a dll no diretório do EXE

3. No PRG inseri no início da função main() a instrução: SET RESOURCES TO "TESTE.Dll"

4. A subfunção que quero manipular o texto é a seguinte:

Function BrwTESTE()

Local oDIALOGO ,;

lsCODIMOV := space(04)

DEFINE DIALOG oDIALOGO RESOURCE "DIALOG_2"

ACTIVATE DIALOG oDIALOGO CENTER

MsgInfo("Vou Gravar:" + LOADSTRING(GETRESOURCES("DIALOG_2"), 101))

Return NIL

A janela criada pelo Workshop é exibida perfeitamente com a caixa de texto, e digito sem nenhum problema, porém a msginfo sempre é exibida vazia. O que estou fazendo de errado. Desde já agradeço a ajuda. Marcio Amorim

Editado por - MSANMFA on 30/10/2007 18:44:00

[MSANMFA]

id='Courier New'>Olá pessoal. Estou iniciando no uso do FiveWin (versão demo) com o Resource Workshop 4.5 e estou tendo dificuldade em manipular (por exemplo: exibir em um msginfo()) o conteúdo de uma caixa de texto que inseri em uma janela pelo Workshop. Os procedimentos que fiz foram:

1. Criei pelo Workshop minha dll contendo um resource DIALOG (DIALOG_2) e dentro dele inseri uma caixa de texto (control ID 101);

2. Salvei a dll no diretório do EXE

3. No PRG inseri no início da função main() a instrução: SET RESOURCES TO "TESTE.Dll"

4. A subfunção que quero manipular o texto é a seguinte:

Function BrwTESTE()

Local oDIALOGO ,;

lsCODIMOV := space(04)

DEFINE DIALOG oDIALOGO RESOURCE "DIALOG_2"

ACTIVATE DIALOG oDIALOGO CENTER

MsgInfo("Vou Gravar:" + LOADSTRING(GETRESOURCES("DIALOG_2"), 101))

Return NIL

A janela criada pelo Workshop é exibida perfeitamente com a caixa de texto, e digito sem nenhum problema, porém a msginfo sempre é exibida vazia. O que estou fazendo de errado. Desde já agradeço a ajuda. Marcio Amorim

Editado por - MSANMFA on 30/10/2007 18:44:00

[Kbelo]

Amigo seja Bem vindo.

Isto que vc esta tentando fazer a MSGinfo() ja faz sozinha

é só informar a Frase que ela ja monta esta tela.

No caso que voce inclui uma Caixa de Texto seria assim

varteste := "Meu texto"

DEFINE DIALOG oDIALOGO RESOURCE "DIALOG_2"

REDEFINE GET Oget VAR varteste ID 101 OF oDIALOGO

ACTIVATE DIALOG oDIALOGO CENTER

Return NIL

Marcelo Michels

marcelo@infototal.com.br

"Total Informatica"

V Encontro de Fivewin - Novembro 2007id=red>

Eu Apoio, se vou ai só Deus sabe.

[MSANMFA]

id='Courier New'>Marcelo, obrigado pelas boas vindas e pela ajuda. Funcionou 100%. Valeu mesmo!!!