رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase
  • 0

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

mostafa.kasiri

سوال شده توسط mostafa.kasiri,

سوال

mostafa.kasiri

mostafa.kasiri 115

ارسال شده در
ارسال شده در

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

لطفا سریع کمک کنید خیلی کارم لنگه  

Dim pnlimg As Panel
Dim pnlpass As Panel

pnlpass.Initialize("pnlpass")
pnlpass.Color=Colors.RGB(16,100,107)
pnlimg.Initialize("pnlimg")
pnlimg.SetBackgroundImage(LoadBitmap(File.DirAssets,"icon-bar1.jpg"))

Dim pnlasli As Panel
slide.Initialize("slide")
List1.Initialize("List1")
pnlasli.Initialize("pnlasli")
pnlasli.Color=Colors.RGB(16,150,107)

List1.Color=Colors.White
Dim lbl1 As Label
lbl1=List1.TwoLinesAndBitmap.Label
lbl1.TextColor=Colors.Black
lbl1.TextSize="15"
Dim meghdar As Int = 40%x
slide.BehindOffset = meghdar
pnlasli.AddView(pnlpass,0%x,2%y,70%x,18%y)
pnlasli.AddView(pnlimg,18%x,2%y,32%x,18%y)
pnlasli.AddView(List1,0,22%y,100%x - meghdar,78%y)

slide.Menu.AddView(pnlasli,0,0,100%x - meghdar,100%y)
List1.AddTwoLinesAndBitmap("","",LoadBitmap(File.DirAssets,"lock-menu-final.png"))
List1.AddTwoLinesAndBitmap(" ها","",LoadBitmap(File.DirAssets,"update-menu-final.png"))
List1.AddTwoLinesAndBitmap("هات ","",LoadBitmap(File.DirAssets,"star-menu-final.png"))		
List1.AddTwoLinesAndBitmap("","",LoadBitmap(File.DirAssets,"share_menu-final.png"))
List1.AddTwoLinesAndBitmap("ل","",LoadBitmap(File.DirAssets,"exit-menu-final.png"))
List1.AddTwoLinesAndBitmap("خروج","",LoadBitmap(File.DirAssets,"exit-menu-final.png"))
Dim lbl3 As Label
lbl3=List1.SingleLineLayout.Label
lbl3.TextColor=Colors.Black
lbl3.Typeface=Typeface.DEFAULT_BOLD
lbl3.TextSize=17
lbl3.Gravity=Bit.Or( Gravity.CENTER,Gravity.BOTTOM)
Dim img As ImageView
img = List1.TwoLinesAndBitmap.ImageView
img.Left=List1.Width - img.Width-3dip
Dim lbl As Label
lbl=List1.TwoLinesAndBitmap.Label
'lbl.Gravity=Gravity.RIGHT
lbl.left=lbl.left-120dip
lbl.TextColor=Colors.Black
List1.TwoLinesAndBitmap.SecondLabel.Visible=False
List1.TwoLinesAndBitmap.Label.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.RIGHT)
List1.TwoLinesAndBitmap.ItemHeight=10%y
List1.TwoLinesAndBitmap.Label.Height=10%y
Dim gra(2) As Int
gra(0) = Colors.RGB(255,255,255)
gra(1) = Colors.RGB(255,255,255)	
Dim gradiant1 As GradientDrawable
gradiant1.Initialize("TOP_BOTTOM", gra)
slide.Menu.Background = gradiant1

 

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

4 پاسخ به این سوال تاکنون داده شده است

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

reza sabouri

reza sabouri 444

ارسال شده در
ارسال شده در

این برای راست چین کردن

 

Nav.Initialize2("nav",Activity,60%x,ahn.GRAVITY_RIGHT)

به جای این قرار بده ، نه رویداد کلیک

 

Nav.Initialize("nav",parentpanel,60%x)

 

. به این تاپیکم یه سری بزن ، شاید به دردت خورد

 

 

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

devvv 168

ارسال شده در
ارسال شده در
در 9 ساعت قبل، mostafa.kasiri گفته است :

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

لطفا سریع کمک کنید خیلی کارم لنگه  


Dim pnlimg As Panel
Dim pnlpass As Panel

pnlpass.Initialize("pnlpass")
pnlpass.Color=Colors.RGB(16,100,107)
pnlimg.Initialize("pnlimg")
pnlimg.SetBackgroundImage(LoadBitmap(File.DirAssets,"icon-bar1.jpg"))

Dim pnlasli As Panel
slide.Initialize("slide")
List1.Initialize("List1")
pnlasli.Initialize("pnlasli")
pnlasli.Color=Colors.RGB(16,150,107)

List1.Color=Colors.White
Dim lbl1 As Label
lbl1=List1.TwoLinesAndBitmap.Label
lbl1.TextColor=Colors.Black
lbl1.TextSize="15"
Dim meghdar As Int = 40%x
slide.BehindOffset = meghdar
pnlasli.AddView(pnlpass,0%x,2%y,70%x,18%y)
pnlasli.AddView(pnlimg,18%x,2%y,32%x,18%y)
pnlasli.AddView(List1,0,22%y,100%x - meghdar,78%y)

slide.Menu.AddView(pnlasli,0,0,100%x - meghdar,100%y)
List1.AddTwoLinesAndBitmap("","",LoadBitmap(File.DirAssets,"lock-menu-final.png"))
List1.AddTwoLinesAndBitmap(" ها","",LoadBitmap(File.DirAssets,"update-menu-final.png"))
List1.AddTwoLinesAndBitmap("هات ","",LoadBitmap(File.DirAssets,"star-menu-final.png"))		
List1.AddTwoLinesAndBitmap("","",LoadBitmap(File.DirAssets,"share_menu-final.png"))
List1.AddTwoLinesAndBitmap("ل","",LoadBitmap(File.DirAssets,"exit-menu-final.png"))
List1.AddTwoLinesAndBitmap("خروج","",LoadBitmap(File.DirAssets,"exit-menu-final.png"))
Dim lbl3 As Label
lbl3=List1.SingleLineLayout.Label
lbl3.TextColor=Colors.Black
lbl3.Typeface=Typeface.DEFAULT_BOLD
lbl3.TextSize=17
lbl3.Gravity=Bit.Or( Gravity.CENTER,Gravity.BOTTOM)
Dim img As ImageView
img = List1.TwoLinesAndBitmap.ImageView
img.Left=List1.Width - img.Width-3dip
Dim lbl As Label
lbl=List1.TwoLinesAndBitmap.Label
'lbl.Gravity=Gravity.RIGHT
lbl.left=lbl.left-120dip
lbl.TextColor=Colors.Black
List1.TwoLinesAndBitmap.SecondLabel.Visible=False
List1.TwoLinesAndBitmap.Label.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.RIGHT)
List1.TwoLinesAndBitmap.ItemHeight=10%y
List1.TwoLinesAndBitmap.Label.Height=10%y
Dim gra(2) As Int
gra(0) = Colors.RGB(255,255,255)
gra(1) = Colors.RGB(255,255,255)	
Dim gradiant1 As GradientDrawable
gradiant1.Initialize("TOP_BOTTOM", gra)
slide.Menu.Background = gradiant1

 

سلام دوست من اگه براتون مقدوره از این منو راستچین استفاده کنید(100%متریال هست):

موفق باشید!!

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

mostafa.kasiri 115

ارسال شده در
  • سازنده
ارسال شده در

ببخشید من منو رو عوض کردم یک دونه بهتر میدا کردم متریال فقط این رو می خوام راست چین کنم نمیتونم 

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim Nav As AHNavigationDrawer
	Dim parentpanel As Panel
	Private ListView1 As ListView
	Private ImageView1 As ImageView
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
parentpanel.Initialize("")
Activity.Title="basic4android.org"
Activity.AddView(parentpanel,0,0,100%x,100%Y)
	
Nav.Initialize("nav",parentpanel,60%x)
Nav.ContentPanel.LoadLayout("Main")
Nav.NavigationPanel.LoadLayout("navigationpanel")
Nav.SetEdgeSize(Nav.GRAVITY_END,100dip)

ImageView1.Bitmap=LoadBitmap(File.DirAssets,"abstract-colored-lines-red-material-design-triangles-lilac-background1.jpg")

ListView1.AddTwoLines("basic4android",1)
ListView1.AddTwoLines("basic4android",2)
ListView1.AddTwoLines("basic4android",3)
ListView1.AddTwoLines("basic4android",4)
ListView1.TwoLinesLayout.Label.textColor=Colors.Black
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
	ToastMessageShow(Position & " Clicked",False)
End Sub
Sub Button1_Click
Nav.Initialize2("navi",Activity,75%x,Nav.GRAVITY_RIGHT)
End Sub

تو رویداد باتن خودم این رو دادم اما نشد چی کار کنم؟

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

بایگانی شده

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

رفتن به لیست سوال ها

  • کاربران آنلاین در این صفحه   0 کاربر

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