hi,
i want to get a value from panel with button in panel??
please help
!-------------------------------------------
'Class module
Sub Class_Globals
Dim paneltakvim As Panel
Dim close As Button
Dim x As EditText
End Sub
Public Sub Initialize(Act As Activity)
paneltakvim.Initialize("paneltakvim")
Act.AddView(paneltakvim,10%x,10%y,80%x,80%y)
paneltakvim.Color=Colors.Black
close.Initialize("close")
paneltakvim.AddView(close,0.5*paneltakvim.Width,0.7*paneltakvim.Height,200,200)
x.Initialize("x")
paneltakvim.AddView(x,0.50*paneltakvim.Width,0.3*paneltakvim.Height,200,200)
close.Text="ok"
paneltakvim.Visible=False
End Sub
Public Sub takvimshow
paneltakvim.Visible=True
End Sub
private Sub close_click
paneltakvim.Visible=False
End Sub
'MAIN MODULE
Sub Process_Globals
End Sub
Sub Globals
Dim b1 As Button
Dim tak As takvim
Dim str As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
b1.Initialize("b1")
Activity.AddView(b1,25%x,25%y,25%x,25%x)
str.Initialize("str")
str.Text="value from panel class"
Activity.AddView(str,15%x,15%y,55%x,25%x)
b1.Text="button1"
tak.Initialize(Activity)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub b1_click
tak.takvimshow
End Sub
i want to get a value from panel with button in panel??
please help
!-------------------------------------------
'Class module
Sub Class_Globals
Dim paneltakvim As Panel
Dim close As Button
Dim x As EditText
End Sub
Public Sub Initialize(Act As Activity)
paneltakvim.Initialize("paneltakvim")
Act.AddView(paneltakvim,10%x,10%y,80%x,80%y)
paneltakvim.Color=Colors.Black
close.Initialize("close")
paneltakvim.AddView(close,0.5*paneltakvim.Width,0.7*paneltakvim.Height,200,200)
x.Initialize("x")
paneltakvim.AddView(x,0.50*paneltakvim.Width,0.3*paneltakvim.Height,200,200)
close.Text="ok"
paneltakvim.Visible=False
End Sub
Public Sub takvimshow
paneltakvim.Visible=True
End Sub
private Sub close_click
paneltakvim.Visible=False
End Sub
'MAIN MODULE
Sub Process_Globals
End Sub
Sub Globals
Dim b1 As Button
Dim tak As takvim
Dim str As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
b1.Initialize("b1")
Activity.AddView(b1,25%x,25%y,25%x,25%x)
str.Initialize("str")
str.Text="value from panel class"
Activity.AddView(str,15%x,15%y,55%x,25%x)
b1.Text="button1"
tak.Initialize(Activity)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub b1_click
tak.takvimshow
End Sub