Newsgroup: it.comp.lang.visual-basic
Titolo: Aiutooooooooooooo

Ormai so come mettere da codice sia gli option button sia i frame....ma per
poter mettere un option button all'interno dei frame per poter fare
selezioni multiple come devo fare?
grazie
Yuri

 ma per poter mettere un option button all'interno dei frame per poter fare
selezioni multiple come devo fare?
Ho fiducia che quando leggerai la mia risposta tu avrai gia` fatto quello
che chiedi. Rispondo solo perche' son curioso di sapere cosa tu intenda con
"selezioni multiple".
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:8vdr4b$45h9c$2...@ID-52090.news.dfncis.de...


 Come selezioni multiple intendo gli option button dentro i frame per poter
metterne di più in un form...in modo da selezionare più option button in un
unico form
Quindi... tanti frame quanti sono i gruppi di opzioni che ti servono. Ma
forse non ho capito la domanda...


 ha scritto nel messaggio
news:8ve0t6$49h3p$1...@ID-52090.news.dfncis.de...



complimenti, col tuo meraviglioso subject hai vinto l'onore di fare da cavia
per provare i filtri di kill di outlook... vediamo adesso se riesco ad
evitare di dover leggere ancora messaggi con subject simili;

 ha scritto nel messaggio
news:aRvS5.9230$FV2.2...@news.infostrada.it...


 Quindi... tanti frame quanti sono i gruppi di opzioni che ti servono. Ma
forse non ho capito la domanda...
Ecco... appunto. Non avevo capito la domanda. Leggendo gli altri post ho
colto quel "da codice" che mi era sfuggito... Spero sia questo il problema.
Segue un esempio. Veloce veloce... quindi verifica bene che sia tutto a
posto...
Option Explicit
Private WithEvents fra1   As VB.Frame
Private WithEvents opt11  As VB.OptionButton
Private WithEvents opt12  As VB.OptionButton
Private WithEvents opt13  As VB.OptionButton
Private WithEvents fra2   As VB.Frame
Private WithEvents opt21  As VB.OptionButton
Private WithEvents opt22  As VB.OptionButton
Private WithEvents opt23  As VB.OptionButton
Private Sub Form_Load()
  Set fra1 _
    = Controls.Add("VB.Frame", "fra1", Me)
  Set opt11 _
    = Controls.Add("VB.OptionButton", "opt11", fra1)
  Set opt12 _
    = Controls.Add("VB.OptionButton", "opt12", fra1)
  Set opt13 _
    = Controls.Add("VB.OptionButton", "opt13", fra1)
  With opt11
    .Left = 120
    .Top = 240
    .Visible = True
    fra1.Width = .Left + .Width + 120
    opt12.Move .Left, .Top + .Height + 120
  End With
  With opt12
    .Visible = True
    opt13.Move .Left, .Top + .Height + 120
  End With
  With opt13
    .Visible = True
    fra1.Height = .Top + .Height + 120
  End With
  With fra1
    .Caption = "Frame1"
    .Move 120, 120
    .Visible = True
  End With
  Set fra2 _
    = Controls.Add("VB.Frame", "fra2", Me)
  Set opt21 _
    = Controls.Add("VB.OptionButton", "opt21", fra2)
  Set opt22 _
    = Controls.Add("VB.OptionButton", "opt22", fra2)
  Set opt23 _
    = Controls.Add("VB.OptionButton", "opt23", fra2)
  With opt21
    .Left = 120
    .Top = 240
    .Visible = True
    fra2.Width = .Left + .Width + 120
    opt22.Move .Left, .Top + .Height + 120
  End With
  With opt22
    .Visible = True
    opt23.Move .Left, .Top + .Height + 120
  End With
  With opt23
    .Visible = True
    fra2.Height = .Top + .Height + 120
  End With
  With fra2
    .Caption = "Frame2"
    .Move fra1.Left + fra1.Width + 120, 120
    .Visible = True
  End With
End Sub


 ha scritto nel messaggio
news:8ve3er$44b40$1...@ID-52090.news.dfncis.de...
