Curso Completo Base de datos

8 option buttons

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • 8 option buttons

    Estoy haciendo 8 optionbutton y la verdad no me acuerdo como puedo que al volver a abrir, recuerde la ultima vez cual fue el option activado.
    Gracias.

    la verdad todavia no tengo ni idea de como hacerla
    Última edición por Anacarolina28; 01-06-2014, 06:30 PM.

  • #2
    Re: 8 option buttons

    Hola Anacarolina28, en ese caso podrías declarar una variable global de tipo string que tome el texto del optionbutton que has seleccionado y lo guarde. Luego cuando vuelva abrir el form que la variable compare el texto de los 8 optionbutton hasta conseguir con el correspondiente.
    Saludos.

    Comentario


    • #3
      Re: 8 option buttons

      Hola Anacarolina28, si lo que necesitás es recuperar el nombre del OptionButton luego de cerrar el programa, podés usar las variables de entorno. Pero si lo querés recuperar luego de apagar la compu, lo ideal es usar archivos de configuración específicos para tu aplicación (pueden ser *.INI), ya que para algo tan sencillo no veo la necesidad de usar el Registro, que sería la otra opción.

      Saludos cordiales!
      Saludos.

      Comentario


      • #4
        Re: 8 option buttons

        necesito un ejemplo por favor. luego ya me los apaño yo solo agradeciendo al foro. Muchas gracias.

        Comentario


        • #5
          Re: 8 option buttons

          Hola Anacarolina28, un ejemplo puede ser el siguiente:
          [highlight=vb]
          Public Sub Config_Guardar(ByRef opt As OptionButton)
          Dim nFILE%: nFILE% = FreeFile()
          Open "Config.prg" For Output As #nFILE
          Write #nFILE, opt.Name
          Close #nFILE
          End Sub

          Public Function Config_Leer$()
          Dim s$, nFILE%: nFILE% = FreeFile()
          Open "Config.prg" For Input As #nFILE
          Input #nFILE, Config_Leer$
          Close #nFILE
          End Function
          [/highlight]
          Eso podés hacerlo en un modulo. Luego, en el lugar del código donde querés guardar el option seleccionado (OptionX), hacés:
          Código:
          Config_Guardar(OptionX)
          Y donde deseás leer, hacés:
          Código:
          sOptionName = Config_Leer$()
          En la variable sOptionName recuperás el nombre del OptionButton que tenés que seleccionar.

          ¡Saludos cordiales desde Argentina!
          Saludos.

          Comentario


          • #6
            Re: 8 option buttons

            me da error 53 en ejecucion
            y me sale esto subrayado en amarillo


            Open "Config.prg" For Input As #nFILE

            Comentario


            • #7
              Re: 8 option buttons

              Originalmente escrito por Anacarolina28 Ver mensaje
              me da error 53 en ejecucion
              y me sale esto subrayado en amarillo


              Open "Config.prg" For Input As #nFILE
              Por eso si te fijás bien mi mensaje verás que primero te dije que guardes la configuración y después que leas, ya que si intentás leerla primero, no va a encontrar el archivo, porque todavía no se ha guardado la configuración. Pero la solución es sencilla para que funcione con la lógica de lectura antes de escritura, sólo hay que modificar la Función Config_Leer$:
              [highlight=vb]
              Public Function Config_Leer$()
              On Error GoTo fin
              Dim s$, nFILE%: nFILE% = FreeFile()
              Open "Config.prg" For Input As #nFILE
              Input #nFILE, Config_Leer$
              Close #nFILE
              fin:
              End Function
              [/highlight]
              Como podés ver, la sencilla On Error Goto resuelve el problema. Pero ahora ten en cuenta que la Función Config_Leer$ te puede devolver string vacío.

              ¡Saludos desde Argentina!
              Saludos.

              Comentario


              • #8
                Re: 8 option buttons

                pero si he hecho asi


                Código:
                Private Sub Form_Load()
                     sOptionName = Config_Leer$()
                End Sub
                
                Private Sub Form_Unload(Cancel As Integer)
                     Config_Guardar (OptionX)
                End Sub
                Última edición por javinet; 03-06-2014, 03:30 AM. Razón: 2ª vez. Etiquetas Code

                Comentario


                • #9
                  Re: 8 option buttons

                  Claro, por eso se debe agregar el On Error Goto en la Función Config_Leer$, imagino que te habrá funcionado... ¿o no?
                  Saludos.

                  Comentario

                  Trabajando...
                  X