Select case quesiti

Question

Nrl caso di 1 evento

accadono uno o più eventi

Esempio alfanumerico

caso A

allora 1 e 2

caso B

allora 1,2,3,4

caso C

allora 3

Come si procede in select case nel caso di più eventi che accadono su un input

Quale è la differenza tra una Function ed una una routine Sub

Quando usare select case e quando usare if then else ?

Answer 1

Dipende dal conteso in cui ti trovi. Io ho ipotizzato che sei su un evento di una form e che tutti i campi sono controlli della form stessa.

Dacci qualche altra indicazione.

Mimmo

Answer 2

Va scritta come funzione o come routine ?poichè non vedo neanche dim città as string, dim via as string  e e dim Quartiere as string, , credo sia incompleto o sbaglio ?

Answer 3

Ciao, ad esempio:

    Select Case cognome

           Case Is = "Tizio"

                Citta = "MIlano"

                Via = "Garibaldi"

                Quartiere = "Comasina"

           Case Is = "Caio"

                Citta = "Roma"

                Via = "Mazzini"

                Quartiere = "Prenestino"

           Case Is = "Sempronio"

                Citta = "Napoli"

                Via = "Cavour"

                Quartiere = "Avvocata"

    End Select

Mimmo

Answer 4

Mi puoi fare un esempio con select case in cui non varia un solo campo ma più campi, forse ho mal formulato la domanda

Al cambiare di un campo cambiano più campi

Esempio

case campo cognome "Tizio"

campo città Milano   campo via Garibaldi  campo quartiere Comasina

case campo cognome "Caio"

campo città Roma   campo via Mazzini campo quartiere Prenestino

case campo cognome  "Sempronio"

campo città Napoli   campo via Cavour   quartiere Avvocata

ecc.

Answer 5

Ciao Mescaleros,

da qui: https://msdn.microsoft.com/it-it/library/cy37t14y.aspx

Select Case  Consente di eseguire uno dei vari gruppi di istruzioni disponibili in base al valore di un'espressione.    

Come vedi parla di gruppi di istruzioni, dunque per ogni caso puoi eseguire una o più istruzioni diverse.

Una Function restituisce un valore, la Sub non restituisce nulla:

Es:

Dim a as integr

Dim b as integer

a=10

b = 20

Public function Somma( a as integer, b as integer ) as integer

    Somma = a+b

end function

Dim int x

x= Somma(a+b)

Somma restituisce un intero e per farlo assegni al nome della funzione il valore che vuoi che restituisca.

Dim a as integr

Dim b as integer

a=10

b = 20

Public Sub Somma( a as integer, b as integer, ByRef risultato as integer ) 

    risultato= a+b

end sub

MsgBox ("Il risutato è :" & risultato )

Nella sub per ottenere un risultato devi passare un parametro By Ref, o utilizzare una variabile globale

Select case è comodo quando i casi sono più di 2, mettere una serie di if then elseif ....  rende il codice più complicato da leggere e da manutenere.