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

Controllo Textbox per numeri uguali

  1. #1
    L'avatar di sistemista
    sistemista non è in linea Topo di biblioteca
    Ho 6 textbox in cui devono essere inseriti in ogni textbox numeri tra 1 e 90,devo controllare che nelle textbox
    non devono esistere numeri uguali.
    Potrei usare dei cicli for nidificati ma non è elegante,potrebbe essere adatta la funzione "List(Of String)"
    ma non ho dimestichezza con questa funzione.
    Questo il codice,ma non saprei come confrontare se esistono numeri uguali nelle textbox.
    Dim list As New List(Of String)
                list.Add(TextBox1.Text)
                list.Add(TextBox2.Text)
                list.Add(TextBox3.Text)
                list.Add(TextBox4.Text)
                list.Add(TextBox5.Text)
                list.Add(TextBox6.Text)
    
    ℹ️ Leggi di più su sistemista ...

  2. #2
    keiji68 non è in linea Scolaretto
    Un alternativa potrebbe essere memorizzare i numeri che vengono inseriti in ogni textbox e fare un controllo che quel/quei numeri non vengano inseriti nuovamente.
    potrebbe essere un idea.
    ciao
    ℹ️ Leggi di più su keiji68 ...

  3. #3
    L'avatar di sistemista
    sistemista non è in linea Topo di biblioteca
    Ho risolto in questo modo(semprechè non vi siano metodi migliori)
    Dim list As New List(Of String)
                list.Add(TextBox1.Text)    ' aggiungo i valori delle TextBox alla lista
                list.Add(TextBox2.Text)
                list.Add(TextBox3.Text)
                list.Add(TextBox4.Text)
                list.Add(TextBox5.Text)
                list.Add(TextBox6.Text)
                list.Sort()                                ' ordino la lista
                For i = 1 To 6 - 1                      ' inizio il ciclo per 6 elementi -1
                    If list(+1) = list(i) Then          ' si commenta da solo
                        MessageBox.Show("Numero uguale" & list(i))
                    End If
                Next
            End If
    
    Naturalmente se ci sono più numeri uguali viene visualizzato il messaggio x volte per quanti numeri uguali ci sono dentro la lista.
    Se non esiste metodo migliore,problema risolto.
    ℹ️ Leggi di più su sistemista ...

  4. #4
    L'avatar di Shinji
    Shinji non è in linea Scolaretto
    Ciao, sicuramente ci sono molte soluzioni al tuo problema, questa potrebbe essere un alternativa.

    Dim list As New List(Of String)
    list.Add(TextBox1.Text)
    list.Add(TextBox2.Text)
    list.Add(TextBox3.Text)
    list.Add(TextBox4.Text)
    list.Add(TextBox5.Text)
    list.Add(TextBox6.Text)
    
    Dim query = _
            From list2 In list _
            Group By list2.ToString.Trim _
            Into Count() _
            Where Count > 1
    
    For Each list2 In query
        MessageBox.Show(list2.Trim & vbNewLine & list2.Count)
    Next
    
    ℹ️ Leggi di più su Shinji ...

  5. #5
    L'avatar di sistemista
    sistemista non è in linea Topo di biblioteca
    Decisamente meglio del mio accrocchio.
    Thanks.
    ℹ️ Leggi di più su sistemista ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 12
    Ultimo Post: 27-11-2015, 21:49
  2. numeri uguali => grassetto o evidenzia
    Da erikone nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 05-02-2013, 20:07
  3. Risposte: 10
    Ultimo Post: 17-12-2012, 20:08
  4. Controllo su sub-cartelle uguali
    Da andreino nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 25-05-2010, 16:16
  5. controllo x campi uguali su fogli diversi
    Da ELVIO nel forum Microsoft Word
    Risposte: 13
    Ultimo Post: 08-04-2007, 10:18