+ Rispondi al Thread
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 12

Discussione: Selezionare dei valori aventi lo stesso indice in due listbox differenti

  1. #1
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Luogo
    Italy
    Post
    522

    Smile Selezionare dei valori aventi lo stesso indice in due listbox differenti

    Buongiorno a tutti, ho un piccolo problema, ho bisogno di selezionare un valore presente in una list box e contemporaneamente selezionarne un altro presente nella listbox2 avente lo stesso indice.

    Es:

    Nella listbox1 ho una lista di indirizzi IP mentre nella listbox 2 ho delle date... ho bisogno che alla selezione dell'indirizzo IP in cima alla lista si selezioni la data in cima alla lista... se seleziono il secondo ip nella listbox1 automaticamente venga selezionata la data in 2° posizione nella listbox2 e cosi' via... è fattibile ?
    Federico
    JQooBe Fouder

  2. #2
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,858
    Blogs
    5
    Con alcune precauzioni nel codice è fattibile. Ma perché crearsi questi problemi? Usa una Listview e metti le colonne che ti servono.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  3. #3
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Luogo
    Italy
    Post
    522
    Ciao Antonio, ci stavo pensando... sto provando a popolare 3 colonne facendo caricare i dati da 3 file differenti...
    Federico
    JQooBe Fouder

  4. #4
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Luogo
    Italy
    Post
    522

    Smile

    Non riesco a caricare nelle singole colonne i dati prelevati da 3 file differenti... qualcuno mi sa indicare la soluzione al quesito postato inizialmente?
    Federico
    JQooBe Fouder

  5. #5
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,858
    Blogs
    5
    Secondo me dovresti usare la Listview e magari chiedere come superare il problema che incontri nel caricamento.

    La gestione delle due Listbox "sincronizzate" potrebbe essere una inutile perdita di tempo.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  6. #6
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Luogo
    Italy
    Post
    522

    Unhappy

    ok

    ho creato un routine che carica da tre file separati determinati dati e l'ho chiamata ListviewLoad

    che preleva i dati da ogni singola colonna da tre file differenti save.dtx, save2.dtx, save3.dtx
    codice:
     
    
    Private Sub ListviewLoad(ByVal FileName As String, ByVal FileName2 As String, ByVal FileName3 As String, lv As ListView)
            Dim itmX As ListItem
            Dim clmX As ColumnHeader
            Set clmX = lv.ColumnHeaders.add(, , "IP", ListView1.Width / 2)
            Set clmX = ListView1.ColumnHeaders.add(, , "NOME", ListView1.Width / 2)
            Set clmX = ListView1.ColumnHeaders.add(, , "DATA", ListView1.Width / 2)
            ListView1.BorderStyle = ccFixedSingle
            ListView1.View = lvwReport
            ListView1.GridLines = True
            ListView1.FullRowSelect = True
    
    
    Dim fl As String
    Dim gh As Integer
    Dim el As String
    Dim i As Integer
    
    Dim fl2 As String
    Dim gh2 As Integer
    Dim el2 As String
    
    Dim fl3 As String
    Dim gh3 As Integer
    Dim el3 As String
    Dim ia As Integer
    Dim ib As Integer
    Dim ic As Integer
        If FileLen(App.path & "\" & FileName) And FileLen(App.path & "\" & FileName2) And FileLen(App.path & "\" & FileName3) Then
            gh = FreeFile
            gh2 = FreeFile
            gh3 = FreeFile
            
            Open App.path & "\" & FileName For Input As #gh
           
            Do While Not EOF(gh)
                Line Input #gh, fl
                el = Trim$(fl)
            If Len(fl) Then
             For ia = 1 To 1 'intDiDeviceNum
           
            Set itmX = ListView1.ListItems.add(ia, , fl)
           
          
           
            Next ia
    
                End If
            Loop
            Close #gh
            
            Open App.path & "\" & FileName2 For Input As #gh2
            Do While Not EOF(gh2)
                Line Input #gh2, fl2
                el2 = Trim$(fl2)
            If Len(fl2) Then
             For ib = 1 To 1
            ListView1.ListItems.add(ib).SubItems(1) = fl2
            Next ib
                End If
            Loop
            Close #gh2
            
            Open App.path & "\" & FileName3 For Input As #gh3
            Do While Not EOF(gh3)
                Line Input #gh3, fl3
                el3 = Trim$(fl3)
            If Len(fl3) Then
             For ic = 1 To 1
            ListView1.ListItems.add(ic).SubItems(2) = fl3
            Next ic
                End If
            Loop
            Close #gh3
       End If
       End Sub
    la richiamo in questo modo :

    codice:
    Call ListviewLoad("save.dtx", "save2.dtx", "save3.dtx", ListView1)

    La listview viene popolata ma in maniera errata:

    nelle tre colonne i dati non vengono caricati correttamente...

    Esempio:

    IP NOME DATA
    31-10-2016
    29-10-2016
    28-10-2016
    PC FEDERICO
    192.168.2.10
    192.168.2.20
    192.168.2.30


    Non capisco con quale logica sta inserendo i dati.....
    Federico
    JQooBe Fouder

  7. #7
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,858
    Blogs
    5
    Apri i tre file contemporaneamente e leggi la riga da ogni file. Poi fai l'Add del primo dato e usa itmX per aggiungere i SubItems con gli altri due dati.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  8. #8
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Luogo
    Italy
    Post
    522
    Ciao Antonio sto provando a mettere i dati di 3 file in uno unico componendo il file nel seguente modo:

    Es: FIle save.dtx con all'interno

    192.168.2.1 PC-FEDE 28-10-2016
    192.168.2.10 PC MARCO 29-10-2016


    ora ho bisogno di estrapolare da ogni riga i 3 dati

    stavo pensando una cosa del genere :

    codice:
    Dim strFullName As String = "192.168.2.1 PC-FEDE 28-10-2016"
    Dim strLastName As String
    
    strLastName = Mid( StrFullName, Instr(strFullName, " "))
    in questa maniera però mi recupera tutta la stringa che è a seguire dopo il primo spazio

    come faccio a recuperare i tre valori separati ? assegnandoli a 3 variabili differenti Es:

    Valore A=192.168.2.1
    Valore B= PC-FEDE
    Valore C= 28-10-2016

    facendo cosi potrei usare un solo file e navigarmi le righe scomponendo la stringa.... qualche consiglio ?
    Federico
    JQooBe Fouder

  9. #9
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,858
    Blogs
    5
    Componi il file con una riga per dato

    192.168.2.1
    PC-FEDE
    28-10-2016
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  10. #10
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Luogo
    Italy
    Post
    522
    Ciao Antonio ho risolto cosi: ho inserito in un unico file tutti i valori interessati separati da una virgola, mi sono recuperato i singoli valori scomponendo la stringa e riempiendo contemporaneamente la listview.

    codice:
      Private Sub ListviewLoad(ByVal FileName As String, lv As ListView)
            Dim itmX As ListItem
            Dim clmX As ColumnHeader
            
            Set clmX = lv.ColumnHeaders.add(, , "IP", ListView1.Width / 2)
            Set clmX = ListView1.ColumnHeaders.add(, , "NOME", ListView1.Width / 2)
            Set clmX = ListView1.ColumnHeaders.add(, , "DATA", ListView1.Width / 2)
            ListView1.BorderStyle = ccFixedSingle
            ListView1.View = lvwReport
            ListView1.GridLines = True
            ListView1.FullRowSelect = True
    
    
    Dim fl As String
    Dim gh As Integer
    Dim el As String
    Dim i As Integer
    Dim Data As String
    
    
     If FileLen(App.path & "\" & FileName) Then
     gh = FreeFile
     Open App.path & "\" & FileName For Input As #gh
     Do While Not EOF(gh)
     Line Input #gh, fl
     el = Trim$(fl)
     
     If Len(fl) Then
     For i = 1 To 1 'intDiDeviceNum
          
        Dim strInputString      As String
        Dim strFilterText       As String
        Dim astrSplitItems()    As String
        Dim astrFilteredItems() As String
        Dim strFilteredString   As String
        Dim intX                As Integer
        
        Dim Str1 As String
        Dim Str2 As String
        Dim Str3 As String
        
        
        strInputString = fl
        strFilterText = ","
        astrSplitItems = Split(strInputString, ",")
        Str1 = astrSplitItems(0)
        Str2 = astrSplitItems(1)
        Str3 = astrSplitItems(2)
        Set itmX = ListView1.ListItems.add(i, , Str1)
        itmX.SubItems(1) = Str2
        itmX.SubItems(2) = Str3
        
    
       
        
        
        ListView1.ColumnHeaders(1).Width = 1400
         ListView1.ColumnHeaders(2).Width = 1540
        ListView1.ColumnHeaders(3).Width = 1200
        Next i
        End If
        Loop
        Close #gh
        End If
       
     End Sub

    funziona tutto perfettamente
    Federico
    JQooBe Fouder

+ Rispondi al Thread
Pagina 1 di 2 12 ultimoultimo

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi