• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 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
پسند شده توسط mohammad2020 و salmana

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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)
پسند شده توسط aravb45 و mohammad2020

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 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  میکنی بعد حلقه میزنی

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

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


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

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

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

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

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

 

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

پسند شده توسط aravb45

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


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

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

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

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

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

 

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

 

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

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

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


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

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

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

پسند شده توسط aravb45

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


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

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

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

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

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

پسند شده توسط aravb45

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


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

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

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

 

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

 

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

.

 

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

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

پسند شده توسط aravb45

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


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

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

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

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

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


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

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

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


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