Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2006
    Messaggi
    115

    [VB6] Selezionando elemento della listbox cambia valori label

    Ciao a tutti... ho un problemuccio più che altro pratico. Ho una listbox che ha contenuto dinamico (dipende da cosa c'è installato sul PC in uso). Dovrei fare in modo che quando l'utente seleziona uno degli elementi della listbox, in delle label sempre dello stesso form vengano i dettagli di quell'elemento (che sono immagazzinati in dei file di testo).
    Dovrei dirgli tipo:
    Se il valore stringa dell'elemento selezionato della listbox è "Programma pincopalla" allora nelle lbl1, lbl2, lbl3 scrivici questo, quest'altro e questo ancora.

    Come si fa a vedere qual è l'elemento selezionato? E per fare il resto come posso fare? Thanks.

  2. #2
    Utente di HTML.it L'avatar di LMondi
    Registrato dal
    Sep 2004
    Messaggi
    1,291
    Ciao Harry,
    ti ho predisposto un esempio che non risolve il problema, peraltro da te solo accennato, ma che ti indica il modo di procedere:
    Inserisci in una Frm una ListBox, due CmdButton e due Txt:

    codice:
    Option Explicit
    '-------------------------------------------------------------------
    Private Sub Command1_Click()
        
        If Len(Text1.Text) > 0 Then List1.AddItem Text1.Text & ".exe"
        Text1.SetFocus
    
    End Sub
    '-------------------------------------------------------------------
    Private Sub Command2_Click()
        
        Dim i As Integer
        Dim vCompara As Variant
        
        For i = 0 To List1.ListCount - 1
        ' se la voce di Lbox è selezionata effettua il confronto:
            If List1.Selected(i) Then vCompara = StrComp(List1.Text, ((Text1.Text) & ".exe"), vbTextCompare)
        ' se il confronto dà come risultato "uguale (0)" porta la selezione nella Txt2:
            If vCompara = 0 And List1.Selected(i) Then Text2.Text = List1.Text
        ' se il confronto dà come risultato "diverso" svuota la Txt2:
            If vCompara <> 0 And List1.Selected(i) Then Text2.Text = ""
        ' se non è avvenuta una selezione svuota la Txt2:
            If Not List1.Selected(i) Then Text2.Text = ""
        Next i
    
    End Sub
    Ciao.
    LM

  3. #3
    Utente di HTML.it
    Registrato dal
    Jul 2006
    Messaggi
    115
    Penso di intendere una cosa molto più semplice... per esempio, come faccio ad indicare nel codice "l'elemento della lista selezionato"?
    Vorrei fare una cosa del tipo:
    codice:
    If "il testo con cui compare l'elemento selezionato nella lista" = "nomeprogramma indicato da me" then
    lbldettagli= "questo è un programma molto bello"

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.