Iam trying to do link between layout .....i can do it by button but text or image-view or label i can't do it ? why ? isn't possible ?
#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: TwoLayouts
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim btnNext1, btnNext2 As Button
Dim edtText1, edtText2 As EditText
Dim rbtTest1, rbtTest2 As RadioButton
Dim pnlLayout1, pnlLayout2 , pnlLayout3 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("TwoLayouts")
pnlLayout1.Top=0
pnlLayout1.Left=0
pnlLayout1.LoadLayout("TwoLayouts1")
pnlLayout1.Visible=True
pnlLayout2.Top=0
pnlLayout2.Left=0
pnlLayout2.LoadLayout("TwoLayouts2")
pnlLayout2.Visible=False
pnlLayout3.Top=0
pnlLayout3.Left=0
pnlLayout3.LoadLayout("TwoLayouts3")
pnlLayout3.Visible=False
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnNext1_Click
pnlLayout1.Visible=False
pnlLayout2.Visible=True
End Sub
Sub btnNext2_Click
pnlLayout1.Visible=True
pnlLayout2.Visible=False
End Sub
Sub ImageView1_Click
pnlLayout3.Visible=True
pnlLayout1.Visible=False
pnlLayout2.Visible=False
End Sub
#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: TwoLayouts
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim btnNext1, btnNext2 As Button
Dim edtText1, edtText2 As EditText
Dim rbtTest1, rbtTest2 As RadioButton
Dim pnlLayout1, pnlLayout2 , pnlLayout3 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("TwoLayouts")
pnlLayout1.Top=0
pnlLayout1.Left=0
pnlLayout1.LoadLayout("TwoLayouts1")
pnlLayout1.Visible=True
pnlLayout2.Top=0
pnlLayout2.Left=0
pnlLayout2.LoadLayout("TwoLayouts2")
pnlLayout2.Visible=False
pnlLayout3.Top=0
pnlLayout3.Left=0
pnlLayout3.LoadLayout("TwoLayouts3")
pnlLayout3.Visible=False
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnNext1_Click
pnlLayout1.Visible=False
pnlLayout2.Visible=True
End Sub
Sub btnNext2_Click
pnlLayout1.Visible=True
pnlLayout2.Visible=False
End Sub
Sub ImageView1_Click
pnlLayout3.Visible=True
pnlLayout1.Visible=False
pnlLayout2.Visible=False
End Sub
Last edited: