Italian index bottone

Discussion in 'Italian Forum' started by saslvovc, Mar 22, 2015.

  1. saslvovc

    saslvovc Member Licensed User

    Ciao
    ho una seri di 9 bottoni
    Come faccio a ricavare Index Bottone Cliccato.
     
    Last edited: Mar 22, 2015
  2. sirjo66

    sirjo66 Well-Known Member Licensed User

    Per ogni bottone metti la proprietà Tag diversa (cioè gli assegni un numero), poi nell'evento Click esegui:
    Code:
    Dim btn As Button = Sender
    Dim index as Int = btn.Tag
    Log(index)
    Sergio
     
  3. saslvovc

    saslvovc Member Licensed User

    Scusate ma ho posto male la domanda
    voglio eseguire questa routine presa da vb6

    Code:
    Private Sub btnnum_Click(Index As Integer)
    Dim swap As String

    If Index < 9 Then
          
    If btnnum(Index + 1).BackColor = vbWhite Then
          swap =btnnum(Index).Caption
          btnnum(Index).Caption = 
    ""
          btnnum(Index).BackColor = vbWhite
          btnnum(Index + 
    1).Caption = swap
          btnnum(Index + 
    1).BackColor = vbBlue
     
    End If
    End If
    End Sub
     
  4. udg

    udg Expert Licensed User

    La risposta di Sergio resta valida.
    Per avere un codice molto simile a quello indicato dovrai dimensionare ed inizializzare un array di buttons e poi nell'evento comune usare il codice di Sergio per sapere quale dei 9 tasti sia stato premuto..
    Qualcosa del genere:
    Code:
    Dim btnnum(8as button
    for j= 0 to 8
      btnnum(j).Initialize(
    "btnum")
      btnnum(j).tag= j
      
    panel (or activity..) addview(btnum(j),...)
    next

    sub btnum_Click
      
    dim swap as string
      
    Dim btn AsButton = Sender
      
    Dim index as Int = btn.Tag
      
    If btnnum(Index + 1).BackColor = colors.White Then
        swap =btnnum(Index).Caption
        btnnum(Index).Caption = 
    ""
        btnnum(Index).BackColor = 
    colors.White
        btnnum(Index + 
    1).Caption = swap
        btnnum(Index + 
    1).BackColor = colors.Blue
    end if
    Ovviamente quello che precede non è codice già funzionante, ma ti serve per avere un'idea di cosa fare.
     
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