Visual Basic 6 - msgbox in caso di contenuto di label uguale

Forum - Visual Basic 6 - msgbox in caso di contenuto di label uguale

Pagine: [ 1 2 ]

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 20:19
Mercoledì, 25/06/2008

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ì:

Codice sorgente - presumibilmente Visual Basic 6

If Label1.Caption = Label2.Caption And Label3.Caption Then
msgbox "ciao"
ecc...

o se c'e un modo più sbrigativo.. grazie!!

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 9:16
Giovedì, 26/06/2008

penso che bisogna fare come dici tu, utilizzando "AND"...

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 9:16
Giovedì, 26/06/2008

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

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 9:18
Giovedì, 26/06/2008

cè anche un altro modo
conti quante volte è uscito lo stesso valore
guarda qui http://www.pierotofy.it/pages/extras/forum/6/34858-contegg ...

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 12:44
Giovedì, 26/06/2008

ho provato a fare così guardando quel codice:

Codice sorgente - presumibilmente VB.NET

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??

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 13:05
Giovedì, 26/06/2008

Ma perche' non usi gli array di controlli per le tue label?

(nel codice che hai mostrato ci sono delle righe senza senso ...)

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 13:11
Giovedì, 26/06/2008

scusa potresti spiegarti meglio?? il codice lo ho preso da quel link..

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 13:23
Giovedì, 26/06/2008

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 ...)?

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 15:02
Giovedì, 26/06/2008

allora il codice lo ho preso da qui http://www.pierotofy.it/pages/extras/forum/6/34858-contegg ...
potrei anche utilizzare un array ma poi in ogni label deve apparire un numero diverso e se ce ne sono tre uguali deve comparire un messaggio... come dovrei fare???

Pagine: [ 1 2 ]