Ayuda!!! - Como Saber Que Control tiene el Focus en Un Formulario de VB 5 - 6

[danielsanti]

Disculpen si me meti en este foro, soy apasionado de Visaul Basic, pero parece que hoy en dia esta de moda el Java por que es el unico que tiene mas personas visitandolo. Si hay algun genio por ahi que me pueda ayudar, necesito saber alguna rutina de como saber que objeto o control tiene el focus en un formulario de vb, de esta forma se podria ahorrar varias lineas de programacion al no utilizar el Gotfocus y el Lostfocus en cada objeto del formulario, si esto es posible les envio mi idea para que lo apliquen. Desde ya muchas Gracias. Daniel A. Santi. - Argentina - [email protected]

[Kaopectate]

Hola Daniel.

Me temo que tu pregunta no va en este foro, la voy a mover al foro de programación.

Saludos.

[Jorge_Mota]

revisa a ver si el form tiene la propiedad
ActiveControl

y podes ver algo asi (al menos en Visual Fox Pro si existe)

msgbox form1.activecontrol.name

[Mithrandir]

creo que buscas algo como:

if not from1.activecontrol.name = "nombre_de_mi_control" then
msgbox "no es el que me interesa"
else
msgbox "voilà"

Saludos
PD. No hagas posts en otros temas, siempre te van a redirigir.

[apcomt]

No se de cuando es esta pregunta pues soy nuevo en este foro.


Se me ocurrio que pongas un Timer, dentro del escribas el siguiente codigo

Private Sub Timer1_Timer()

On Error Resume Next ' <<< Este hara que cuando el control que tome el
Dim S As TextBox '<<<<foco no sea un textboxt entonces lo ignora
S = Me.ActiveControl.Name
TomarFoco S
End Sub

'Hacemos funcion que se llame tomarFoco
Public Function TomarFoco(Control As TextBox)
Control.BackColor = &H8000&
Control.ForeColor = vbWhite
End Function

Se que puede haber otra forma, inclusive en el evento KeyPress, pero fue lo primero que se me ocurrio, espero te sirva