Visualizzazione dei risultati da 1 a 6 su 6
  1. #1

    [VB6] Controllo del pulsante premuto

    Vorrei una cosa del genere

    Ho 4 pulsanti

    Ad ognuno associato la stessa funzione


    Premendo uno del pulsanti mi devi dire quello che ho premuto

    Ad esempio, premendo il pulsante 2

    msgbox "Hai premuto il pulsante 2"

    Dove faccio a controllare quale pulsante ho premuto

    Mi date la stringa????

    Ciao e grazieeeeeeee

  2. #2
    Utente di HTML.it L'avatar di hkproj
    Registrato dal
    Jul 2006
    Messaggi
    250
    ma i quattro pulsanti hanno anche gli stessi nomi? cioè hai una matrice di controlli?
    se no, allora la rirposta l'hai già scritta tu:
    Ad esempio, premendo il pulsante 2

    msgbox "Hai premuto il pulsante 2"
    se si allora devi usare il valore del parametreo index degli eventi

  3. #3
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480

    Re: [VB6] Controllo del pulsante premuto

    Originariamente inviato da marco.santilli

    Mi date la stringa????

    Ciao e grazieeeeeeee
    Oltre a spiegare meglio quello che vuoi, ci spieghi anche cosa e' per te la "stringa" che chiedi?

  4. #4

    In pratica

    Ho quattro pulsanti

    Command1
    Command2
    Command3
    Command4

    Poi ho un function, composto da molte righe di codice, e varia una sola riga per ogni pulsante

    Quindi volevo associare ad ogni pulsanti la function e poi in base al pulsante premuto, facevo variare solo la riga che mi interessava

  5. #5
    Utente di HTML.it L'avatar di Boolean
    Registrato dal
    Oct 2005
    Messaggi
    758
    aggiungi alla funzione un parametro, che possa identificare il pulsante, e all'interno della funzione lo controlli per decider quale pulsante è stato premuto, in pratica:

    codice:
    Function TuaFunzione (Parametro1, Parametro2, Pulsante As CommandButton) As String / Integer / Long / etc..
    
        Select Case Pulsante.Name
    
            Case "Pulsante1"
                [codice da eseguire]
    
            Case "Pulsante2"
                [codice da eseguire]
    
            Case "Pulsante3"
                [codice da eseguire]
    
            Case "Pulsante4"
                [codice da eseguire]
    
        End Select
    
    End Function
    negli eventi click dei vari pulsanti quindi:

    codice:
    Private Sub Pulsante1_Click()
    A = TuaFunzione 1, 2, Pulsante1
    End Sub
    
    Private Sub Pulsante2_Click()
    A = TuaFunzione 1, 2, Pulsante2
    End Sub
    
    etc...
    ancora meglio se i pulsanti fanno parte di una matrice di controlli, perchè ti basterebbe passare solo l'indice.

    Boolean

  6. #6

    Ok

    Ok grazieeeeeeeeeeeeeeee

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.