Objeto con enfoque???

Daniel Sandoval wrote:

Saludos!!!

Cómo puedo saber si un objeto TextBox tiene el enfoque??? Existe esa
propiedad???

Es un objeto tomado de la barra de controles, no es de un formulario.

Intente de esta forma:
If myTextBox.Activate = False Then
Msgbox "myTextBox no tiene el enfoque"
End if

Pero cada vez que analiza la condicion el TextBox toma el enfoque :(

No se si hay una solución directa para esto, ya que al usar Activate,
cambias el foco al botón. Una solución, que puede no ser la mejor es:

Usa la propiedad Tag del TextBox, dejándolo marcado mientras está
enfocado. Para esto puedes usar los eventos Enter y Exit del textbox, de
tal manera que en mytextbox_Enter colocas "mytextbox.tag=1" y en
mytextbox_exit colocas "mytextbox.tag=0". Después compruebas la
condición con:

If myTextBox.Tag = 0 Then
Msgbox "myTextBox no tiene el enfoque"
End if

Es una solución que te puede servir mientras aparece algo mejor.
Saludos,
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.

Hay una propiedad llamada ActiveControl que podría usarse para esto...

If ActiveControl.Name = "TextBox1" Then

End If

o algo por ese estilo.

Saludos,

Juan Pablo González

"Beto" wrote in message
news:

Daniel Sandoval wrote:

> Saludos!!!
>
> Cómo puedo saber si un objeto TextBox tiene el enfoque??? Existe esa
> propiedad???
>
> Es un objeto tomado de la barra de controles, no es de un formulario.
>
> Intente de esta forma:
> If myTextBox.Activate = False Then
> Msgbox "myTextBox no tiene el enfoque"
> End if
>
> Pero cada vez que analiza la condicion el TextBox toma el enfoque :(

No se si hay una solución directa para esto, ya que al usar Activate,
cambias el foco al botón. Una solución, que puede no ser la mejor es:

Usa la propiedad Tag del TextBox, dejándolo marcado mientras está
enfocado. Para esto puedes usar los eventos Enter y Exit del textbox, de
tal manera que en mytextbox_Enter colocas "mytextbox.tag=1" y en
mytextbox_exit colocas "mytextbox.tag=0". Después compruebas la
condición con:

If myTextBox.Tag = 0 Then
Msgbox "myTextBox no tiene el enfoque"
End if

Es una solución que te puede servir mientras aparece algo mejor.
Saludos,
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.

¿que tal, chicos?

Daniel Sandoval escribio ...
Como puedo saber si un objeto TextBox tiene el enfoque??? Existe esa propiedad???
Es un objeto tomado de la barra de controles, no es de un formulario.

Beto escribio ...
No se si hay una solución directa para esto, ya que al usar Activate, cambias el foco al boton.
Una solucion, que puede no ser la mejor es... propiedad Tag del TextBox [...]

Juan Pablo González escribio ...
Hay una propiedad llamada ActiveControl que podría usarse para esto...
If ActiveControl.Name = "TextBox1" Then [...]

si entiendo bien... Daniel se refiere a:
- un textbox de la barra de herramientas formularios
- 'incrustado' en una hoja de calculo [?]

si lo anterior es 'correcto'... ninguna de las propiedades sugeridas es 'aplicable' a objetos activex 'incrustados' :(
[en tal caso]... se tendria que 'truquear' con alguna variable publica [p.e. booleana] en un modulo de codigo 'normal'
'estableciendola' en los eventos 'gotfocus' y 'lostfocus' [del objeto] como verdadero o falso respectivamente [p.e.]

en un modulo de codigo 'normal' ==Public Objeto_Activo As Boolean

en el modulo de codigo de 'la hoja' que tiene el objeto incrustado ==Private Sub TextBox1_GotFocus(): Objeto_Activo = True: End Sub
Private Sub TextBox1_LostFocus(): Objeto_Activo = False: End Sub

en algun procedimiento que 'requiera' la verificacion del 'objeto activo' ==[... otras lineas de codigo ...]
If Objeto_Activo Then
MsgBox "TextBox1 SI tiene el enfoque"
Else
MsgBox "TextBox1 NO tiene el enfoque"
End If
[... otras lineas de codigo ...]

saludos,
hector.