Compartir a través de

Cómo: utilizar valores de Control mientras se ejecuta el código

  • Artículo

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Algunas propiedades de control se pueden establecer y devolver mientras el código de Microsoft Visual Basic está en ejecución. En el ejemplo siguiente, se establece la propiedad Text de un cuadro de texto como "Hello".

TextBox1.Text = "Hello"

Los datos que el usuario escribe en el formulario se pierden al cerrarlo. Si devuelve los valores de los controles de un formulario después de descargarlo, obtendrá los valores iniciales de los controles en lugar de los valores que escribió el usuario.

Si desea guardar los datos introducidos en un formulario, puede guardar la información en variables de nivel de módulo mientras aún se ejecuta el formulario. En el ejemplo siguiente se muestra un formulario y guarda los datos del formulario.

'Code in module to declare public variables
Public strRegion As String
Public intSalesPersonID As Integer
Public blnCanceled As Boolean

'Code in form
Private Sub cmdCancel_Click()
    Module1.blnCanceled = True
    Unload Me
End Sub

Private Sub cmdOK_Click()
    'Save data
    intSalesPersonID = txtSalesPersonID.Text
    strRegion = lstRegions.List(lstRegions.ListIndex)
    Module1.blnCanceled = False
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Module1.blnCanceled = True
End Sub

'Code in module to display form
Sub LaunchSalesPersonForm()
    frmSalesPeople.Show
    If blnCanceled = True Then
        MsgBox "Operation Canceled!", vbExclamation
    Else
        MsgBox "The Salesperson's ID is: " &
            intSalesPersonID & _
            "The Region is: " & strRegion
    End If
End Sub

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.