• 0
mohammad2020

اسکرول کردن لیبل های درون پنل

سوال

سلام دوستان گرامی ممنون می شم این مشکلم رو حل کنید

تازه کارم

 

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

 

ممنون میشم کمکم کنید

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

aravb45 پسند دیده است

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


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

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

  • 0

اینجور کار کن

For i=0 To 40
	Dim height As Int
	Dim lab As Label
	lab.Initialize("lab")
	Showpome_list.Panel.AddView(lab,0,top+2,55%x,20%x)
	top=top+20%y
Next

Showpome_list.Panel.height=top
salmana و mohammad2020 پسند شده است

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


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

 

اینجور کار کن

For i=0 To 40
	Dim height As Int
	Dim lab As Label
	lab.Initialize("lab")
	Showpome_list.Panel.AddView(lab,0,top+2,55%x,20%x)
	top=top+20%y
Next

Showpome_list.Panel.height=top

ممنونم داداشم بابت كمكت

با اين كار يعني ديگه نيازي نيست ليبل ها رو داخل پنل بزارم ؟بايد بيرون پنل بزارم ؟؟

و بايد براي هر ليبل اين كد رو بنويسم ؟

چون ميخوام ليبل ها در سه سطر و 15 ستون نمايش داده بشن

aravb45 پسند دیده است

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


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

ممنونم داداشم بابت كمكت

با اين كار يعني ديگه نيازي نيست ليبل ها رو داخل پنل بزارم ؟بايد بيرون پنل بزارم ؟؟

و بايد براي هر ليبل اين كد رو بنويسم ؟

چون ميخوام ليبل ها در سه سطر و 15 ستون نمايش داده بشن

 

نه دیگه اگر فقط لیبله همین کافیه

 

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

Showpome_list.Panel.AddView(lab,0,top+2,55%x,20%x)
mohammad2020 و aravb45 پسند شده است

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


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

فکر نکنم داداش از پسش بر بیام تازه کارم

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

aravb45 پسند دیده است

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


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

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

می سازمش اما اسکرول نمیشه 

aravb45 پسند دیده است

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


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

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

می سازمش اما اسکرول نمیشه 

 

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

Sub Activity_Create(FirstTime As Boolean)	
Dim top,left As Int
top=0:left=0
Dim scr As ScrollView
scr.Initialize(0)
Activity.AddView(scr,0,0,100%x,100%y)
For i=1 To 100
Dim lab As Label
lab.Initialize("lab")
scr.Panel.AddView(lab,left,top,30%x,10%x)
left=left+31%x
lab.Color=Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))
lab.Text=i
If i Mod 3 =0 Then
left=0
top=top+11%x
End If
top=top+11%x
scr.Panel.Height=top
Next
End Sub

aravb45 و mohammad2020 پسند شده است

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


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

کدای زیر رو برای بهتر متوجه شدن گذاشتم که قشنگ ببینی

lab.Color=Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))
lab.Text=i
mohammad2020 و aravb45 پسند شده است

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


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

ممنونم داداش

فقط چندتا مشکل دارم

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

دوم این که بخوام به این ها هر کدام مقداری بدم باید از دستور سلکت استفاده کنم ؟؟

aravb45 پسند دیده است

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


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

ممنونم داداش

فقط چندتا مشکل دارم

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

دوم این که بخوام به این ها هر کدام مقداری بدم باید از دستور سلکت استفاده کنم ؟؟

 

اولیش

 

اگه منظورت اینجوریه

 

photo_2016_12_02_17_14_22.jpg

 

کدت میشه این

Sub Activity_Create(FirstTime As Boolean)
Dim top,left As Int
top=0:left=0
Dim scr As ScrollView
scr.Initialize(0)
Activity.AddView(scr,0,0,100%x,100%y)
For i=1 To 100
Dim lab As Label
lab.Initialize("lab")
scr.Panel.AddView(lab,left,top,30%x,10%x)
left=left+31%x
lab.Color=Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))
lab.Text=i
If i Mod 3 =0 Then
left=0
top=top+11%x
End If
Next
top=top+11%x
scr.Panel.Height=top

End Sub
mohammad2020 و aravb45 پسند شده است

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


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

ممنونم داداش

فقط چندتا مشکل دارم

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

دوم این که بخوام به این ها هر کدام مقداری بدم باید از دستور سلکت استفاده کنم ؟؟

 

 

واسه دومی اگه دیتا بیس داری اول قبل حلقه select  میکنی بعد حلقه میزنی

aravb45 و mohammad2020 پسند شده است

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


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

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

 متاستفانه دیتا بیس ندارم

نمی تونم بهشون  نوشته بدم 

اگه دو تاشون رو بهشون نوشته اضافه کنی  و کدش رو بزاری ممنون میشم 

 

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

aravb45 پسند دیده است

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


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

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

 متاستفانه دیتا بیس ندارم

نمی تونم بهشون  نوشته بدم 

اگه دو تاشون رو بهشون نوشته اضافه کنی  و کدش رو بزاری ممنون میشم 

 

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

 

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

mohammad2020 و aravb45 پسند شده است

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


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

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

اما نمیدونم چطوری داخل این لیبل های که ایجاد شده بزارم

aravb45 پسند دیده است

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


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

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

اما نمیدونم چطوری داخل این لیبل های که ایجاد شده بزارم

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

حالا یا تو دیتا بیس یا تو فایل تکست

aravb45 پسند دیده است

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


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

اخه اگه بخوام از روي تكست بخونه خيلي زياد ميشه

تازه ميخوام شرطي كنم براي هر كدام از اين ليبل ها رو

 

يعني ميخوام وصلش كنم به اسپيمر اسمپير هر ايندكسي رو نشون داد متن مربوط به اون نمايش داده بشه در اون ليبل

 

به خاطر اين كمي قاطي كردم

.

 

اگه ميشد ليبل ها رو داخل پنل گذاشت و پنل رو اسكرول كرد خيلي راحت مي تونستم ادامه كار ها رو انجام بدم

اما اين طوري كه با حلقه ليبل ساخته ميشه و با حلقه متن بزارم رو بلد نيستم

aravb45 پسند دیده است

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری