Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Textbox.Controlsource + check for changes
Message
From
27/02/2003 07:42:19
 
 
To
27/02/2003 01:28:21
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00758093
Message ID:
00758676
Views:
19
José;

We got a very weird situation here.. This code is working perfectly here (even firing Interactivechange() and ProgrammaticChange())

>I change something the code, delete code in textbox class for Click method and create a commandbutton for this method, and the methodes don´t change

That´s changes worked OK, there is no kind of problem here.. What release of VFP and SP are you using there ?

>>
PUBLIC otabform1

*SET CLASSLIB TO f:\d\ds\comun\cls\tabclass.vcx ADDITIVE
* Sorry, I dont have (over here) this library
*
CREATE TABLE TITAS26 (ctitas c(2), titas c(40))
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c1","DESC C1")
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c2","DESC C2")
INSERT INTO TITAS26 (CTITAS, TITAS) VALUES ("c3","DESC C3")
GO TOP

otabform1=NEWOBJECT("tabform1")
otabform1.Show

RETURN
**************************************************
*-- Form:         tabform1 (c:\form1.scx)
*-- ParentClass:
*-- BaseClass:    form
*-- Marca de hora:   02/26/03 05:11:14 PM
*
DEFINE CLASS tabform1 AS form
	DoCreate = .T.
	Name = "Tabform1"
	ADD OBJECT txtctitas AS textboxX WITH ;
		ControlSource = "titas26.ctitas", ;
		Height = 23, ;
		Left = 213, ;
		MaxLength = 2, ;
		TabIndex = 2, ;
		Top = 99, ;
		Width = 38, ;
		Name = "txtCtitas"
	ADD OBJECT txttitas AS textboxX WITH ;
		ControlSource = "titas26.titas", ;
		Height = 23, ;
		Left = 211, ;
		MaxLength = 40, ;
		TabIndex = 4, ;
		Top = 140, ;
		Width = 288, ;
		Name = "txtTitas"

*-- CHANGE/CHANGE/CHANGE	
	
	ADD OBJECT cmd1 AS CMD

*-- END OF CHANGE/CHANGE/CHANGE
	
ENDDEFINE

DEFINE CLASS textboxX AS textbox
		Comment = ""
	PROCEDURE ProgrammaticChange
		WAIT WINDOW "HOLA"
	ENDPROC
	PROCEDURE InteractiveChange
		WAIT WINDOW "HOLA"
	ENDPROC
ENDDEFINE

*-- CHANGE/CHANGE/CHANGE
DEFINE CLASS cmd AS COMMANDBUTTON
	PROCEDURE Click
		SELECT TITAS26
		SKIP
		THISFORM.Refresh()
	ENDPROC
ENDDEFINE	
*--END CHANGE/CHANGE/CHANGE
Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform