#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim ET As EditText
Dim ET2 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
ET.Initialize("ET")
Activity.AddView(ET,0,90dip,320dip,80dip)
ET2.Initialize("")
ET2.Text = "Do not copy this line"
Activity.AddView(ET2,0,0,320dip,80dip)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ET_TextChanged (Old As String, New As String)
If New.Length > Old.Length + 1 Then
Msgbox("Please do not use copy/paste","Copy/Paste detected")
ET.Text = ""
End If
End Sub