ขอขอบคุณ mcqueccu ณ โอกาสนี้ด้วย ที่เพิ่มคำบรรยาย ภาคภาษาไทยให้ในคลิปวิดีโอ (เนื้อหาอยู่ค่อนข้างท้ายของคลิปวิดีโอ)
==หลักการแปลงแอพ B4A เป็น B4i มีดังนี้==
1.เพิ่มไลบารี่ที่จำเป็น ได้แก่ ไลบารี่ iXUI ,XUI Views และ iSQL (ถ้าไม่เพิ่ม ไลบารี่ iXUI และ XUI Views จะไม่สามารถคัดลอกวิวต่างๆ ในข้อที่3 ได้)
2.นำการเพิ่มโมดูล ไฟล์นามสกุล *.Bas ไปยังโครงงานใหม่ ในตัวอย่างนี้ ได้แก่ โมดูล actAdd.Bas และ โมดูล actDashboard.bas โดยตั้งความสัมพันธ์เป็นแบบ Relative Path
3.คัดลอกวิวต่างๆในแต่ละ layout โดย เปิด B4A Layout designer กับ เปิด B4i Layout designer คู่กัน จากนั้น ใช้ Ctrl+A ,Ctrl+C และ Ctrl+V ทำให้ได้ไฟล์ *.bil (เช่นเดียวกับ *.bal
ใน B4A)
4.แก้ไขข้อผิดพลาดในโครงการ B4i และใช้คำสั่งในการคอมไพล์แบบมีเงื่อนไข
-ประกาศตัวแปร Dim sql As SQL ใน Process_Globals ของ Main
-ตั้งค่า NavControl.NavigationBarVisible เป็น False ในโมดูล Application_Start( Nav As NavigationController) เพื่อไม่ต้องการแสดงบาร์ไตเติ้ล
-ทำการ Sync files โดยทำการกด Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
-แก้ไขจัดการ Splash Page โดยเพิ่มรูป splash.png และแก้ไข NavigationBar Property ให้เอาเครื่องหมายถูกออกไป เพื่อไม่ต้องการแสดงไตเติ้ลบาร์
==หลักการแปลงแอพ B4A เป็น B4i มีดังนี้==
1.เพิ่มไลบารี่ที่จำเป็น ได้แก่ ไลบารี่ iXUI ,XUI Views และ iSQL (ถ้าไม่เพิ่ม ไลบารี่ iXUI และ XUI Views จะไม่สามารถคัดลอกวิวต่างๆ ในข้อที่3 ได้)
2.นำการเพิ่มโมดูล ไฟล์นามสกุล *.Bas ไปยังโครงงานใหม่ ในตัวอย่างนี้ ได้แก่ โมดูล actAdd.Bas และ โมดูล actDashboard.bas โดยตั้งความสัมพันธ์เป็นแบบ Relative Path
3.คัดลอกวิวต่างๆในแต่ละ layout โดย เปิด B4A Layout designer กับ เปิด B4i Layout designer คู่กัน จากนั้น ใช้ Ctrl+A ,Ctrl+C และ Ctrl+V ทำให้ได้ไฟล์ *.bil (เช่นเดียวกับ *.bal
ใน B4A)
4.แก้ไขข้อผิดพลาดในโครงการ B4i และใช้คำสั่งในการคอมไพล์แบบมีเงื่อนไข
-ประกาศตัวแปร Dim sql As SQL ใน Process_Globals ของ Main
B4X:
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Dim sql As SQL
End Sub
-ตั้งค่า NavControl.NavigationBarVisible เป็น False ในโมดูล Application_Start( Nav As NavigationController) เพื่อไม่ต้องการแสดงบาร์ไตเติ้ล
B4X:
Private Sub Application_Start( Nav As NavigationController)
NavControl=Nav
Dim PagesManager As B4XPagesManager
PagesManager.Initialize(NavControl)
NavControl.NavigationBarVisible=False
End Sub
-ทำการ Sync files โดยทำการกด Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
B4X:
#Region Shared Files
#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
#End Region
-แก้ไขจัดการ Splash Page โดยเพิ่มรูป splash.png และแก้ไข NavigationBar Property ให้เอาเครื่องหมายถูกออกไป เพื่อไม่ต้องการแสดงไตเติ้ลบาร์
Last edited: