Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - AIUTO SU VB SELECT CASE
Forum - Visual Basic 6 - AIUTO SU VB SELECT CASE

Avatar
fala (Normal User)
Newbie


Messaggi: 3
Iscritto: 25/03/2008

Segnala al moderatore
Postato alle 13:03
Martedė, 25/03/2008
Ciao tutti, ho appena iniziato a proggramare in vb, ed oggi dopo aver aperto un programma fatto qualche giorno fa, salvato correttamente, non va pių.
Ecco qui il pezzo di programma che non va pių, se qualcuno individuasse dei problemi lo ringrazio.
Il problema č che il select case non mi da pių il colore da me selezionato.

Codice sorgente - presumibilmente VB.NET
  1. Dim arVal(4)
  2.  
  3. Private Sub Cmdavvio_Click()
  4.  
  5.  
  6.  
  7. Dim i As Integer
  8.  
  9. i = 4
  10.  
  11. Select Case colore
  12.  
  13. Case rosso
  14. Lblcolore.Caption = "rosso"
  15.  
  16. Case verde
  17. Lblcolore.Caption = "verde"
  18.  
  19. Case bianco
  20. Lblcolore.Caption = "bianco"
  21.  
  22. Case blu
  23. Lblcolore.Caption = "blu"
  24.  
  25. Case viola
  26. Lblcolore.Caption = "viola"
  27.  
  28.  
  29. End Select
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36. End Sub
  37.  
  38.  
  39. Private Sub form_load()
  40.  
  41. Lblmessaggio.Caption = "ciao " & Frm1.txtuser.Text & ",benvenuto nel portale,la tua password č " & Frm1.Txtpassword.Text & " " & vbCrLf
  42.  
  43.  
  44. loadcombo
  45.  
  46.  
  47.  
  48.  
  49.  
  50. End Sub
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57. Private Sub loadcombo()
  58.  
  59.  
  60. 'Dim arVal(4)
  61. arVal(0) = "rosso"
  62. arVal(1) = "verde"
  63. arVal(2) = "bianco"
  64. arVal(3) = "blu"
  65. arVal(4) = "viola"
  66.  
  67.  
  68. CboValfor.AddItem arVal(0), 0
  69. CboValfor.AddItem arVal(1), 1
  70. CboValfor.AddItem arVal(2), 2
  71. CboValfor.AddItem arVal(3), 3
  72. CboValfor.AddItem arVal(4), 4
  73.  
  74.  
  75. End Sub


[edit] Usa il tag CODE. [/edit]

Ultima modifica effettuata da Shutdown il 26/03/2008 alle 0:54
PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 15:15
Martedė, 25/03/2008
molti errori.

Codice sorgente - presumibilmente VB.NET
  1. Dim arVal(4)
  2.  
  3. Private Sub Cmdavvio_Click()
  4.  
  5. Dim i As Integer
  6.  
  7. i = 4
  8.  
  9. Select Case colore
  10.  
  11. Case rosso
  12. Lblcolore.Caption = "rosso"
  13.  
  14. Case verde
  15. Lblcolore.Caption = "verde"
  16.  
  17. Case bianco
  18. Lblcolore.Caption = "bianco"
  19.  
  20. Case blu
  21. Lblcolore.Caption = "blu"
  22.  
  23. Case viola
  24. Lblcolore.Caption = "viola"
  25.  
  26. End Select
  27.  
  28. End Sub

ok c'e` una dichiarazione generale ma non specifichi che cosa deve essere Arval.

nella sub. dichiari una i come integer e la metti a 4. perche`? non c'entra assulotamente nulla col programma.
colore e` una variabile non dichiarata e slegata col resto del programma.
rosso verde viola ecc se non le poni tra virgolette sono variabili e non stringhe. altre 5 variabili non dichiarate.

Codice sorgente - presumibilmente VB.NET
  1. Private Sub form_load()
  2.  
  3. Lblmessaggio.Caption = "ciao " & Frm1.txtuser.Text & ",benvenuto nel portale,la tua password č " & Frm1.Txtpassword.Text & " " & vbCrLf
  4.  
  5. loadcombo
  6.  
  7. End Sub

vabbeh che c'e` da dire
frm1 puoi ometterlo perche` e` sempre sottointeso, il vbcrlf e` assolutamente inutile perche` e` una label come lo spazio alla fine ma in fondo e` una tua scritta puoi farla come ti pare.
chiamiamo questo fantomatico loadcombo
Codice sorgente - presumibilmente VB.NET
  1. Private Sub loadcombo()
  2.  
  3. 'Dim arVal(4)
  4. arVal(0) = "rosso"
  5. arVal(1) = "verde"
  6. arVal(2) = "bianco"
  7. arVal(3) = "blu"
  8. arVal(4) = "viola"
  9.  
  10. CboValfor.AddItem arVal(0), 0
  11. CboValfor.AddItem arVal(1), 1
  12. CboValfor.AddItem arVal(2), 2
  13. CboValfor.AddItem arVal(3), 3
  14. CboValfor.AddItem arVal(4), 4
  15.  
  16. End Sub

diamo dei valori a arval (che si scopre essere string) e li aggiungiamo a una combo.
non era piu` facile scrivere
cbovalfor.additem "colore", 0
?
fai un po tu.
cmq il codice e` totalmente slegato da cmdavvio_click. non vedo come abbia potuto anche prima funzionarti..

PM Quote
Avatar
fala (Normal User)
Newbie


Messaggi: 3
Iscritto: 25/03/2008

Segnala al moderatore
Postato alle 16:12
Martedė, 25/03/2008
scusa la mia ignoranza su questo linguaggio ma č il quarto giorno che lo uso,ed arval dove e come dovrei specificarlo?

Ultima modifica effettuata da fala il 25/03/2008 alle 16:13
PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 17:00
Martedė, 25/03/2008
dim arval(0 to 4) as string

PM Quote