Usar los valores de los controles mientras se ejecuta el código
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í.
Algunos controls las propiedades pueden establecerse y devolverse mientras se ejecuta el código de Visual Basic. 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 escritos en un formulario, puede guardar la información en variables de nivel de módulo mientras aún se ejecuta el formulario. El siguiente ejemplo muestra un formulario y guarda los datos del mismo.
' Code in module to declare public variables.
Public strRegion As String
Public intSalesPersonID As Integer
Public blnCancelled As Boolean
' Code in form.
Private Sub cmdCancel_Click()
Module1.blnCancelled = True
Unload Me
End Sub
Private Sub cmdOK_Click()
' Save data.
intSalesPersonID = txtSalesPersonID.Text
strRegion = lstRegions.List(lstRegions.ListIndex)
Module1.blnCancelled = False
Unload Me
End Sub
Private Sub UserForm_Initialize()
Module1.blnCancelled = True
End Sub
' Code in module to display form.
Sub LaunchSalesPersonForm()
frmSalesPeople.Show
If blnCancelled = True Then
MsgBox "Operation Cancelled!", 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.