menu ابشاری و نصف صفحه

[mostafa.kasiri 115]

سلام

من دو سوال داشتم

من چه طوری باید منو ابشاری درست کنم؟

و سوال دوم چه طوری باید منو نصف صفحه  درست کنم مثل تلگرام که وقتی رو سه تا خط میزنیم مینو تا نصف صفحه بیشتر میاد 

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[Elyas Erfani 3,582]

مرسی اقا الیاس

من یک اسپینر اضافه کردم

ولی چه طوری زیر گروه وارد کنم؟

 

خواهش

Dim Spinner1 As Spinner
Spinner1.Initialize("")
Spinner1.AddAll(Array As String("Item1","Item2","Item2"))

Sub Spinner1_ItemClick (Position As Int, Value As Object)
	Select Position
	Case 0
	ToastMessageShow("Item1",False)
	Case 1 
	ToastMessageShow("Item2",False)
	Case 2
	ToastMessageShow("Item3",False)
	End Select
End Sub

[yasin011 285]

سلام

بفرما

http://answercenter.ir/topic/4864-%D9%85%D9%86%D9%88%DB%8C-%D9%85%D8%AB%D9%84-%D8%A8%D8%A7%D8%B2%D8%A7%D8%B1/

[Elyas Erfani 3,582]

درود

 

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

 

راه ها و روش های زیادی تو انجمن واسه انجام این کار هست ی جست و جو بزنید امصال این تاپیکا پیدا میکنید

 

 

http://answercenter.ir/topic/4864-%D9%85%D9%86%D9%88%DB%8C-%D9%85%D8%AB%D9%84-%D8%A8%D8%A7%D8%B2%D8%A7%D8%B1/

 

 

http://answercenter.ir/topic/7383-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A7%D8%B3%D9%84%D8%A7%DB%8C%D8%AF-%D9%85%D9%86%D9%88-%D8%AD%D8%B1%D9%81%D9%87-%D8%A7%DB%8C-%D9%85%D8%AA%D8%B1%DB%8C%D8%A7%D9%84/#entry48796

 

 

http://answercenter.ir/topic/6095-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-farslib-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%A7%D8%B3%D9%84%D8%A7%DB%8C%D8%AF-%D9%85%D9%86%D9%88-%D8%B3%D9%88%D8%B1%D8%B3/

[mostafa.kasiri 115]

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

[mostafa.kasiri 115]

اگر بتونید فیلم آموزش بزارید خیلی خوبه 

میخوام بفهمم

[Radius 89]

فکر کنم منظورتون Spinner هست

توی انجمن بگردید بیدا میشه

[Elyas Erfani 3,582]

دوست عزیز یکم صبور باشید بیخودی اسپم تلفظ نکنید

 

منوی اسلاید از بالا ب پایین فقط ی جور بنده بلدم

 

کتابخانه Ks3B4aObject رو فعال کنید

Sub Globals
	Dim sv As KsSlideHolder
	Dim svPanel As Panel
	Dim svMain As KsScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("mainlayout")
	sv.Initialize(50%x, 100%y) 
	sv.Direction = sv.DIRECTION_RIGHT
	Activity.AddView(sv, 0,0,100%x, 100%y)
	Dim lab As Label
	lab.Initialize("")
	lab.Text= "aaaa"
	lab.Color = Colors.Blue
	sv.PanelMenu.AddView(lab, 0, 0,sv.PanelMenu.Width, 100%y)
	svMain.Initialize(150%y)
	sv.PanelMain.AddView(svMain, 0,0, sv.PanelMain.Width, sv.PanelMain.Height)
	svMain.VerticalFadingEdgeEnabled = False
	svMain.HorizontalFadingEdgeEnabled = False
	svMain.Color = Colors.Blue
svMain.ViewPanelTop = 100dip
	svMain.Panel.LoadLayout("sublayout")
	svMain.Panel.Height = svPanel.Height
End Sub

[mostafa.kasiri 115]

مرسی اقا الیاس

من یک اسپینر اضافه کردم

ولی چه طوری زیر گروه وارد کنم؟

[mostafa.kasiri 115]

مرسی

-------

عزیزم به جای مرسی، روی پسندیدم کلیک کنید یا کلا هیچی، اسپم ندید عزیزم