[Gambas-user] How to specify action button at runtime

kobolds kobolds at ...2041...
Wed Jul 15 11:21:46 CEST 2009


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



-- 
View this message in context: http://www.nabble.com/How-to-specify-action-button-at-runtime-tp24494522p24494522.html
Sent from the gambas-user mailing list archive at Nabble.com.





More information about the User mailing list