Information générale
Catégorie:
Gestionnaire d'écran & Écrans
>I'm using a memvar as the source.
>I also tried taking the result of a REPLICATE() call and storing it
>directly to the "Value" property. It didn't help.
>
I tried this simple example using REPLICATE - and it works..
Arnon
PUBLIC ooteform1
SET CLASSLIB TO d:\vfpwork\otecontrols.vcx ADDITIVE
ooteform1=CREATEOBJECT("oteform1")
ooteform1.Show
RETURN
**************************************************
*-- Form: oteform1 (d:\vfpprojects\experiments\stam.scx)
*-- ParentClass: oteform (d:\vfpwork\otecontrols.vcx)
*-- BaseClass: form
*
DEFINE CLASS oteform1 AS oteform
DoCreate = .T.
DrawStyle = 5
LockScreen = .F.
Name = "Oteform1"
prop = .F.
ADD OBJECT edit1 AS editbox WITH ;
Height = 121, ;
Left = 24, ;
Top = 36, ;
Width = 301, ;
ControlSource = "", ;
Name = "Edit1"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 192, ;
Left = 24, ;
Height = 27, ;
Width = 84, ;
Caption = "Command1", ;
Name = "Command1"
ADD OBJECT command2 AS commandbutton WITH ;
Top = 192, ;
Left = 156, ;
Height = 27, ;
Width = 84, ;
Caption = "Command2", ;
Name = "Command2"
PROCEDURE Init
this.prop=replicate("x",2300)+"y"
ThisForm.Edit1.controlsource="thisform.prop"
ENDPROC
PROCEDURE command1.Click
thisform.prop=replicate("a",2290)+"b"
ThisForm.Edit1.refresh()
ENDPROC
PROCEDURE command2.Click
thisform.prop=replicate("w",3360)+"z"
ThisForm.Edit1.refresh()
ENDPROC
ENDDEFINE
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement