اسکرول ویو

سوال

سلام دوستان

خسته نباشید

من می خوام یه دفترچه تلفن درست کنم که شماره تلفن، نام، نسبت، آیکون تلفن برای برقرای تماس و id رکورد در یک سطر نمایش داده بشن

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

هرطور کد می نویسم رکوردها رو نشون نمیده

حل شد 0
, 2019-09-06T01:35:51+03:30 4 پاسخ کاربر 1

پاسخ ها ( 4 )

    0
    2019-09-06T18:21:08+03:30

    سلام.

    میتونی توی لیست ویو و یا مولتی پنل نمایش بدی

    کدای خودت چی هست؟

    بهترین پاسخ
    0
    2019-09-06T20:21:25+03:30

    سلام مجدد

    ممنونم از جوابتون

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

    گیچم کردن

    Sub Globals
    	Private lblback As Label
    	Private lvnames As ListView
    	Private slvnames As ScrollView
    	Private pnlheader As Panel
    End Sub
    
    Sub Activity_Create(FirstTime As Boolean)
    	Activity.LoadLayout("lsiyasi")
    '---------------------------------------------------------------------------------
    	Dim slvpnl1 As Panel
    	slvpnl1.Initialize("slvpnl1")
    	slvpnl1.Color=Colors.Gray
    	slvpnl1.Left=0%x
    	slvpnl1.SetLayout(0%x,0%y,100%x,15%y)
    	slvnames.Panel.AddView(slvpnl1,0%x,0%y,100%x,100%y)
    	
    	Dim lblphone As Label
    	lblphone.Initialize("lblphone")
    	lblphone.Typeface=Typeface.MATERIALICONS
    	lblphone.Text=Chr(0xE0CD)
    	lblphone.TextColor=Colors.Red
    	lblphone.Color=Colors.Blue
    	lblphone.TextSize=30
    	lblphone.SetBackgroundImage(LoadBitmap(File.DirAssets,"btnopen1.png"))
    	lblphone.Gravity=Gravity.CENTER
    	slvnames.Panel.AddView(lblphone,1%x,3%y,15%x,12%y)
    
    	
    	Dim lblnam As Label
    	lblnam.Initialize("lblnam")
    	lblnam.Typeface=Typeface.LoadFromAssets("btraffic.ttf")
    	lblnam.Text=("حامد")
    	lblnam.TextColor=Colors.Blue
    	lblnam.TextSize=20
    	lblnam.Gravity=Gravity.CENTER
    	lblnam.Color=Colors.Yellow
    	slvnames.Panel.AddView(lblnam,17%x,1%y,70%x,7%y)
    	
    	Dim lblID As Label
    	lblID.Initialize("lblID")
    	lblID.Typeface=Typeface.LoadFromAssets("btraffic.ttf")
    	lblID.Text=("1")
    	lblID.TextColor=Colors.Blue
    	lblID.TextSize=20
    	lblID.Gravity=Gravity.CENTER
    	lblID.Color=Colors.Red
    	slvnames.Panel.AddView(lblID,lblnam.Width+2,1%y,83%x,15%y)
    	
    	Dim lblsemat As Label
    	lblsemat.Initialize("lblsemat")
    	lblsemat.Typeface=Typeface.LoadFromAssets("btraffic.ttf")
    	lblsemat.Text=("دبیر")
    	lblsemat.TextColor=Colors.Blue
    	lblsemat.TextSize=20
    	lblsemat.Gravity=Gravity.CENTER
    	lblsemat.Color=Colors.Yellow
    	slvnames.Panel.AddView(lblsemat,17%x,8%y,70%x,15%y)

     

    0
    2019-09-07T21:52:33+03:30

    مگه از دیتابیس آفلاین استفاده نمیکنی؟

      0
      2019-09-08T14:42:39+03:30

      بله از دیتابیس آفلاین استفاده میکنم

        0
        2019-09-08T22:00:28+03:30

        خب پس چرا توی این کدهایی که نوشتی من اثری از آدرس دهی به دیتابیس آفلاین نمیبینم؟!

    2
    2019-09-09T14:34:14+03:30

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

    مولتی پنل بهتر از روش قبلی منه، دستم بازتره

ارسال یک پاسخ