Visual FoxPro.NET - Como validar informacion de un combobox desde un prg en vfp 9

   
Vista:

Como validar informacion de un combobox desde un prg en vfp 9

Publicado por Daniel daniel.molano97@gmail.com (3 intervenciones) el 06/10/2015 15:31:13
Como validar informacion de un combobox desde un prg en vfp 9 con solo codigo y que pueda correr el formulario desde un prg.
gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como validar informacion de un combobox desde un prg en vfp 9

Publicado por Saul (46 intervenciones) el 13/10/2015 16:55:00
En la ayuda hay mucha información, como hacer un formulario a partir de código

La verdad no se para que necesitas esta forma, pero te dejo un ejemplo..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
SET SYSMENU TO
 
SET SYSMENU AUTOMATIC
 
 
 
DEFINE PAD _0k50sa3dr OF _MSYSMENU PROMPT "\<Window" COLOR SCHEME 3 ;
    KEY ALT+W, ""
 
DEFINE PAD _0k50sa3ds OF _MSYSMENU PROMPT "E\<xit" COLOR SCHEME 3 ;
    KEY ALT+X, ""
 
ON PAD _0k50sa3dr OF _MSYSMENU ACTIVATE POPUP Wwindow
 
ON SELECTION PAD _0k50sa3ds OF _MSYSMENU DO CloseDemo
 
 
 
DEFINE POPUP Wwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
 
DEFINE BAR 1 OF Wwindow PROMPT "\<Close" ;
    SKIP FOR TYPE("_Screen.ActiveForm.Name")<>"C"
 
DEFINE BAR 2 OF Wwindow PROMPT "\<Open"
 
ON SELECTION BAR 1 OF Wwindow =_SCREEN.ACTIVEFORM.RELEASE()
 
ON SELECTION BAR 2 OF Wwindow DO OpenForm
 
 
 
PUBLIC ARRAY aoForms(1)
 
aoForms[1] = NEWOBJECT("frmdemo")
 
aoForms[1].SHOW
 
 
 
READ EVENTS
 
 
 
SET SYSMENU TO DEFAULT
 
CLEAR ALL
 
 
 
    PROCEDURE OpenForm
 
    DIMENSION aoForms(ALEN(aoForms)+1)
 
    aoForms[ALEN(aoForms)] = NEWOBJECT("frmdemo")
 
    aoForms[ALEN(aoForms)].SHOW
 
    RETURN
 
 
 
    PROCEDURE CloseDemo
 
    CLEAR EVENTS
 
    RETURN
 
 
 
DEFINE CLASS frmdemo AS FORM
 
    CAPTION = "Demo Form"
 
    NAME = "frmDemo"
 
 
 
    ADD OBJECT cmdClose AS COMMANDBUTTON WITH ;
        TOP = 200, ;
        LEFT = 264, ;
        HEIGHT = 27, ;
        WIDTH = 84, ;
        CANCEL = .T., ;
        CAPTION = "Close", ;
        DEFAULT = .T., ;
        NAME = "cmdClose"
 
 
 
    PROCEDURE cmdClose.CLICK
 
    m.nOKButton=0
 
    m.nInfo=64
 
    =MESSAGEBOX("After this Form closes, select Exit from the menu to return to the Command Window",m.nInfo+m.nOKButton)
 
    THISFORM.RELEASE
 
ENDPROC
 
 
 
    PROCEDURE RELEASE
 
    LOCAL m.nIndex
 
    FOR m.nIndex = 1 TO ALEN(aoForms)
 
        IF VARTYPE(aoForms[m.nIndex])=="O"
 
            IF aoForms[m.nIndex]=THIS
 
                aoForms[m.nIndex] = ""
 
                EXIT
 
            ENDIF
 
        ENDIF
 
    ENDFOR
 
ENDPROC
 
ENDDEFINE
.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Como validar informacion de un combobox desde un prg en vfp 9

Publicado por Daniel Molano (3 intervenciones) el 13/10/2015 18:02:55
Musha Gracias Amigo, de verdad se te aprecia tu ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar