运行截图
布局文件
Main窗体代码如下
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'这里声明的变量能被所有模块使用!
End Sub
Sub Globals
Dim Bconv As ByteConverter
Dim Button1 As Button
Dim EditText