رفتن به مطلب
  • 0

مشکل با منو


mostafa.kasiri

سوال

با سلام 

 من یک منو متریال در پروزه ام گذاشتم اما وقتی منو رو اضافه می کنم برنامه بسته می شود اینم کد هام مشکل چی هست؟؟؟؟؟؟؟؟؟؟

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 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

بله کل سایت رو من زیرو رو کردم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

با سلام 

من الان فایل های اضافی رو پاک کردم و فقط الان یک منو متریال لازم دارم گفتم اگر تونستید منو رو اضضافه کنید و بعد سورس رو بدید اگر بتونید ممنون میشم 

چون خودم هر چه قدر تلاش کردم نشد

 

 

 

سورس::google.com.rar

 

 

 

ببخشد تاپیک رو بالا اوردم؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...