Italian intercettare il CheckBox

Discussion in 'Italian Forum' started by max611, Nov 6, 2018.

  1. max611

    max611 Active Member Licensed User

    cambio strada, ho trovato in giro questo codice che mi andrebbe bene
    praticamente crea una scroll con tante CheckBox
    ora il mio problema è come faccio a capire quando metto la spunta o la tolgo nella CheckBox?
    grazie ancora
    questo il codice:

    ScrollView1.Initialize(0)
    pnl = ScrollView1.Panel
    Activity.AddView(ScrollView1, 0, 0, 100%x, 100%y)
    lstChecks.Initialize

    For i = 1 To 100
    chk.Initialize("")
    chk.Text = "Item #" & i
    lstChecks.Add(chk)
    Dim lbl1 As Label
    lbl1.Initialize("")
    lbl1.Text = "Value #" & i
    lbl1.Gravity = Gravity.CENTER_VERTICAL
    pnl.AddView(chk, 300, height * (i - 1), 120dip, height)
    pnl.AddView(lbl1, 225dip, height * (i - 1), 120dip, height)
    Next
    pnl.Height = lstChecks.Size * height
     
  2. Star-Dust

    Star-Dust Expert Licensed User

    Metti nel Tag di ogni Check un ID che può essere la stessa posizione ottenuta dalla variebile I del FOR NEXT

    Code:
    For i = 1 To 100
            
    Dim chk As CheckBox
            chk.Initialize(
    "chk")
            chk.Tag=i
            chk.Text = 
    "Item #" & i
            
    'lstChecks.Add(chk) ' Non c'è bisogno
            Dim lbl1 As Label
            lbl1.Initialize(
    "")
            lbl1.Text = 
    "Value #" & i
            lbl1.Gravity = 
    Gravity.CENTER_VERTICAL
            pnl.AddView(chk, 
    300, height * (i - 1), 120dip, height)
            pnl.AddView(lbl1, 
    225dip, height * (i - 1), 120dip, height)
        
    Next
    Code:
    Sub chk_CheckedChange(Checked As Boolean)
        
    Dim C As CheckBox = Sender
        
    Dim Indice As Int = C.tag
       
    End Sub
     
    sirjo66 likes this.
  3. max611

    max611 Active Member Licensed User

    ho fatto in questo modo ma...
    Sub chk_CheckedChange(Checked As Boolean)
    Dim C As CheckBox = Sender
    Dim Indice As Int = C.tag
    If C.Checked=True Then Msgbox(Indice, "Checked indices")
    End Sub
    o devo metterlo in un ciclo for?
     
  4. max611

    max611 Active Member Licensed User

    piccola curiosità come fai a mettere il box code?
     
  5. Star-Dust

    Star-Dust Expert Licensed User

    upload_2018-11-6_16-34-14.png
    Code:
    Sub chk_CheckedChange(Checked As Boolean)
        
    Dim C As CheckBox = Sender
        
    Dim Indice As Int = C.tag
        
        
    If Checked then MsgBox("Cliccato""Linea: " & Indice)
    End Sub
     
  6. max611

    max611 Active Member Licensed User

    per il code ho fatto cosi ma non mi da il risultato che hai tu, forse Edge è la causa...?
     
  7. max611

    max611 Active Member Licensed User

    Code:
    Sub Activity_Create(FirstTime As Boolean)
        ScrollView1.Initialize(
    0)
      
        pnl = ScrollView1.Panel
        
    Activity.AddView(ScrollView1, 00100%x100%y)
        
        
    For i = 1 To 100
            
            chk.Initialize(
    "")
            chk.Tag=i
            chk.Text = 
    "Item #" & i
    '        lstChecks.Add(chk)
            Dim lbl1 As Label
            lbl1.Initialize(
    "")
            lbl1.Text = 
    "Value #" & i
            lbl1.Gravity = 
    Gravity.CENTER_VERTICAL
            pnl.AddView(chk, 
    0, height * (i - 1), 120dip, height)
            pnl.AddView(lbl1, 
    125dip, height * (i - 1), 120dip, height)
        
    Next
        pnl.Height = i * height
    End Sub
    Code:
    Sub chk_CheckedChange(Checked As Boolean)
     
    Dim C As CheckBox = Sender
        
    Dim Indice As Int = C.tag
        
    If Checked Then Msgbox("Cliccato""Linea: " & Indice)
        
    End Sub
    questo in riassunto il codice modificato, ma quando spundo un qualsiasi check non succede niente
    sbaglio qualcosa?
     
  8. Star-Dust

    Star-Dust Expert Licensed User

    Si ...
    Code:
    chk.Initialize("chk")
    chk.Tag=i
     
    Filippo likes this.
  9. max611

    max611 Active Member Licensed User

    :DGRAZZZZIE
    devo stare più attento però
    grazie
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice