سلام خسته نباشید.من دارم از نسخه 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 استفاده می کنم.توی مرحله ریسورس ها موندم. این کد های منه:
'#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این هم ارور برنامه است که هر کاری می کنم همین ارور رو میده:
اینهم منیفست:
دیگه مونده ام چکار کنم خواهش می کنم کمکم کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.