FoxPro/Visual FoxPro - No cargar fomulario de Vfp9 en Windows7

   
Vista:

No cargar fomulario de Vfp9 en Windows7

Publicado por Jesus (85 intervenciones) el 04/09/2014 22:45:38
Estimado amigos
Tengo un Ejecutable de Vfp9 q se inicia con una Formulario de Acceso al Sistema el cual carga muy bien y se conecta bien al MySql (por me aparecen los usuario y me deja validar el acceso) .
Pero cuando el acceso es correcto deberia cargarme el formulario de fondo en donde estan las opciones de todo el sistema pero no carga nada, pero cuando voy al Admnistrador de Tareas de Windows si aparece el nombre de mi ejecutable. lo Gracioso es q el Ejcutable corre bien solo cuando en ese Maquina que tiene windows 7 y se encuentra instalado el Visual Foxpro, pero si no esta instalado hay es el problema.

En el Formulario de acceso estas opciones estan asi:

ShowWindow = 2 como formulario de nivel superior
WindowState= 0 Normal
Windowtuype= 0 Sin Modo

En el Formulario de Fomdo de Opciones estan asi:

ShowWindow = 2 como formulario de nivel superior
WindowState= 0 Normal
Windowtuype= 1 Modal


De antemano mil Gracias por su pronta respuesta y ayuda
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

No cargar fomulario de Vfp9 en Windows7

Publicado por Fernando Bussa (26 intervenciones) el 05/09/2014 22:08:29
yo lo solucione asi, fijate si te sirve

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
SET PATH TO C:\ADMINIST BG\
DO funciones
 
 
*-- Nombre de la Aplicación
_SCREEN.CAPTION = 'adminbg'
 *-- Evito que se ejecute mas de una vez
 IF YaEstaActivo()
*   loLogo = .NULL.
   Application.Visible = .f.
   llret = .NULL.
   RETURN
 ENDIF
 
 
 
 
*!*	HIDE WINDOW SCREEN
*!*	DEACTIVATE WINDOW SCREEN
 
 
SET DELETED on
SET EXCLUSIVE OFF
SET DATE FRENCH
SET CENTURY OFF
 
 
Set Classlib To "C:\Program Files\Microsoft Visual FoxPro 9\Wizards\_framewk.vcx"
Set Classlib To "C:\Program Files\Microsoft Visual FoxPro 9\Ffc\_base.vcx"
 
 
 
 
PUBLIC goMiForm, EleMoPro, P_CO1_P_VE2, qusapro, v_recno
EleMoPro=0
P_CO1_P_VE2=0
qusapro=0
v_recno=0
 
goMiForm = CREATEOBJECT("MiForm")
goMiForm.SHOW()
READ EVENTS
RETURN
 
 
* comienza definicion clase del formulario
DEFINE CLASS MiForm AS FORM
  *-- Propiedades
  SHOWWINDOW = 2 && Formulario de nivel superior
  AUTOCENTER = .T.
  ALWAYSONTOP = .T.
  CAPTION = "  Sistema Administrativo "
  NAME = "MiForm"
  HEIGHT = 580
  WIDTH = 770
  BACKCOLOR = RGB(128, 128, 128)
  PICTURE = 'C:\Administ BG\image\cristal.bmp'
  HALFHEIGHTCAPTION= .T.
  SHOWTIPS= .T.
  ICON= 'C:\Administ BG\image\bg.ico'
  CLOSABLE= .f.
  MAXBUTTON= .F.
  colorsource = 0
  MOVABLE=.T.
  borderstyle=2
WindowType = 0
   Visible = .T.
 
 
  *-- Objetos
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