VBA - Cómo usar un control si usar su nombre

30/04/2008 - 11:58 por Don Juan | Informe spam
Hola a todos.
Estoy con VBA en un fichero bajo Office 2003.
Tal vez el código es el mismo en VB???

Tengo varios controles OptionButtom y he hecho una programación cuando se
hace un click en cada uno.
Lo único que quiero es saber el .Caption del OptionButtom que utilizo,
cualquiera que este sea.

Tengo este código:
Private Sub OptionButtom1_Click()
MsgBox OptionButtom1.Caption
'
'
End Sub
-
Cómo puedo hacer una función para que me de el .Caption de cualquier
OptionButtom ?

1000 gracias

Preguntas similare

Leer las respuestas

#1 Lluis Franco
30/04/2008 - 16:08 | Informe spam
:-)
Supongo que en Access todavía vale esto:

MsgBox ActiveControl.Caprion

Y si no tal vez con esto:

MsgBox Screen.ActiveControl.Caprion

Te lo digo de memoria, pero va por ahí...
Saludos,

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]
NUG: http://andorradotnet.com
Web: http://sps.uyssoft.com
Blog: http://msmvps.com/blogs/lfranco
Geeks: http://geeks.ms/blogs/lfranco
(Guía de netiquette de los foros)
http://sps.uyssoft.com/Foros%20onli...uette.aspx
FIMARGE, S.A.
Principat d'Andorra

Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en:
https://mvp.support.microsoft.com/profile/Lluis
This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho.
Respuesta Responder a este mensaje
#2 Alex Martínez
30/04/2008 - 16:58 | Informe spam
MsgBox ActiveControl.*****Caprion*****
MsgBox Screen.ActiveControl.****Caprion*****



Pues tienes la memoria un poco "cabreada" XDDDDDDDDDD

Saludos,
Alex


"Lluis Franco" escribió en el mensaje
news:
:-)
Supongo que en Access todavía vale esto:

MsgBox ActiveControl.Caprion

Y si no tal vez con esto:

MsgBox Screen.ActiveControl.Caprion

Te lo digo de memoria, pero va por ahí...
Saludos,

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]
NUG: http://andorradotnet.com
Web: http://sps.uyssoft.com
Blog: http://msmvps.com/blogs/lfranco
Geeks: http://geeks.ms/blogs/lfranco
(Guía de netiquette de los foros)
http://sps.uyssoft.com/Foros%20onli...uette.aspx
FIMARGE, S.A.
Principat d'Andorra

Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en:
https://mvp.support.microsoft.com/profile/Lluis
This posting is provided "AS IS" with no warranties, and confers no
rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho.
Respuesta Responder a este mensaje
#3 Palel
30/04/2008 - 19:22 | Informe spam
pues mucho cuidado con esos cabreos "tecláctiles" que hay quien lo considera falta de respeto je :-)

(os estoy viendo desde el grupo de officexp... aunque supongo que vosotros, ambos dos, estáis en el
de vb)

____________________________________________________________________________________
Saludos, Palel - [MVP Outlook]
http://www.infonegocio.com/luzylar/informatica.htm
ADD-IN para Outlook: http://www.infonegocio.com/luzylar/...utlook.htm
®El Rincón del Navegante - http://www.luzylar.com

*** Consulta en el Foro específico:
Outlook EXPRESS news://msnews.microsoft.com/microso...ookexpress
OUTLOOK de OFFICE news://msnews.microsoft.com/microso...es.outlook
OUTLOOK con EXCHANGE news://msnews.microsoft.com/microso...s.exchange
... hay más, busca el que necesites.
_________________________________________________________________________________________
"Alex Martínez" escribió en el mensaje de noticias
news:
MsgBox ActiveControl.*****Caprion*****
MsgBox Screen.ActiveControl.****Caprion*****



Pues tienes la memoria un poco "cabreada" XDDDDDDDDDD

Saludos,
Alex


"Lluis Franco" escribió en el mensaje
news:
:-)
Supongo que en Access todavía vale esto:

MsgBox ActiveControl.Caprion

Y si no tal vez con esto:

MsgBox Screen.ActiveControl.Caprion

Te lo digo de memoria, pero va por ahí...
Saludos,

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]
NUG: http://andorradotnet.com
Web: http://sps.uyssoft.com
Blog: http://msmvps.com/blogs/lfranco
Geeks: http://geeks.ms/blogs/lfranco
(Guía de netiquette de los foros)
http://sps.uyssoft.com/Foros%20onli...uette.aspx
FIMARGE, S.A.
Principat d'Andorra

Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en:
https://mvp.support.microsoft.com/profile/Lluis
This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun derecho.




Respuesta Responder a este mensaje
#4 Héctor Miguel
30/04/2008 - 21:06 | Informe spam
hola, !

Estoy con VBA en un fichero bajo Office 2003.
Tal vez el codigo es el mismo en VB???

Tengo varios controles OptionButtom y he hecho una programación cuando se hace un click en cada uno.
Lo único que quiero es saber el .Caption del OptionButtom que utilizo, cualquiera que este sea.

Tengo este codigo:
Private Sub OptionButtom1_Click()
MsgBox OptionButtom1.Caption
End Sub

Como puedo hacer una función para que me de el .Caption de cualquier OptionButtom ?...



si lo que buscas es programar un solo evento (o juego de eventos) para un grupo determinado de controles...
necesitas desarrollar un modulo "de clase" para administrar las propiedades, metodos, etc. de dicho grupo

la pagina de Chip Pearson es muy completa en cuanto a la informacion relativa a los modulos de clase...
-> Events And Event Procedures In VBA
http://www.cpearson.com/Excel/Events.aspx
-> revisa +/- a la mitad de la pagina en adelante las siguientes secciones (entre otras):
Declaring WithEvents Variables
Which Is Better, ThisWorkbook Or CExcelEvents?
Multiple Events Being Called
Creating Your Own Events In Class Modules

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#5 fermu
30/04/2008 - 23:55 | Informe spam
Lluis Franco escribió:
:-)
Supongo que en Access todavía vale esto:

MsgBox ActiveControl.Caprion



Me da error de que Lluis es un poquito caprioncete, jajajaja
;-)
Saludos / Fernando M.
Fermu's Website - http://www.fermu.com - http://www.teladearana.es
Registered Linux User #367696 - MS MVP Windows - Shell/User
La caridad bien entendida comienza por uno mismo (by Moni)
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida