kobolds wrote:
> Hi,
>
> I try create button at run time but I having trouble to set the click
> action.
> here my code
>
> DIM m_MaxCol AS Integer = 5
> DIM m_button AS Button
> DIM m_MaxBut AS Integer = 18
> DIM m_Colcnt AS Integer = 0
> DIM m_Rowcnt AS Integer = 0
> DIM m_butcnt AS Integer = 0
> DIM m_Colgap AS Integer = 2
> DIM m_Rowgap AS Integer = 2
> DIM m_ButHeight AS Integer = 128
> DIM m_ButWidth AS Integer = 128
>
> WHILE m_butcnt < m_MaxBut
>
> FOR m_Colcnt = 0 TO m_MaxCol - 1
> m_button = NEW Button(ScrollView1)
> WITH m_button
> .x = (m_Colcnt * (m_ButWidth + m_Colgap))
> .y = (m_Rowcnt * (m_ButHeight + m_Rowgap))
> .Height = m_ButHeight
> .Width = m_ButWidth
> .Text = m_Rowcnt & ", " & m_Colcnt
>
> END WITH
>
>
> m_butcnt += 1
> IF m_butcnt >= m_MaxBut THEN
> BREAK
> ENDIF
> NEXT
>
> m_Rowcnt += 1
>
> WEND
>
> my problem now is how to set the click action and how to know which button
> is clicking
>
>
>
>
Use this instead:
m_button = NEW Button(ScrollView1) AS "MyButton"
Set the .Tag property to something unique:
.Tag = iUnique
And then catch the clicks with:
PUBLIC SUB MyButton_Click()
Message.Info("Clicked : " & LAST.tag)
END
Regards,
Ron_2nd.
------------------------------------------------------------------------------
Enter the BlackBerry Developer Challenge
This is your chance to win up to $100,000 in prizes! For a limited time,
vendors submitting new applications to BlackBerry App World(TM) will have
the opportunity to enter the BlackBerry Developer Challenge. See full prize
details at: http://p.sf.net/sfu/Challenge
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
