رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • 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

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

سوال

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

تازه کارم

 

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

 

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

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

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


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

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

Recommended Posts

  • 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

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


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

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


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

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

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

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

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

 

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

 

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

Showpome_list.Panel.AddView(lab,0,top+2,55%x,20%x)

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


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

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

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

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


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

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

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

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


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

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


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

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

lab.Color=Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))
lab.Text=i

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


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

ممنونم داداش

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

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

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

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


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

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


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

ممنونم داداش

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

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

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

 

 

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

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


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

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

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

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

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

 

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

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


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

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

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

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

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

 

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

 

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

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


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

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

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

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


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

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

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

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

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

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


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

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

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

 

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

 

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

.

 

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

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

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


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

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

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

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

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

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

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

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

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

×