Hola chicos mi consulta va con respecto a que yo necesito sacar el texto selccionado de un MenuButton..
Les dejo un ejemplo de codigo para ver si me pueden dar una mano..

Public sub CreoMenuButton()

  TolButBuscar = New MenuButton(TabStripVentas) As "ButBuscar" <---Creo el menubutton
  With TolButBuscar
    .X = 320
    .Y = 5
    .Height = 30
    .Width = 40
    .Picture = Picture[Application.Path & "/edit-find.png"]
    .Tooltip = "Buscar Clientes..."
    .Menu = "MenuInicial"
    .Border = False
  End With

End sub

Public sub CreoMenu()

''Relleno el Menu del MenuButton

 hMenu = New Menu(Me) As "MenuInicial" '' Crea el menu inicial

 For R = 0 To hRes.Max
  
    NuevoItemMenu = New Menu(hMenu) ''<--Creo el menu para el Toolbutton
    NuevoItemMenu.Name = strNomMenu[R, 0] & " / " & strNomMenu[R, 1]
    NuevoItemMenu.Text = strNomMenu[R, 0] & " / " & strNomMenu[R, 1]
    
  Next

end sub

Public Sub ButBuscar_MouseDown()

  
  IdCliente = TolButBuscar.Text  <--- Texto del menu que necesito extraer

  

End

El array hRes de que tipo es y donde está inicializado ?
strNomMenu que es ?

vuott escribió: [Ver mensaje]

El array hRes de que tipo es y donde está inicializado ?

Si es un array de base de datos..
O Sea lleno el menu del MenuButton y lo que necestio es extraer el Texto Clickeado del este control..

vuott escribió: [Ver mensaje]

El array hRes de que tipo es y donde está inicializado ?
strNomMenu que es ?

Es una variable array string que despues las recorro con un For y los datos cargo en el menu.

Vuelvo a explicar que lo que necesito, es obtener el texto del menú desplegable del control MenuButton.

¿Para qué quieres el texto? ¿Para ejecutar la acción asociada? Para eso tienes la propiedad Action de cada menú y el evento Action_Activate del Form...

===================
No podemos regresar

No hay una raya del tu codigo que valoriza la propiedad .Text del MenuButton.

Creo que tu tienes que actuar con el Menu creando un Grupo para los sus Eventos.

Por ejemplo:


y luego usando el Evento _Click() de la Clase Menu con la palabra llave "Last":



Ejemplo:

vuott escribió: [Ver mensaje]

No hay una raya del tu codigo que valoriza la propiedad .Text del MenuButton.

Creo que tu tienes que actuar con el Menu creando un Grupo para los sus Eventos.

Por ejemplo:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

NuevoItemMenu = New Menu(hMenu) As "Nuevo"

y luego usando el Evento _Click() de la Clase Menu con la palabra llave "Last":

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Sub Nuevo_Click()
  
  Print Last.text
  
End

Ejemplo:

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public Sub Form_Open()

  Dim MenuButton1 As MenuButton
  Dim hMenu As Menu
  Dim NuevoItemMenu As Menu
  Dim r As Integer
  Dim hRes As String[] = ["aaa", "bbb", "ccc"]

  With MenuButton1 = New MenuButton(TabStrip1)
    .X = 320
    .Y = 5
    .Height = 30
    .Width = 40
    .Menu = "MenuInicial"
  End With

' Relleno el Menu del MenuButton
    hMenu = New Menu(Me) As "MenuInicial" '' Crea el menu inicial

    For r = 0 To hRes.Max
      NuevoItemMenu = New Menu(hMenu) As "Nuevo"
      NuevoItemMenu.Text = hRes[r]
    Next

End


Public Sub Nuevo_Click()
  
  Print Last.text
  
End

Gracias Vout y Shordi por su colaboración.
Con el método Last.Text pude obtener el texto que necesitaba. No tenia en cuenta este método y no sabia si implementación..