Subject |
Re: pass a value from fora ONE to be read by form TWO |
From |
Ken Mayer <dbase@nospam.goldenstag.net> |
Date |
Sun, 11 Aug 2019 07:45:53 -0700 |
Newsgroups |
dbase.getting-started |
Attachment(s) |
form1.wfm, form2.wfm |
On 8/10/2019 1:22 PM, Ivan Benttini wrote:
> How can I pass a value from form One to be tested by form Two.
> I am running Microsoft Windows 7 and my dBase version is 2.80.
>
> I tought that by using a global variable like _app.VALUE NAME would do the trick but is not working for me. Can some one give me a "push" here?
>
> May be a snip of code would be Much appreciate when anyone have the time.
>
Note the attached two forms, form1 calls form2, passing the value in the
entryfield to the entryfield on form2. When form2 closes, the value in
the entryfield there is returned ... so you can communicate both ways.
Read the code ...
Ken
--
*Ken Mayer*
Ken's dBASE Page: http://www.goldenstag.net/dbase
The dUFLP: http://www.goldenstag.net/dbase/index.htm#duflp
dBASE Books: http://www.goldenstag.net/dbase/Books/dBASEBooks.htm
dBASE Tutorial: http://www.goldenstag.net/dbase/Tutorial/00_Preface.htm
|
** END HEADER -- do not remove this line
//
// Generated on 08/11/2019
//
parameter bModal
local f
f = new form1Form()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class form1Form of FORM
with (this)
metric = 6 // Pixels
height = 158.0
left = 334.0
top = 0.0
width = 464.0
text = ""
endwith
this.TEXT1 = new TEXT(this)
with (this.TEXT1)
height = 22.0
left = 4.0
top = 10.0
width = 297.0
text = "Form 1 -- pass information to Form 2"
endwith
this.MYENTRYFIELD = new ENTRYFIELD(this)
with (this.MYENTRYFIELD)
height = 22.0
left = 18.0
top = 45.0
width = 175.0
value = "Type something here"
endwith
this.OPEN_FORM2 = new PUSHBUTTON(this)
with (this.OPEN_FORM2)
onClick = class::OPEN_FORM2_ONCLICK
height = 24.0
left = 159.0
top = 96.0
width = 107.0
text = "Open Form 2"
endwith
function OPEN_FORM2_onClick()
set procedure to form2.wfm
oF2 = new form2form()
oF2.PassedValue = form.myentryfield.value
oF2.mdi = false
oF2.readModal()
// code won't execute until form2 is closed
form.myentryfield.value = oF2.PassedValueEF.value
oF2.release()
close procedure form2.wfm
return
endclass
|
** END HEADER -- do not remove this line
//
// Generated on 08/11/2019
//
parameter bModal
local f
f = new form2Form()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class form2Form of FORM
with (this)
open = class::FORM_OPEN
readModal = class::FORM_READMODAL
metric = 6 // Pixels
height = 213.0
left = 435.0
top = 177.0
width = 420.0
text = ""
endwith
this.TEXT1 = new TEXT(this)
with (this.TEXT1)
height = 33.0
left = 17.0
top = 6.0
width = 288.0
text = "Form 2 -- value passed from Form 1"
endwith
this.PASSEDVALUEEF = new ENTRYFIELD(this)
with (this.PASSEDVALUEEF)
height = 22.0
left = 88.0
top = 73.0
width = 166.0
value = "Entryfield1"
endwith
function form_open()
if type( "this.PassedValue" ) # "U"
this.PassedValueEF.value = this.PassedValue
else
this.PassedValueEF.value = "Nothing was passed ..."
endif
return FORM2FORM::open()
function form_readModal()
if type( "this.PassedValue" ) # "U"
this.PassedValueEF.value = this.PassedValue
else
this.PassedValueEF.value = "Nothing was passed ..."
endif
return FORM2FORM::readModal()
endclass
|