Sv Community El Salvador
Soporte y Tecnología => Programación => FOX => Mensaje iniciado por: fre_saga en febrero 24, 2012, 03:37:55 pm
-
hola hay forma de declarar este codigo vb en foxpro
o alguien tiene algo parecido
este lo utilizo para trabajar los controles hablilitar, desabilitar, limpiar
Private Sub controles(Index As Integer)
Select Case Index
'esta parte es para texbox
Case 0
For Each c As Control In ExpandablePanel1.Controls
If TypeOf c Is TextBox Then
c.Enabled = False
End If
Next
Case 1
For Each c As Control In ExpandablePanel1.Controls
If TypeOf c Is TextBox Then
c.Enabled = True
End If
Next
Case 2
For Each c As Control In ExpandablePanel1.Controls
If TypeOf c Is TextBox Then
c.Text = ""
End If
Next
'esta parte es para botones
Case 3
btguardar.Enabled = True
Case 4
btguardar.Enabled = False
Case 5
btmodificar.Enabled = True
bteliminar.Enabled = True
Case 6
btmodificar.Enabled = False
bteliminar.Enabled = False
Case 7
btnuevo.Enabled = True
Case 8
btnuevo.Enabled = False
End Select
End Sub
Public Enum Index
Deshabilitar_TextBox = 0
Habilitar_TextBox = 1
Limpiar = 2
Habilitar_guardar = 3
Deshabilitar_guardar = 4
Habilitar_botones = 5
Deshabilitar_botones = 6
Habilitar_nuevo = 7
Deshabilitar_nuevo = 8
End Enum
asi lo llamo
Private Sub btnuevo_Click(sender As System.Object, e As System.EventArgs) Handles btnuevo.Click
controles(Index.Habilitar_TextBox)
controles(Index.Habilitar_guardar)
controles(Index.Deshabilitar_nuevo)
End Sub
-
No se por hay me encontre este haber si te sirve algo :
IF THISFORM.crear=.F. AND THISFORM.modificar=.F.
THISFORM.disponible =.T.
THISFORM.crear=.T.
THISFORM.modificar=.T.
THISFORM.camposdisponibles()
GO BOTT
STORE id_calidad TO nnumero
INSERT INTO calidades_oro(id_calidad, usuario);
VALUES (nnumero+1, cusername)
THISFORM.txtidcalidad.REFRESH
THISFORM.txtcalidad.SETFOCUS()
ELSE
nanswer = MESSAGEBOX("Estan Correctos los datos... y desea actualizar", 4+32+0,"Actualizacion de Registro")
DO CASE
CASE nanswer = 6
IF THISFORM.crear=.F. AND THISFORM.modificar=.T.
REPLACE usuario WITH cusername
REPLACE registromov WITH DATETIME()
nprioridad=10
cmensaje="Se modifico una calidad"
THISFORM.vitacora()
ENDIF
IF THISFORM.crear=.T. AND THISFORM.modificar=.T.
nprioridad=10
cmensaje="Se Creo una nueva calidad "
THISFORM.vitacora()
ENDIF
SELECT calidades
GO TOP
THISFORM.guardar()
THISFORM.disponible =.F.
THISFORM.crear =.F.
THISFORM.modificar =.F.
THISFORM.camposdisponibles()
ENDCASE
ENDIF
THISFORM.REFRESH
-
Use Fox hace mas de 10 años, cuando tenia que remediar estas situaciones, lo hacia con variables públicas y agregando métodos y/o propiedades al formulario, como el ejemplo de linux2010, cuando estas en modo de diseño de formulario hay un menu para administrar metodos y propiedades personalizadas, Fox es bastante limitado y no se puede crear codigo robusto, suerte!
-
voy a probar el codigo y comento despues