Hello Everyone
I am beginner of B4A.
My problem is Button Click no work .
My code is ,
Sub Globals
Dim edt As EditText
Dim bt As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
edt.Initialize(edt)
Activity.AddView(edt,10%x,2%y,40%x,6%y)
edt.Hint="Input Your S/N"
edt.TextColor=0xFFEEEFE9
edt.HintColor=0xFF08BB00
bt.Initialize(bt)
Activity.AddView(bt,10%x,10%y,30%x,5%y)
bt.Text="Click Now"
bt.TextColor=0xFF1A64DA
bt.SetBackgroundImage(LoadBitmap(File.DirAssets,"Button 1.png"))
Msgbox("Hi","Good Morning")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub bt_click
Msgbox("edt","Please Check Your Info")
End Sub
So please help me.
With best regards,
Chit
I am beginner of B4A.
My problem is Button Click no work .
My code is ,
Sub Globals
Dim edt As EditText
Dim bt As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
edt.Initialize(edt)
Activity.AddView(edt,10%x,2%y,40%x,6%y)
edt.Hint="Input Your S/N"
edt.TextColor=0xFFEEEFE9
edt.HintColor=0xFF08BB00
bt.Initialize(bt)
Activity.AddView(bt,10%x,10%y,30%x,5%y)
bt.Text="Click Now"
bt.TextColor=0xFF1A64DA
bt.SetBackgroundImage(LoadBitmap(File.DirAssets,"Button 1.png"))
Msgbox("Hi","Good Morning")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub bt_click
Msgbox("edt","Please Check Your Info")
End Sub
So please help me.
With best regards,
Chit