Comunidad Gambas-es

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 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..