Oppure

Loading
25/06/08 18:19
super rambo
salve, ho sei label e vorrei fare che se tre di queste hanno lo stesso contenuto (caption) esce un msgbox. Volevo sapere se devo per forza mettere tutte le combinazioni in un timer così:
If Label1.Caption = Label2.Caption And Label3.Caption Then
msgbox "ciao"
ecc...

o se c'e un modo più sbrigativo.. grazie!!
aaa
26/06/08 7:16
GrG
penso che bisogna fare come dici tu, utilizzando "AND"...
aaa
26/06/08 7:16
antometal
nn è tra le cose + semplici
innanzittutto devi utilizzare un vettore e tanti cicli annidati quante sono le ugualienze che devi ottenere(nel tuo caso 3), ti consiglio dei while

a questo punto devi confrontare tt gli elementi del vettore
aaa
26/06/08 7:18
antometal
cè anche un altro modo
conti quante volte è uscito lo stesso valore
guarda qui pierotofy.it/pages/extras/forum/6/34858-conteggio_risultati/
aaa
26/06/08 10:44
super rambo
ho provato a fare così guardando quel codice:
Dim i As Integer
Dim j As Integer
Dim pos As Integer
Dim b As Boolean
Dim labe1 As String
labe1 = Label1.Caption And Label2.Caption And Label3.Caption And Label4.Caption And Label5.Caption And Label6.Caption

Dim Num() As Integer
Dim Cont() As cont_rec

    For i = 0 To 10
        ReDim Preserve Num(i)
        Num(i) = Fix(labe1)
        Print Num(i) & " " & i
    Next i
    
ReDim Cont(0)
    For i = 0 To UBound(Num)
        
        b = True
            For j = 0 To pos
                    If Num(i) = Cont(j).n Then
                        Cont(j).c = Cont(j).c + 1
                        b = False
                    End If
            Next j
            
            If b = True Then
                pos = UBound(Cont) + 1
                ReDim Preserve Cont(pos)
                Cont(pos).n = Num(i)
                Cont(pos).c = 1
            End If
    Next i
    Print                           'riga vuota
    
    For i = 0 To UBound(Cont)
        Print Cont(i).n & "x" & Cont(i).c    'stampa il numero e quante volte esiste
    Next i

però mi da sempre numeri a caso e poi esce 0x11 cosa sbaglio??
aaa
26/06/08 11:05
gantonio
Ma perche' non usi gli array di controlli per le tue label?

(nel codice che hai mostrato ci sono delle righe senza senso ...)
aaa
26/06/08 11:11
super rambo
scusa potresti spiegarti meglio?? il codice lo ho preso da quel link..
aaa
26/06/08 11:23
gantonio
Non so da dove l'hai preso ma alcune righe non hanno senso ...

Comunque, non mi posso spiegare meglio ... ti rifaccio la domanda ... perche' non utilizzi un array di label invece di label singole (label1, label2 ...)?
aaa