Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicitā e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Come impostare bene le option button in un progetto con formMdi e form normali???
Forum - Visual Basic 6 - Come impostare bene le option button in un progetto con formMdi e form normali???

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
SteveJ.JackT. (Normal User)
Newbie


Messaggi: 19
Iscritto: 13/12/2016

Segnala al moderatore
Postato alle 0:18
Mercoledė, 14/12/2016
Salve spero di aver dato il giusto titolo al mio quesito, che vorrei sottoporvi....ma prima vorrei chiedere sč posso inviare per dare maggior chiarezza al problema, oltre al codice, qualche screenshot del mio progetto in Visual Basic 6, in formato (.zip).

Detto questo descrivo il mio problema:
Ho questo progetto con un form primario normale che fā da "menų principale", gli ho dato un colore di background, una Label dal titolo:"Menų principale", e dopo ho disegnato ben 5 frame, di cui 4 (quattro) hanno al loro interno ciascuno, 4(quattro) optionbutton, ogniuno di questi optionbutton prevedono, all'evento "click" del mouse, il caricamento (uno alla volta, non tutti insieme), di un form con all'interno (esempio: formula della legge di Joule, formula della tensione elettrica, ecc...).

Ogni form hanno un comandbutton, per chiudere il form.
Fatto questo ho messo nel form primario anche due comandbutton, uno nominato "info", l'altro "esci"

Detto ciō pongo la seguente domanda:
Come posso evitare che una volta effettuato l'evento "click" del mouse sui diversi optionbutton, e quindi una volta chiusi i form, non rimanga ancora visualizzato, il "pallino nero", (per favore passatemi il termine :hail:) ????

Ed ora vi lascio il codice:

Questo codice riguarda il form primario intitolato "menų principale"
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command2_Click()
  2. 'apre il form22 "info"
  3. Form22.Show
  4. End Sub
  5.  
  6. Private Sub Form_Load()
  7. 'controlla il caricamento del form1
  8. WindowState = 2
  9. Option1.Value = False
  10. Option2.Value = False
  11. Option3.Value = False
  12. Option4.Value = False
  13. Option5.Value = False
  14. Option6.Value = False
  15. Option7.Value = False
  16. Option8.Value = False
  17. Option9.Value = False
  18. Option10.Value = False
  19. Option11.Value = False
  20. Option12.Value = False
  21. Option13.Value = False
  22. Option14.Value = False
  23. Option15.Value = False
  24. Option16.Value = False
  25. End Sub
  26. Private Sub Option1_Click()
  27. 'visualizza il form2 "potenza elettrica"
  28. Form2.Show
  29. End Sub
  30.  
  31.  
  32.  
  33. Private Sub Option2_Click()
  34. 'visualizza il form3 "seconda finestra"
  35. Form3.Show
  36. End Sub
  37. Private Sub Option3_Click()
  38. 'visualizza il form4 "terza finestra"
  39. Form4.Show
  40. End Sub
  41. Private Sub Option4_Click()
  42. 'visualizza il form5 "quarta finestra"
  43. Form5.Show
  44. End Sub
  45. Private Sub Option5_Click()
  46. 'visualizza il form6 "quinta finestra"
  47. Form6.Show
  48. End Sub
  49. Private Sub Option6_Click()
  50. 'visualizza il form7 "sesta finestra"
  51. Form7.Show
  52. End Sub
  53. Private Sub Option7_Click()
  54. 'visualizza il form8 "settima finestra"
  55. Form8.Show
  56. End Sub
  57. Private Sub Option8_Click()
  58. 'visualizza il form9 "ottava finestra"
  59. Form9.Show
  60. End Sub
  61. Private Sub Option9_Click()
  62. 'visualizza il form10 "nona finestra"
  63. Form10.Show
  64. End Sub
  65. Private Sub Option10_Click()
  66. 'visualizza il form11 "decima finestra"
  67. Form11.Show
  68. End Sub
  69. Private Sub Option11_Click()
  70. 'visualizza il form12 "undicesima finestra"
  71. Form12.Show
  72. End Sub
  73. Private Sub Option12_Click()
  74. 'visualizza il form13 "dodicesima finestra"
  75. Form13.Show
  76. End Sub
  77. Private Sub Option13_Click()
  78. 'visualizza il form14 "tredicesima finestra"
  79. Form14.Show
  80. End Sub
  81. Private Sub Option14_Click()
  82. 'visualizza il form15 "quattordicesima finestra"
  83. Form15.Show
  84. End Sub
  85. Private Sub Option15_Click()
  86. 'visualizza il form16 "quindicesima finestra"
  87. Form16.Show
  88. End Sub
  89. Private Sub Option16_Click()
  90. 'visualizza il form17 "sedicesima finestra"
  91. Form17.Show
  92. End Sub
  93. Private Sub Command1_Click()
  94. 'esce dal programma
  95. End
  96. End Sub



Sč posso vorrei aggiungere un'altro post per descrivervi il codice di ogni form, che viene attivato con i vari optionbutton.:hail:
Grazie, saluti


SteveJ.JackT.
PM Quote
Avatar
SteveJ.JackT. (Normal User)
Newbie


Messaggi: 19
Iscritto: 13/12/2016

Segnala al moderatore
Postato alle 0:21
Mercoledė, 14/12/2016
Come dicevo in precedenza ecco il codice del form, che compare nel primo gruppo degli optionbutton.

Codice sorgente - presumibilmente Visual Basic 6

  1. VERSION 5.00
  2. Begin VB.Form Form2
  3.    Caption         =   "Legge di Joule"
  4.    ClientHeight    =   3090
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   7770
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   3090
  10.    ScaleWidth      =   7770
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command3
  13.       Caption         =   "&Descrizione"
  14.       Height          =   495
  15.       Left            =   3240
  16.       TabIndex        =   10
  17.       Top             =   1920
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton Command2
  21.       Caption         =   "&Azzera"
  22.       Height          =   495
  23.       Left            =   1680
  24.       TabIndex        =   9
  25.       Top             =   1920
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CommandButton Command1
  29.       Caption         =   "&Calcola P (W)"
  30.       Height          =   495
  31.       Left            =   120
  32.       TabIndex        =   8
  33.       Top             =   1920
  34.       Width           =   1215
  35.    End
  36.    Begin VB.TextBox Text3
  37.       Height          =   285
  38.       Left            =   4680
  39.       TabIndex        =   6
  40.       Top             =   960
  41.       Width           =   1215
  42.    End
  43.    Begin VB.TextBox Text2
  44.       Height          =   285
  45.       Left            =   1560
  46.       TabIndex        =   5
  47.       Top             =   1440
  48.       Width           =   1215
  49.    End
  50.    Begin VB.TextBox Text1
  51.       Height          =   285
  52.       Left            =   1560
  53.       TabIndex        =   4
  54.       Top             =   960
  55.       Width           =   1215
  56.    End
  57.    Begin VB.CommandButton Command4
  58.       Caption         =   "&chiudi"
  59.       BeginProperty Font
  60.          Name            =   "MS Sans Serif"
  61.          Size            =   9.75
  62.          Charset         =   0
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       Height          =   495
  69.       Left            =   6360
  70.       TabIndex        =   1
  71.       Top             =   2520
  72.       Width           =   1215
  73.    End
  74.    Begin VB.Label Label4
  75.       Caption         =   "Risultato "
  76.       Height          =   255
  77.       Left            =   3480
  78.       TabIndex        =   7
  79.       Top             =   960
  80.       Width           =   1095
  81.    End
  82.    Begin VB.Label Label3
  83.       Caption         =   "I (A)"
  84.       Height          =   255
  85.       Left            =   120
  86.       TabIndex        =   3
  87.       Top             =   1440
  88.       Width           =   1095
  89.    End
  90.    Begin VB.Label Label2
  91.       Caption         =   "R (Ohm)"
  92.       Height          =   255
  93.       Left            =   120
  94.       TabIndex        =   2
  95.       Top             =   960
  96.       Width           =   1095
  97.    End
  98.    Begin VB.Label Label1
  99.       Alignment       =   2  'Center
  100.       Caption         =   "Calcolo dell'energia elettrica su di una resistenza"
  101.       BeginProperty Font
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   13.5
  104.          Charset         =   0
  105.          Weight          =   700
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       Height          =   495
  111.       Left            =   120
  112.       TabIndex        =   0
  113.       Top             =   240
  114.       Width           =   7575
  115.    End
  116. End
  117. Attribute VB_Name = "Form2"
  118. Attribute VB_GlobalNameSpace = False
  119. Attribute VB_Creatable = False
  120. Attribute VB_PredeclaredId = True
  121. Attribute VB_Exposed = False
  122. Private Sub Command1_Click()
  123. 'calcola i valori inseriti nelle caselle
  124. ' di testo text1 e text2
  125. Text3.Text = Val(Text1.Text) * Val(Text2.Text) ^ 2
  126. End Sub
  127.  
  128. Private Sub Command2_Click()
  129. 'azzera le caselle di testo
  130. 'e riporta il cursore sulla prima casella di testo
  131. Text1.Text = ""
  132. Text2.Text = ""
  133. Text3.Text = ""
  134. Text1.SetFocus
  135. End Sub
  136.  
  137. Private Sub Command3_Click()
  138. 'descrizione delle operazioni eseguite nel Form2
  139. MsgBox "La legge di Joule, stabilisce" & " che il passaggio della corrente elettrica in un conduttore," _
  140. & " provoca lo sviluppo di calore in quantitā proporzionale" _
  141. & " all'energia elettrica dispersa." _
  142. & " " _
  143. & " Sappiamo dalla legge di Ohm che la caduta di tensione č espressa dal prodotto R * I   per cui " _
  144. & " la potenza dissipata sarā espressa da: " _
  145. & " P = R * I ^2" _
  146. & " " _
  147. & "   Pertanto il risultato ottenuto come potete" _
  148. & " vedere č espresso in Watt", vbInformation, "Descrizione"
  149.  
  150.  
  151.  
  152.  
  153. End Sub
  154.  
  155. Private Sub Command4_Click()
  156. 'scarica il Form2
  157. Unload Me
  158. End Sub



SteveJ.JackT.
PM Quote
Avatar
SteveJ.JackT. (Normal User)
Newbie


Messaggi: 19
Iscritto: 13/12/2016

Segnala al moderatore
Postato alle 0:30
Mercoledė, 14/12/2016
Per tutti gli altri form attivati con i rispettivi optionbutton, il codice č il medesimo.
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2. 'scarica il form3
  3. Unload Me
  4. End Sub
  5.  
  6. Private Sub Form_Load()
  7.  
  8. End Sub



Vorrei ancora ricordarvi sč posso postare le immagini del mio pc con Visual Basic 6, aperto sų questo progetto.??

Grazie, vi saluto attendendo molte risposte a questo quesito, spero che sia utile anche ad altri.


SteveJ.JackT.
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5475
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 7:17
Mercoledė, 14/12/2016
Come ti avevano detto qui

http://www.ioprogrammo.it/index.php?topic=26587.msg96642;t ...

liwiki, dovevi provare nell'evento Activate mettendo a falsa la value dei button.



Ricorda che nessuno č obbligato a risponderti e che nessuno č perfetto ...
PM Quote
Avatar
SteveJ.JackT. (Normal User)
Newbie


Messaggi: 19
Iscritto: 13/12/2016

Segnala al moderatore
Postato alle 17:11
Domenica, 08/01/2017


Come ti avevano detto qui

http://www.ioprogrammo.it/index.php?topic=26587.msg96642;t ...

liwiki, dovevi provare nell'evento Activate mettendo a falsa la value dei button.

Si,si,vabbč.
Allora chiarisco meglio, io collaboro con liwiki a questo progetto, ovvio che se chiediamo con la medesima domanda e medesimo contenuto, e chiediamo la medesima risposta, un motivo c'č, non che si fā crossposting apposta.

Ora potrō sembrare polemico, ma sč uno o un gruppo di lavoro, fā una domanda č si sente rispondere: "leggi il manuale", ragazzi di manuali ne abbiamo scaricati un paio, ma non troviamo la soluzione, noi abbiamo persino chiesto sč potevamo postare delle immagini sia qui che la :
http://www.ioprogrammo.it/index.php?topic=26587.msg96642;t ...

Poi perchč questa sorta di "sbirranza" cioč fare riferimenti incrociati su altri serverWeb, mica siamo soggetti pericolosi o dannosi, tutt'altro chiediamo informazioni, esperienze dirette di altri, internet dovrebbe essere condivisione libera da pregiudizi, logico che ci saranno dei furbi, non lo metto in dubbio, ma sia io che liwiki abbiamo lo stesso problema, č un problema per voi sč abbiamo lo stesso argomento da proporre, non vi pare?

Siamo stati mal interpretati. :-o: nono:

Se permettete vi mostro le immagini, (sarebbe meglio un breve filmato), del lavoro che abbiamo realizzato.








SteveJ.JackT. ha allegato un file: Clipboard_code_1.jpeg (106284 bytes)
Clicca qui per guardare l'immagine


SteveJ.JackT.
PM Quote
Avatar
SteveJ.JackT. (Normal User)
Newbie


Messaggi: 19
Iscritto: 13/12/2016

Segnala al moderatore
Postato alle 17:12
Domenica, 08/01/2017
seconda clip


SteveJ.JackT. ha allegato un file: Clipboard_code_2.jpeg (109357 bytes)
Clicca qui per guardare l'immagine


SteveJ.JackT.
PM Quote
Avatar
SteveJ.JackT. (Normal User)
Newbie


Messaggi: 19
Iscritto: 13/12/2016

Segnala al moderatore
Postato alle 17:13
Domenica, 08/01/2017
terza clip


SteveJ.JackT. ha allegato un file: Clipboard_code_3.jpeg (110693 bytes)
Clicca qui per guardare l'immagine


SteveJ.JackT.
PM Quote
Avatar
SteveJ.JackT. (Normal User)
Newbie


Messaggi: 19
Iscritto: 13/12/2016

Segnala al moderatore
Postato alle 17:14
Domenica, 08/01/2017
quarta clip


SteveJ.JackT. ha allegato un file: Clipboard_code_4.jpeg (104298 bytes)
Clicca qui per guardare l'immagine


SteveJ.JackT.
PM Quote
Avatar
SteveJ.JackT. (Normal User)
Newbie


Messaggi: 19
Iscritto: 13/12/2016

Segnala al moderatore
Postato alle 17:16
Domenica, 08/01/2017
quinta clip


SteveJ.JackT. ha allegato un file: Clipboard_code_5.jpeg (114577 bytes)
Clicca qui per guardare l'immagine

Ultima modifica effettuata da SteveJ.JackT. il 08/01/2017 alle 17:22


SteveJ.JackT.
PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo