none
Crear control en tiempo de ejecución por única vez RRS feed

  • Pregunta

  • Buenos días comunidad.

    Mi problema es el siguiente. Estoy creando una aplicación para llevar un control de inventario de artículos de las habitaciones de un hotel. Esta aplicación debe de correr en otros hoteles. Por lo tanto, las cantidades de habitaciones varían y el nombre de las habitaciones también. Para esto, pensé en crean una ventana de configuraciones para las hab. Hasta aca no tengo problema. Lo que necesito es esta configuración se mantenga una vez se cierre el programa. O sea, inicio mi aplicación por primera vez en un hotel, configuro las cantidad de habitación y el nombre de cada habitación, en tiempo de ejecución, ahora, esto debe de quedar por siempre y que al cerrar el programa y abrir de vuelta, aparezcan las habitaciones con sus nombre.

    Dejo mi codigo, que es solo un borrador. En el mismo lo que pretendo es ingresar cant de hab. Corre un ciclo for que de paso en paso, se pida el nombre de la hab con un inputbox. Ya el resto que veran es para manejar los eventos.

      
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim I As Integer
            Dim cntHab As Integer
            Dim numeroHab As Integer
    
            cntHab = TextBox1.Text
            For I = 1 To cntHab
    
                Dim bPuerta As New Button
                bPuerta = New Button
                bPuerta.Width = 75
                bPuerta.Height = 112
    
    
                Dim tPuerta As New TextBox
                tPuerta = New TextBox
                tPuerta.Width = 73
                tPuerta.Height = 20
                tPuerta.TextAlign = HorizontalAlignment.Center
                tPuerta.Enabled = True
    
    
                Dim btPuerta As New Button
                btPuerta = New Button
                btPuerta.Width = 75
                btPuerta.Height = 23
                btPuerta.Text = "Boton" & I
                btPuerta.Name = "soy_boto" & I
                AddHandler btPuerta.Click, AddressOf hab_click
    
                FlowLayoutPanel1.Controls.Add(bPuerta)
                FlowLayoutPanel1.Controls.Add(tPuerta)
                FlowLayoutPanel1.Controls.Add(btPuerta)
    
                numeroHab = InputBox("Hab")
                tPuerta.Text = numeroHab
    
    
            Next
    
        End Sub
        Private Sub hab_click(sender As Object, e As EventArgs)
            Dim hab As Button
    
            If TypeOf sender Is Button Then
    
                hab = CType(sender, Button)
    
               ' MessageBox.Show("Hab " & hab.Name) 
    
                frmInventHab.Show() ' aca me abre una ventana que debe hacer un select de la bd para mostrar los articulos de la hab en cuestion.
                frmInventHab.Label1.Text = hab.Text ' datos que le se le pasa al select para que filtro por hab.
            End If
    
        End Sub

    Espero que me pueda ayudar con esto. De lo contrario no seria una aplicación con un funcionamiento atomico y me veria obligado a rediseñar todo para cada hotel.

    Saludos y desde ya Gracias. 


    Luis felipe


    lunes, 5 de diciembre de 2016 12:15