How can we pass value of ActiveX Control 1

[rkm500]

Hello,
I'am try to use Microsoft date-time picker ActiveX control object on my form.

How can I get the value of selected date and time in a text box:

My codes are as follows:

Microsoft DateTime PIcker Control object name : Olecontrol1

Text Box name: text1

I want the datetime value of Olecontrol1 object on text1 after at Click.

The click event codes of Text1 is:
thisform.text1.value=thisform.olecontrol1.value

When form is run, at text1 click, it returns Property value not found..

What does it mean..

Please help me in resolving this issue....

I'm using VFP7.0

 

[fluteplr]

Apparently the datetime picker has a really odd structure.

It appears that there is an internal 'item' within the control called object.

Try

thisform.text1.value = thisform.olecontrol1.object.value

 

[Mike Lewis]

RKM500,

The DataPicker does not have a Value property. It has separate properties for Year, Month and Day.

You can obtain the selected date as follows:

WITH THIS
dDate = DATE(.Year,.Month.,Day)
ENDWITH

Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk

 

[Mike Gagnon]

Mike


The DataPicker does not have a Value property.

I beg to differ...fluteplr is right, it does have a value, its just one step further in.

PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.addobject("olecontrol1","olecontrol1")

oform1.Show
RETURN
DEFINE CLASS form1 AS form
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"
	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 144, ;
		Left = 108, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		Name = "Command1"
	PROCEDURE command1.Click
		messagebox(thisform.olecontrol1.oBJECT.Value)
	ENDPROC
ENDDEFINE
DEFINE CLASS oleControl1 as OleControl
  oleclass = "MSComCTL2.DTPicker.2"
  visible = .t.
  width = 100
  height = 20
ENDDEFINE

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Mike Lewis]

Mike,

it does have a value, its just one step further in.

Fair comment.
Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk