من یک سورس از این آدرس گرفتم که یک سورس برای منو است
اما هنگام خروجی گرفتن خطای بالا را می دهد من sdk را به android x اپدیت کرده ام و از جدیدترین نسخه b4a استفاده می کنم
ولی سورس هایی که در آنها کتابخانه AppCompat وجود دارد اصلا خروجی گرفته نمی شود
اینم لیست کدهاس سورس
#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
#Extends: android.support.v7.app.AppCompatActivity
Sub Process_Globals
End Sub
Sub Globals
Private ACToolBarLight1 As ACToolBarLight
Private ToolbarHelper As ACActionBar
Private Drawer As B4XDrawer
Private ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Drawer.Initialize(Me, "Drawer", Activity, 300dip)
Drawer.CenterPanel.LoadLayout("1")
ToolbarHelper.Initialize
ToolbarHelper.ShowUpIndicator = True 'set to true to show the up arrow
Dim bd As BitmapDrawable
bd.Initialize(LoadBitmap(File.DirAssets, "hamburger.png"))
ToolbarHelper.UpIndicatorDrawable = bd
ACToolBarLight1.InitMenuListener
Drawer.LeftPanel.LoadLayout("Left")
For i = 1 To 30
ListView1.AddSingleLine("Item " & i)
Next
End Sub
Sub ACToolBarLight1_NavigationItemClick
Drawer.LeftOpen = Not(Drawer.LeftOpen)
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK And Drawer.LeftOpen Then
Drawer.LeftOpen = False
Return True
End If
Return False
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
ebraeim 8
B4A Version: 11.00 Parsing code. (0.01s) Java Version: 8 Building folders structure. (0.01s) Compiling code. (0.01s) Compiling layouts code. (0.11s) Organizing libraries. (0.00s) (AndroidX SDK) Compiling resources (15.13s) Linking resources (24.19s) Compiling generated Java code. (8.68s) Convert byte code - optimized dex. Error Uncaught translation error: com.android.dx.cf.code.SimException: invalid opcode ba (invokedynamic requires --min-sdk-version >= 26) Uncaught translation error: com.android.dx.cf.code.SimException: invalid opcode ba (invokedynamic requires --min-sdk-version >= 26) 2 errors; aborting
سلام
من یک سورس از این آدرس گرفتم که یک سورس برای منو است
اما هنگام خروجی گرفتن خطای بالا را می دهد من sdk را به android x اپدیت کرده ام و از جدیدترین نسخه b4a استفاده می کنم
ولی سورس هایی که در آنها کتابخانه AppCompat وجود دارد اصلا خروجی گرفته نمی شود
اینم لیست کدهاس سورس
#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 #Extends: android.support.v7.app.AppCompatActivity Sub Process_Globals End Sub Sub Globals Private ACToolBarLight1 As ACToolBarLight Private ToolbarHelper As ACActionBar Private Drawer As B4XDrawer Private ListView1 As ListView End Sub Sub Activity_Create(FirstTime As Boolean) Drawer.Initialize(Me, "Drawer", Activity, 300dip) Drawer.CenterPanel.LoadLayout("1") ToolbarHelper.Initialize ToolbarHelper.ShowUpIndicator = True 'set to true to show the up arrow Dim bd As BitmapDrawable bd.Initialize(LoadBitmap(File.DirAssets, "hamburger.png")) ToolbarHelper.UpIndicatorDrawable = bd ACToolBarLight1.InitMenuListener Drawer.LeftPanel.LoadLayout("Left") For i = 1 To 30 ListView1.AddSingleLine("Item " & i) Next End Sub Sub ACToolBarLight1_NavigationItemClick Drawer.LeftOpen = Not(Drawer.LeftOpen) End Sub Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = KeyCodes.KEYCODE_BACK And Drawer.LeftOpen Then Drawer.LeftOpen = False Return True End If Return False End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.