n° 217
Settembre 2017
Settembre 26, 2017, 02:35:36 *
Benvenuto! Accedi o registrati.
Hai dimenticato l'e-mail di attivazione?

Accesso con nome utente, password e durata della sessione
Notizia:
 
   Indice   Linux Windows Techassistance Gameassistance videogame hardware Aiuto Ricerca Agenda Downloads Accedi Registrati  


* Messaggi recenti
Messaggi recenti
Pagine: [1]   Vai gių
  Stampa  
Autore Discussione: Ancora su optionbutton  (Letto 1559 volte)
0 utenti e 1 Utente non registrato stanno visualizzando questa discussione.
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« inserita:: Dicembre 08, 2016, 01:49:08 »

Salve, ho letto sul forum delle discussioni non pių recenti che argomentano problemi inerenti gli option button in visual basic 6.
Se posso esprimermi avrei anchio un piccolo problema, ho realizzato un piccolo progetto,
inserendo da prima un form mdi colorato dove mi rappresenta il menų principale, e al suo interno si trovano dei frame, ogni frame racchiude in sč degli optionbutton a gruppi di quattro, quando lancio il progetto con il tasto F5, appare il menų colorato del primo form (il form mdi), passando con il mouse sul primo frame del primo gruppo di optionbutton, io vado a cliccare sul primo optionbutton, questo viene azionato č appare il form associato ad esso, in questo form viene calcolato il risultato di una grandezza usata in elettrotecnica, fin qui tutto č ok. Chiudendo il form tutto č ok ma a differenza del menų principale colorato, perchč rimane ancora visibile il "pallino" sull'optionbutton. Questo discorso č valido anche per tutti gli altri optionbutton. Come devo fare perchč una volta chiusi i form i "pallini neri" degli optionbutton spariscano?

Per farmi aiutare vi posto il codice qui sotto, ma mi piacerebbe mostrarvi anche qualche immagine del lavoro che ho realizzato... Occhiolino

codice:

Private Sub Command2_Click()
'apre il form22 "info"
Form22.Show
End Sub

Private Sub Form_Load()
'controlla il caricamento del form1
WindowState = 2
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option7.Value = False
Option8.Value = False
Option9.Value = False
Option10.Value = False
Option11.Value = False
Option12.Value = False
Option13.Value = False
Option14.Value = False
Option15.Value = False
Option16.Value = False
End Sub
Private Sub Option1_Click()
'visualizza il form2 "potenza elettrica"
Form2.Show
End Sub



Private Sub Option2_Click()
'visualizza il form3 "seconda finestra"
Form3.Show
End Sub
Private Sub Option3_Click()
'visualizza il form4 "terza finestra"
Form4.Show
End Sub
Private Sub Option4_Click()
'visualizza il form5 "quarta finestra"
Form5.Show
End Sub
Private Sub Option5_Click()
'visualizza il form6 "quinta finestra"
Form6.Show
End Sub
Private Sub Option6_Click()
'visualizza il form7 "sesta finestra"
Form7.Show
End Sub
Private Sub Option7_Click()
'visualizza il form8 "settima finestra"
Form8.Show
End Sub
Private Sub Option8_Click()
'visualizza il form9 "ottava finestra"
Form9.Show
End Sub
Private Sub Option9_Click()
'visualizza il form10 "nona finestra"
Form10.Show
End Sub
Private Sub Option10_Click()
'visualizza il form11 "decima finestra"
Form11.Show
End Sub
Private Sub Option11_Click()
'visualizza il form12 "undicesima finestra"
Form12.Show
End Sub
Private Sub Option12_Click()
'visualizza il form13 "dodicesima finestra"
Form13.Show
End Sub
Private Sub Option13_Click()
'visualizza il form14 "tredicesima finestra"
Form14.Show
End Sub
Private Sub Option14_Click()
'visualizza il form15 "quattordicesima finestra"
Form15.Show
End Sub
Private Sub Option15_Click()
'visualizza il form16 "quindicesima finestra"
Form16.Show
End Sub
Private Sub Option16_Click()
'visualizza il form17 "sedicesima finestra"
Form17.Show
End Sub
Private Sub Command1_Click()
'esce dal programma
End
End Sub

Grazie  Sorriso Sorriso :bye:bye
Registrato
oregon
Jr. Member
**

Karma: +22/-6
Scollegato Scollegato

Messaggi: 234


Mostra profilo
« Risposta #1 inserita:: Dicembre 09, 2016, 12:52:23 »

Imposta la Value dell'option button che hai usato a False
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #2 inserita:: Dicembre 09, 2016, 07:14:51 »

Salve oregon,
Volevo chiedere dove devo inserire la Value = false nel mio codice esattamente?
Mi spiego tutto il codice finora postato č presente nel form1, "il menų principale".
La Value impostata su False devo metterla ad ogni istruzione chiamata cosė:

Codice:
Private Sub Option2_Click()
'visualizza il form3 "seconda finestra"
Form3.Show
End Sub

Oppure dove??
Ciao grazie e attendo risposte...
Registrato
oregon
Jr. Member
**

Karma: +22/-6
Scollegato Scollegato

Messaggi: 234


Mostra profilo
« Risposta #3 inserita:: Dicembre 09, 2016, 07:18:36 »

Mettili tutti nell'evento Activate del form dove sono le option

Option1.Value = False
Option2.Value = False
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #4 inserita:: Dicembre 09, 2016, 07:40:22 »

Ciao oregon,
Mettili tutti nell'evento Activate del form dove sono le option

Option1.Value = False
Option2.Value = False

Ora guarda qui sotto:

Codice:
Private Sub Form_Load()
'controlla il caricamento del form1
WindowState = 2
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Option7.Value = False
Option8.Value = False
Option9.Value = False
Option10.Value = False
Option11.Value = False
Option12.Value = False
Option13.Value = False
Option14.Value = False
Option15.Value = False
Option16.Value = False
End Sub
Private Sub Option1_Click()
'visualizza il form2 "potenza elettrica"
Form2.Show
End Sub

Come vedi sopra nel codice del form1 quello principale ci sono giā le option.Value = False
l'evento Activate del form non c'č nel mio codice come si aggiunge?
Registrato
oregon
Jr. Member
**

Karma: +22/-6
Scollegato Scollegato

Messaggi: 234


Mostra profilo
« Risposta #5 inserita:: Dicembre 09, 2016, 09:51:47 »

Dovresti leggere qualche libro di base ...

Cerca nell'elenco degli eventi del form ... c'č la Activate
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #6 inserita:: Gennaio 08, 2017, 11:00:47 »

Dovresti leggere qualche libro di base ...

Cerca nell'elenco degli eventi del form ... c'č la Activate

 Che?!?
Forse non mi sono spiegato, per chiarire le idee a tutti credo che vi posterō i links
del mio programmino...

link1
https://www.dropbox.com/s/dystl84ei0oo4h9/Clipboard_0ne.jpg?dl=0

link2
https://www.dropbox.com/s/pk9fdivdl1f178q/Clipboard_Two.jpg?dl=0

link3
https://www.dropbox.com/s/dmigf6osenw57lv/Clipboard_Three.jpg?dl=0

link4
https://www.dropbox.com/s/07e2ic5e98viwj2/Clipboard_Four.jpg?dl=0

link5
https://www.dropbox.com/s/94paux3kiig3asz/Clipboard_Five.jpg?dl=0
Registrato
oregon
Jr. Member
**

Karma: +22/-6
Scollegato Scollegato

Messaggi: 234


Mostra profilo
« Risposta #7 inserita:: Gennaio 08, 2017, 11:23:02 »

Cosė non hai chiarito ... posta lo zip del progetto vb6
Registrato
Pagine: [1]   Vai su
  Stampa  
 
Vai a:  

Copyright © 2017 Edizioni Master SpA. p.iva : 02105820787

Tutti i diritti di proprietà letteraria e artistica riservati. - Privacy



powered by Simple Machines