Como seleccionar
Hola, necesito saber como puedo hacer para que en una aplicación se pueda seleccionar. Lo que quiero es que quede parecido a la forma como se seleccionan varias celdas en excel. Gracias
1 Respuesta
Respuesta de boy14
1
Pues bien si lo que necesitas es seleccionar el contenido de varios Text no se puede hacer, lo que puede hacerse es ir seleccionando el contenido de cada Text, esto lo haces colocando en el evento GotFocus del Text el siguiente código:
TextSelected
Y luego creas la función
Public Sub TextSelected()
Dim i As Integer
Dim oMyTextBox As Object
Set oMyTextBox = Screen.ActiveControl
If TypeName(oMyTextBox) = "TextBox" Then
i = Len(oMyTextBox.Text)
oMyTextBox.SelStart = 0
oMyTextBox.SelLength = i
End If
End Sub
Espero te sirva. Suerte.. y por favor no se te olvide finalizar la pregunta..
TextSelected
Y luego creas la función
Public Sub TextSelected()
Dim i As Integer
Dim oMyTextBox As Object
Set oMyTextBox = Screen.ActiveControl
If TypeName(oMyTextBox) = "TextBox" Then
i = Len(oMyTextBox.Text)
oMyTextBox.SelStart = 0
oMyTextBox.SelLength = i
End If
End Sub
Espero te sirva. Suerte.. y por favor no se te olvide finalizar la pregunta..
Si ya resolviste el problema y no tienes más dudas te recuerdo que debes finalizar la pregunta
