Autor Tema: como crear funcion vb parecia en foxpro  (Leído 1912 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado fre_saga

  • Trade Count: (0)
  • Sv Member
  • ***
  • Thank You
  • -Given: 0
  • -Receive: 17
  • Mensajes: 275
como crear funcion vb parecia en foxpro
« : 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

Desconectado linux2010

  • Trade Count: (0)
  • Sv Member
  • ***
  • Thank You
  • -Given: 4
  • -Receive: 1
  • Mensajes: 203
Re: como crear funcion vb parecia en foxpro
« Respuesta #1 : febrero 24, 2012, 03:56:43 pm »
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
[http://4.bp.blogspot.com/-WImQylOUoP8/TdTjQ0i1MmI/AAAAAAAAAFg/69azuFBQasc/s1600/TUX_ANIMADO.gif[/img][/URL]

Desconectado stoke

  • Trade Count: (0)
  • Sv Member
  • ***
  • Thank You
  • -Given: 10
  • -Receive: 4
  • Mensajes: 342
Re: como crear funcion vb parecia en foxpro
« Respuesta #2 : febrero 24, 2012, 04:01:05 pm »
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!

Desconectado fre_saga

  • Trade Count: (0)
  • Sv Member
  • ***
  • Thank You
  • -Given: 0
  • -Receive: 17
  • Mensajes: 275
Re: como crear funcion vb parecia en foxpro
« Respuesta #3 : febrero 24, 2012, 04:48:31 pm »
voy a probar el codigo  y comento despues