Basic4Android 安装使用说明Basic4Android 安装使用说明.docVIP

Basic4Android 安装使用说明，及学习日记 安装配置 1、安装.net2,安装jdk 2、安装 Android SDK, 安装后运行，还会提示要在线下载对应的系统，如选择Android 4.03 如何解决安卓SDK无法下载Package的问题 -因为网络IP被封了。 ⑴ 修改Hosts文件 C:\Windows\System32\drivers\etc\hosts 46 46 ⑵、打开安卓SDK管理器“Android SDK Manager”，点击菜单栏中的“Tools/Options”打开设置窗体。勾选Force开头的复选框按钮，然后点击“Close”按钮关闭并保存设置。 3、安装.net2以上(否则basic4一启动报错000000135) 4、运行Basic4Android 1.9绿色版 Basic4android.exe 二、HelloWorld ①、问题：运行时编译，可能提示 文件不对，将提示的文件夹复制到 C:\Document Settings\Administrod目录下； ②、运行时，应该在 tools菜单下，启动MVD？，创建手机模拟器； 不过，编译会很慢。 建议直接接上手机，系统设置/开发人员选项/设置为USB调试模式。编译运行速度会加快。 ③、手工创建对象 Dim wv As WebView 定义wv.Initialize(wv) 初始化，关键是指定一个事件名称 后面可以sub wv_click之类的事件Activity.AddView(wv,0,0,100%x,100%y) 加入VIEW，位置 可以使用了wv.LoadUrl(/) ///////////////// Dim Timer1 As Timer Timer1.Initialize(Timer1,1000) Timer1.Enabled=True Sub Timer1_Tick //(即interval 事件) Label1.Text=Svr.c End Sub //////退出确认 Sub Activity_KeyPress (KeyCode As Int) As Boolean Dim Answ As Int If KeyCode = KeyCodes.KEYCODE_BACK Then Answ = Msgbox2(确定要退出吗？, 注意, Yes, , No, Null) If Answ = DialogResponse.NEGATIVE Then Return True End If End If Return False End Sub /////////////////// For i = 0 To Cursor1.RowCount -1 Cursor1.Position = i Dim img1 As ImageView img1.Initialize(ImgView) img1.Bitmap = LoadBitmap(File.DirAssets, audit_template_new.png) ScrollView1.Panel.AddView(img1, 40dip, img_height, 728dip, 115dip) QuestionRef Dim lbl_questionref As Label lbl_questionref.Initialize(Label) lbl_questionref.Text = Cursor1.GetString(QuestionNr) lbl_questionref.TextColor = Colors.Black ScrollView1.Panel.AddView(lbl_questionref, 50dip, img_height+10dip, 350dip, 40dip) Question Content Dim lbl_question As Label lbl_question.Initialize(Label) lbl_question.Text = Cursor1.GetString(Question) lbl_question.TextColor = Colors.DarkGray