سلام خسته نباشید.من دارم از نسخه 6 بیسیک و نسخه 3.2 appcompat استفاده می کنم.توی مرحله ریسورس ها موندم. این کد های منه:
'#AdditionalRes:C:\Users\amirmahdi\Downloads\Telegram Desktop\support\v7\cardview\res
'#AdditionalRes: ..\resource
#AdditionalRes:C:\Users\amirmahdi\Desktop\basic4andoid\Resource\MSRes
#Extends: android.support.v7.app.ActionBarActivity
''////////basic4android.org////
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private Panel1 As Panel
Private ActionBar As ACToolBarLight
Dim ph As Phone
Dim Flash As AdvancedCamera
Dim ABHelper As ACActionBar
Dim AC As AppCompat
Private Label1 As Label
Dim AC As AppCompat
Dim ABHelper As ACActionBar
Private ActionBar As ACToolBarLight
Private pContent As Panel
Private EditText1 As EditText
Private ACSwitch1 As ACSwitch
Private lablech As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
ActionBar.SetAsActionBar
ActionBar.Title = "Telegram User Searcher"
ActionBar.Color = Colors.RGB(90,149,255)
pContent.LoadLayout("main")
ABHelper.Initialize
ABHelper.ShowUpIndicator = True
Log("ActionBar Height: " & (AC.GetMaterialActionBarHeight / DipToCurrent(1)))
Activity.AddMenuItem("ارتباط با ما", "over1")
Activity.AddMenuItem("در باره ما", "over2")
Activity.AddMenuItem("خروج", "over3")
Flash.Initialize(Panel1, "Flash")
Panel1.Visible=False
End Sub
Sub over1_Click
StartActivity(email)
End Sub
Sub over2_Click
Dim elyas As PhoneIntents
StartActivity(elyas.OpenBrowser("http://answercenter.ir"))
End Sub
Sub over3_Click
ExitApplication
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub cbABVisible_CheckedChange(Checked As Boolean)
If Checked Then
ActionBar.SetLayoutAnimated(200, 0, 0, 100%x, AC.GetMaterialActionBarHeight)
ActionBar.SetVisibleAnimated(200, True)
pContent.SetLayoutAnimated(200, 0, AC.GetMaterialActionBarHeight, 100%x, 100%y - AC.GetMaterialActionBarHeight)
Else
ActionBar.SetLayoutAnimated(200, 0, 0, 100%x, 1dip)
ActionBar.SetVisibleAnimated(200, False)
pContent.SetLayoutAnimated(200, 0, 0, 100%x, 100%y)
End If
این هم ارور برنامه است که هر کاری می کنم همین ارور رو میده:
اینهم منیفست:
'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="7" android:targetSdkVersion="21"/>
<supports-screens android:largeScreens="true"
android:normalScreens="true"
android:smallScreens="true"
android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
'End of default text.
SetApplicationAttribute(android:theme, "@style/MyAppTheme")
CreateResource(values, theme.xml,
<resources>
<style name="MyAppTheme" parent="Theme.AppCompat.Light.NoActionBar">
<item name="colorPrimary">#0098FF</item>
<item name="colorPrimaryDark">#007CF5</item>
<item name="colorAccent">#AAAA00</item>
<item name="windowNoTitle">true</item>
'<item name="windowActionBar">false</item>
</style>
</resources>
)
AddPermission(android.permission.WRITE_SETTINGS)
سوال
amirmahdi3744 5
سلام خسته نباشید.من دارم از نسخه 6 بیسیک و نسخه 3.2 appcompat استفاده می کنم.توی مرحله ریسورس ها موندم. این کد های منه:
این هم ارور برنامه است که هر کاری می کنم همین ارور رو میده:
اینهم منیفست:
دیگه مونده ام چکار کنم خواهش می کنم کمکم کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.