+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 2 su 2

Recuperare valori da una contextmenu

  1. #1
    tralux non è in linea Scolaretto
    Non riesco a capire come recuperare un valore selezionato nella contextmenu assegnato ad un textbox e riportarno nella stessa textbox collegata.

    procedura che chiama il contextmenu
    Private Sub txt_esame_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles txt_esame.MouseDown
            'intercetto evento del tasto destro del mouse sul campo
            If e.Button = MouseButtons.Right And cbx_area.Text <> "" Then
                txt_esame.ContextMenu.Show(txt_esame, New Point(8, 32))
    'righa di codice dove recupero il valore 
    'i 3 ??? è il punto in cui non riesco a recuperare indice del valore selezionato sulla contextmenu
                txt_esame.ContextMenu.MenuItems.Item(???).Text()
    'oppure
                txt_esame.Text = cxm_esame.MenuItems.Item(???).Text
            End If
        End Sub
    
    caricamento contextmenu (funziona)
        Private Sub cxm_esame_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles cxm_esame.Popup
            Dim sqlEsami As String, datasetlike As New DataSet, retAL As Integer, indiceAL As Integer
            Dim tmp_dato As String
    
            'carico i dati sul menu contestuale
            cxm_esame.MenuItems.Clear()
            If cxm_esame.SourceControl Is txt_esame Then
                'carico i dati nella lista e la visualizzo
                datasetlike.Clear()
                tmp_dato = "%" & txt_esame.Text & "%"
                '1 cerso su tabella alias (controllo alias)  
                sqlEsami = ""
                sqlEsami = "SELECT AliasEsami.Alias FROM AliasEsami " _
                & "WHERE (((AliasEsami.Alias) Like """ & tmp_dato & """ ) AND ((AliasEsami.Area)=""" & cbx_area.Text & """));"
    
                gCommand.CommandType = CommandType.Text
                gCommand.CommandText = sqlEsami
                gAdapter.SelectCommand = gCommand
                retAL = gAdapter.Fill(datasetlike, "AliasEsami")
    
                For indiceAL = 0 To retAL - 1
                    cxm_esame.MenuItems.Add(datasetlike.Tables("AliasEsami").Rows(indiceAL).Item("Alias").ToString)
                Next
    
                '2 cerco su tabella Esami (controllo esami)
                sqlEsami = ""
                sqlEsami = "SELECT Esami.Nome FROM Esami " _
                & "WHERE (((Esami.Nome) Like """ & tmp_dato & """) AND ((Esami.Area)=""" & cbx_area.Text & """));"
    
                gCommand.CommandType = CommandType.Text
                gCommand.CommandText = sqlEsami
                gAdapter.SelectCommand = gCommand
                retAL = gAdapter.Fill(datasetlike, "Esami")
    
                For indiceAL = 0 To retAL - 1
                    cxm_esame.MenuItems.Add(datasetlike.Tables("Esami").Rows(indiceAL).Item("Nome").ToString)
                Next
            End If
        End Sub
    
    Arrivo a visualizzare i dati dinamici nella contextmenu del campo però non riesco a recuperare il valore selezionato sulla contextmenu e riportaro sul campo.
    Come faccio ?

  2. #2
    tralux non è in linea Scolaretto
    Qualche idea ?

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Recuperare i valori di una combobox a più campi
    Da UGoldrake nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 03-03-2016, 21:57
  2. Recuperare valori tramite CheckBox
    Da Lorenzomakeadifference nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 10-11-2010, 19:45
  3. Recuperare più valori da una Gridview
    Da sanfra nel forum ASP 3, ASP .Net
    Risposte: 2
    Ultimo Post: 17-06-2008, 07:03
  4. [ACCESS] Recuperare valori di una listBox
    Da Gordian nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 31-05-2006, 13:31
  5. recuperare valori da pagina web
    Da trader nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 24-08-2004, 19:29