Button.Pressed

Firpas · Aug 3, 2013

Hi to evreybody:

In the designer, for button view there is a property named "pressed" as boolean.

How I can set it from code?

klaus · Aug 3, 2013

You can do it with the Reflection library:

B4X:

Sub SetButtonPressed(v As View, PressedState As Boolean)
    Dim r As  Reflector
  
    r.Target = v
    r.RunMethod2("setPressed", PressedState, "java.lang.boolean")
End Sub

Best regards.

Firpas · Aug 5, 2013

Thanks for your help
This method works but its effect quickly disappears.

I think I will use ToggleButtons

Best regards

StarinschiAndrei · Feb 21, 2014

Hello Klaus,
Could you please tell me how can i read the PressedState value ?
Thank you.

klaus · Feb 21, 2014

With this routine, needs the Reflection library.

B4X:

'Returns the pressed state
Sub isPressed(v As View) As Boolean
    Dim r As Reflector
   
    r.Target = v
    Return r.RunMethod("isPressed")
End Sub

StarinschiAndrei · Feb 21, 2014

klaus said:
With this routine, needs the Reflection library.

B4X:

'Returns the pressed state Sub isPressed(v As View) As Boolean Dim r As Reflector r.Target = v Return r.RunMethod("isPressed") End Sub

Thank you Klaus

StarinschiAndrei · Feb 21, 2014

Hello Klaus,
I want to decrement the number in lbl1 until the btnm is pressed, the following code doesn't work, after button_up event it goes back in button down even if i set that button is unpressed. could you please tell me how can handle this situation ?

Sub btnm_Down

SetPressed(Btnm,True)

Do While isPressed(Btnm)
If nr=1 Then
nr=49
lbl1.Text =nr
Else
nr=nr-1
lbl1.Text =nr
End If
Loop
End Sub

Sub btnm_Up
SetPressed(Btnm,False)
End Sub

Sub isPressed(btn As Button) As Boolean
Dim r As Reflector
r.Target = btn
Return r.RunMethod("isPressed")
End Sub

Sub SetPressed(Btn As Button, pressed As Boolean)
Dim r As Reflector
r.Target = Btn
r.RunMethod2("setPressed", pressed, "java.lang.boolean")
End Sub

klaus · Feb 21, 2014

You should use code tags when you want to show code (the button) !

I would suggest you to use a Timer to do this.
In Sub btnm_Down you set the Timer1.Enabled = True.
In Sub btnm_Up you set the Timer1.Enabled = False.
And put the decrementing code in the Timer1_Tick routine.

StarinschiAndrei · Feb 21, 2014

klaus said:
You should use code tags when you want to show code (the View attachment 22916 button) !

I would suggest you to use a Timer to do this.
In Sub btnm_Down you set the Timer1.Enabled = True.
In Sub btnm_Up you set the Timer1.Enabled = False.
And put the decrementing code in the Timer1_Tick routine.

Thank you Klaus

Johan Schoeman · Jun 7, 2014

klaus said:
With this routine, needs the Reflection library.

B4X:

'Returns the pressed state Sub isPressed(v As View) As Boolean Dim r As Reflector r.Target = v Return r.RunMethod("isPressed") End Sub

Hi Klaus

I have 10 Buttons in a project. I have set button bNormal to pressed using
SetPressed(bNormal,True)
and the initial setting is correct (i.e button bNormal is Red)

I now want to toggle the state of the buttons with the code below but the toggle of the buttons does not work (Blue = not pressed, Red = pressed). I must be misinterpreting something. Sub isPressed keeps on coming back with "true" regardless of trying to change the state with
SetPressed(bNormal,True) or SetPressed(bNormal,False)

What am I missing? Below code is for buttons bNormal and bCircle only. If I change bCircle to bNormal in the If bb = "2" part of the code then button bNormal toggles between red and blue.

B4X:

Sub SetPressed(cmd As Button, Pressed As Boolean)
  Dim ref As Reflector
  ref.Target = cmd
  ref.RunMethod2("setPressed", Pressed, "java.lang.boolean")
End Sub

Sub ButtonPressed_Click

Dim b5 As Button
Dim bb As String

b5 = Sender
bb = b5.Tag
Log(bb)

If bb = "1" Then
  Log("here 1")
  Dim check As Boolean
  check = isPressed(bNormal)
  If check = True Then
    SetPressed(bNormal,False)
  Else
    SetPressed(bNormal,True)
  End If  
End If

If bb = "2" Then
  Log("here 2")
  Dim check As Boolean
  check = isPressed(bCircle)
  If check = True Then
    SetPressed(bCircle,False)
  Else
    SetPressed(bCircle,True)
  End If  
End If

End Sub

Sub isPressed(cmd As Button) As Boolean
    Dim r As Reflector
    Dim PressedState As Boolean
    r.Target = cmd
    PressedState =  r.RunMethod("isPressed")
    Return PressedState
  
End Sub

klaus · Jun 8, 2014

Do you have a small test project so we could test it.
Hoe did you set the colors of the buttons.
Are you trying to set a kind of radiobuttons with buttons ?
You could replace the buttons by togglebuttons, these ones have two states.

Johan Schoeman · Jun 8, 2014

klaus said:
Do you have a small test project so we could test it.
Hoe did you set the colors of the buttons.
Are you trying to set a kind of radiobuttons with buttons ?
You could replace the buttons by togglebuttons, these ones have two states.

Hi Klaus

See attached. I have set the colors in the Designer.
See comments in code where I mention changing bCircle to bNormal. If Circle button is then pressed it toggles the Normal button

klaus · Jun 8, 2014

I'm afraid that with Buttons you can't do what you want.
But with ToggleButtons it works and the code is simpler.

Button.Pressed

Firpas

Active Member

klaus

Expert

Firpas

Active Member

StarinschiAndrei

Active Member

klaus

Expert

StarinschiAndrei

Active Member

StarinschiAndrei

Active Member

klaus

Expert

Attachments

StarinschiAndrei

Active Member

Johan Schoeman

Expert

klaus

Expert

Johan Schoeman

Expert

Attachments

klaus

Expert

Attachments

Similar Threads

Button.Pressed

Active Member

Expert

Active Member

Active Member

Expert

Active Member

Active Member

Expert

Attachments

Active Member

Expert

Expert

Expert

Attachments

Expert

Attachments

Similar Threads

Privacy & Transparency

Privacy & Transparency