مشکل در نوشتن کد

[ali@ali 10]

سلام دوستان میخوام بدونم توی این کد

( کد یه منو )

#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


Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.


End Sub


Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim menu As SideMenuBar
Dim a As Typeface
Dim b As Bitmap
Dim i As Int = 0
Dim s As Object
End Sub


Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
b.Initialize(File.DirAssets,"logo.png")
a = Typeface.LoadFromAssets("dastnevis.otf")
menu.Initialize("gh",Me,50%x,True,a,Colors.RGB(184,163,0),b,1,Colors.Black)

menu.add_item("صفحه اصلی","",LoadBitmap(File.DirAssets,"Home.png"),1)
menu.add_item("درباره ما","",LoadBitmap(File.DirAssets,"person-icon.png"),2)
menu.add_item("ارتباط با ما","",LoadBitmap(File.DirAssets,"telephone-icon.png"),3)
menu.add_item("خروج","",LoadBitmap(File.DirAssets,"exit.png"),4)
menu.
menu.make(Activity)
End Sub


Sub Activity_Resume

End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub b_show_Click
If i = 0 Then
	menu.show

Else
	menu.hide

End If
End Sub


Sub gh_Opened()
i = 1
End Sub


Sub gh_Closed()
i = 0
End Sub


Sub gh_Click(Item As Object)

' INJA chejuri vase har kodom jodagane chizi tarif konam?

End Sub

چجوری برا قسمت Sub gh_Click(Item As Object)

برا هر کدوم از گزینه ها جداگانه کاری تعریف کنم؟؟

[مجید آرتا 5,874]

سلام

بنده سورسو ندارم که بدونم چطور عمل میکنه دوست عزیز!

سورسو پیوست کنید.

[ali@ali 10]

سلام

بنده سورسو ندارم که بدونم چطور عمل میکنه دوست عزیز!

سورسو پیوست کنید.

عاغا سورس همینه دگ

شما بگید چجوری باید برا

Sub gh_Click(Item As Object)

' INJA chejuri vase har kodom jodagane chizi tarif konam?

[color=#333333]End Sub[/color]

چیری تعریف کنسم..

مثلا با if میشه؟

[مجید آرتا 5,874]

ببخشید الان بنده نباید بدونم Item دقیقا ماله چیشه ؟

همینجوری بگم اینکارو بکن ؟ نباید کدی که مینویسیم تست کنیم درسته یا نه ؟

[nahid esmaelpour 18]

فک کنم تا به حال این کد رو صد جای دیگه دیدم و دقیقا همین سوال پرسیده شده.

من خوم یه کد دیگه نوشتم که براتون میزارم اونو بنویسید حله

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim slidingmenu1 As SlidingMenu
   Dim listview1 As ListView
   Dim font As Typeface
   Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("splash")
   font=Typeface.LoadFromAssets("byekan.ttf")
   slidingmenu1.Initialize("menu")
   listview1.Initialize("list")
   slidingmenu1.BehindOffset=35%x
   slidingmenu1.Mode=slidingmenu1.LEFT
   slidingmenu1.Menu.AddView(listview1,5,5dip,82%x,100%y)
   listview1.AddTwoLinesAndBitmap2("فهرست","",LoadBitmap(File.DirAssets,"fehrest.png"),1)
   listview1.AddTwoLinesAndBitmap2("تنظیمات","",LoadBitmap(File.DirAssets,"setting.png"),2)
   listview1.AddTwoLinesAndBitmap2("تماس با ما","",LoadBitmap(File.DirAssets,"about.png"),3)
   listview1.AddTwoLinesAndBitmap2("خروج","",LoadBitmap(File.DirAssets,"exit.png"),4)
   Dim lbl As Label
   lbl=listview1.TwoLinesAndBitmap.Label
   lbl.Color=Colors.RGB(245,159,188)
   lbl.Gravity=Gravity.RIGHT
   lbl.Left=lbl.Left-120dip
   lbl.TextSize=20
   lbl.Height=100
   lbl.Typeface=font
   lbl.Top=5
   lbl.TextColor=Colors.RGB(225,0,82)
   Button1.SetBackgroundImage(LoadBitmap(File.DirAssets,"slide.png"))

   Dim gra(2) As Int
   gra(0)=Colors.RGB(225,0,82)
   gra(1)=Colors.RGB(255,255,255)
   Dim grad1 As GradientDrawable
   grad1.Initialize("TOP_BOTTOM",gra)
   slidingmenu1.Menu.Background=grad1

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub list_ItemClick(Position As Int,Value As Object)
If Position=0 Then
   StartActivity(fehrest)
   slidingmenu1.HideMenus
Else If Position=1 Then 
   StartActivity(setting)
   slidingmenu1.HideMenus
Else If Position=2 Then
   StartActivity(about)
   slidingmenu1.HideMenus
Else If Position=3 Then
   ExitApplication
   slidingmenu1.HideMenus
End If 
End Sub
Sub Button1_Click
   If slidingmenu1.Visible=False Then
   slidingmenu1.ShowMenu
   Else If slidingmenu1.Visible=True Then
   slidingmenu1.HideMenus
   End If
End Sub

[امیرنیوکی 147]

منظورتونو نمیفهمم میخوایین چیکار کنین ؟

[محمدی 95]

منم دقیقا همینجا و همین مشکلو دارم

میخوام مثلا رو about زدم برم تو یه اکتیویتی دیگه اما نمیتونم کتابخونه این کد که ناهید داد هم ندارم اگه دارید لطفا پیوست کنید

[محمدی 95]

آقا مجید این کتابخونه و سورس برنامه لطفا راهنمایی کنید

http://s5.picofile.com/file/8141988642/SideMenuBar.rar.html

http://s5.picofile.com/file/8141988868/sidemenubar_ex.rar.html

[محمدی 95]

آقا مجید این کتابخونه و سورس برنامه لطفا راهنمایی کنید

http://s5.picofile.com/file/8141988642/SideMenuBar.rar.html

http://s5.picofile.com/file/8141988868/sidemenubar_ex.rar.html

پسوورد basic4android.org

[مجید آرتا 5,874]

سلام

خب واسه اینکه برای همه آیتم ها کد بنویسی به این شکل عمل می کنیم :

[b]
Sub gh_Click(Item As Object)
   Select Item
    Case 1
        Msgbox("صفحه اصلی","")
    Case 2
        Msgbox("درباره ما","")
    Case 3
        Msgbox("ارتباط با ما","")
    Case 4
        Msgbox("خروج","")
    End Select
End Sub[/b]

من واسه هر آیتم یک مسج باکس تعریف کردم.خب شما میتونید بجای مسج باکس اون اکتویتی مورد نظرتون رو باز کنید.

بازم مشکلی بود متوجه نشدید بگید