من یک منو متریال در پروزه ام گذاشتم اما وقتی منو رو اضافه می کنم برنامه بسته می شود اینم کد هام مشکل چی هست؟؟؟؟؟؟؟؟؟؟
Sub Globals
Dim STR As AHSwipeToRefresh
Private ime1 As IME
Private webview1 As WebView
Private ActivityParent As JavaObject
Dim aria As AriaLib
Private Panel1 As Panel
Dim navi As AHNavigationDrawer
Dim pCantent As Panel
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L111")
webview1.Initialize("")
STR.AddView(webview1)
slide
STR.SetColorScheme2(Array As Int (Colors.Red, Colors.Blue, Colors.Green, Colors.Cyan, Colors.Magenta, Colors.Yellow))
RefreshListView
If aria.TestInterntConnection = False Then
ToastMessageShow("اینترنت شما قطع است",False)
StartActivity("main3")
Activity.Finish
End If
end sub
Sub Activity_Resume
AfterChange
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Menu_Click
Log("Manual Refresh")
STR.Refreshing = True
STR_Refresh
End Sub
Sub STR_Refresh
Log("Refresh started")
tm.Initialize("Timer", 5000)
tm.Enabled = True
STR.Enabled = False
End Sub
Sub Timer_Tick
Log("Refresh stopped")
tm.Enabled = False
RefreshListView
STR.Refreshing = False
STR.Enabled = True
End Sub
Sub RefreshListView
webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟")
If aria.TestInterntConnection = False Then
ToastMessageShow("اینترنت شما قطع است",False)
StartActivity(main3)
Activity.Finish
End If
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYcode_BACK Then
Dim i As Int
i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)'
If i = DialogResponse.POSITIVE Then
ExitApplication
Else If i = DialogResponse.CANCEL Then
Return True
Else If i = DialogResponse.NEGATIVE Then
End If
Else If KeyCode = KeyCodes.KEYCODE_MENU Then
End If
End Sub
Sub slide
navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_RIGHT)
navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241)
navi.NavigationPanel.LoadLayout("menu")
pCantent.Initialize("")
navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y)
pCantent.SendToBack
pCantent.LoadLayout("l111")
pCantent.Color = Colors.RGB(234,234,234)
End Sub
Sub Panelmenu_Touch (Action As Int, X As Float, Y As Float)
End Sub
سوال
mostafa.kasiri 115
با سلام
من یک منو متریال در پروزه ام گذاشتم اما وقتی منو رو اضافه می کنم برنامه بسته می شود اینم کد هام مشکل چی هست؟؟؟؟؟؟؟؟؟؟
Sub Globals Dim STR As AHSwipeToRefresh Private ime1 As IME Private webview1 As WebView Private ActivityParent As JavaObject Dim aria As AriaLib Private Panel1 As Panel Dim navi As AHNavigationDrawer Dim pCantent As Panel Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("L111") webview1.Initialize("") STR.AddView(webview1) slide STR.SetColorScheme2(Array As Int (Colors.Red, Colors.Blue, Colors.Green, Colors.Cyan, Colors.Magenta, Colors.Yellow)) RefreshListView If aria.TestInterntConnection = False Then ToastMessageShow("اینترنت شما قطع است",False) StartActivity("main3") Activity.Finish End If end sub Sub Activity_Resume AfterChange End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Menu_Click Log("Manual Refresh") STR.Refreshing = True STR_Refresh End Sub Sub STR_Refresh Log("Refresh started") tm.Initialize("Timer", 5000) tm.Enabled = True STR.Enabled = False End Sub Sub Timer_Tick Log("Refresh stopped") tm.Enabled = False RefreshListView STR.Refreshing = False STR.Enabled = True End Sub Sub RefreshListView webview1.LoadUrl("؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟") If aria.TestInterntConnection = False Then ToastMessageShow("اینترنت شما قطع است",False) StartActivity(main3) Activity.Finish End If End Sub Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = KeyCodes.KEYcode_BACK Then Dim i As Int i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)' If i = DialogResponse.POSITIVE Then ExitApplication Else If i = DialogResponse.CANCEL Then Return True Else If i = DialogResponse.NEGATIVE Then End If Else If KeyCode = KeyCodes.KEYCODE_MENU Then End If End Sub Sub slide navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_RIGHT) navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241) navi.NavigationPanel.LoadLayout("menu") pCantent.Initialize("") navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y) pCantent.SendToBack pCantent.LoadLayout("l111") pCantent.Color = Colors.RGB(234,234,234) End Sub Sub Panelmenu_Touch (Action As Int, X As Float, Y As Float) End Subکد های اضافی حذف شد (ویرایش شد)
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.