ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : petit souci   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

dim. 02 septembre 2018, 20h13
eddymaue
atoutfox.public.association

petit souci

bonsoir

Public lo

lo = Createobject("EMImputBox","Exemple : MaVariable = 5","Local as
string",6)
lo.show()

Set Step On
lcRetValue = lo.cRetValue

la varible lo n'existe plus au retour du formulaire modal pourtant elle
est publique

une idée

a+ eddy


voilà le code

Public lo

lo = Createobject("EMImputBox","Exemple : MaVariable = 5","Local as
string",6)
lo.show()

Set Step On
lcRetValue = lo.cRetValue


*If Not Empty(lo.cRetValue)


**************************************************
*-- Auteur : Eddy Maue
*-- Form: form1 (c:\vfp\dev\test_emimputbox.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 09/02/18 06:36:02 PM
*

Define Class EMImputBox As Form

AutoCenter= .T.
WindowType= 1 && modal
Top = -1
Left = 0
Height = 108
Width = 289
DoCreate = .T.
Caption = "EmImputBox : cDialogCaption"
*-- XML Metadata for customizable properties
* _memberdata = [<VFPData><memberdata name="autosize"
type="property" favorites="True"/><memberdata name="ctitre"
display="cTitre"/><memberdata name="ccaption"
display="cCaption"/><memberdata name="ccaption_assign"
display="cCaption_Assign"/><memberdata name="ctitre_assign"
display="cTitre_Assign"/><memberdata name="cretvalue"
display="cRetValue"/><memberdata name="mannuler"
display="mAnnuler"/><memberdata name="maccept"
display="mAccept"/></VFPData>]
cTitre = ""
cCaption = ""
cRetvalue = ""
Name = "Form1"


Add Object lblPromptInput As Label With ;
AutoSize = .T., ;
Caption = "cInputPrompt ", ;
Height = 17, ;
Left = 5, ;
Top = 12, ;
Width = 78, ;
Name = "lblPromptInput "


Add Object btnAccept As CommandButton With ;
Top = 72, ;
Left = 107, ;
Height = 27, ;
Width = 84, ;
Anchor = 12, ;
Caption = "Accepter", ;
Default = .T., ;
Name = "btnAccept"


Add Object btnAnnuler As CommandButton With ;
Top = 72, ;
Left = 197, ;
Height = 27, ;
Width = 84, ;
Anchor = 12, ;
Cancel = .T., ;
Caption = "Annuler", ;
Name = "btnAnnuler"


Add Object edit1 As EditBox With ;
Anchor = 15, ;
Height = 24, ;
Left = 5, ;
ScrollBars = 0, ;
Top = 36, ;
Width = 276, ;
Name = "Edit1"


Procedure ccaption_assign
Lparameters tcCaption

Store m.tcCaption To This.cCaption, This.Caption
Endproc


Procedure ctitre_assign
Lparameters tcTitre
This.cTitre = tcTitre
This.label1.Caption = tcTitre
Endproc


Procedure mAccept
Thisform.cRetvalue = Thisform.edit1.Text
Thisform.Release()
Endproc


Procedure Unload
Return This.cRetvalue
Endproc


Procedure Init
Lparameters tcTitre,tcCaption, tcDefaultValue

Local lsDefault As string
lsDefault = Transform(m.tcDefaultValue)

If Vartype(m.tcCaption)=="C" And Not Empty(m.tcCaption)
This.Caption = m.tcCaption
Endif

If Vartype(m.tcTitre)=="C" And Not Empty(m.tcTitre)
This.lblPromptInput.Caption = m.tcTitre
Endif

If Vartype(m.lsDefault)=="C" And Not Empty(m.lsDefault)
This.edit1.Value = Transform(m.lsDefault)
Endif
Endproc


Procedure mAnnuler()

thisform.Release()

Endproc


Procedure btnAccept.Click
Thisform.mAccept()
Endproc


Procedure btnAnnuler.Click()
Thisform.cRetvalue = ""
Thisform.Release()
Endproc


Enddefine
*
*-- EndDefine: form1
**************************************************

--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019178
19 160 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0