حلقه فور

[alaghemand 82]

با سلام من این کد رو پایین رو نوشتم اما وقتی اجرا میکنم نمی دونم چرا لیبلی که تگش = 0 است ثابت چسبیده به بالای صفحه یعنی وقتی صفحه رو روبه بالا میکشم این لیبله همین طوری حرکت میکنه ویعنی اگر خیلی هم برم پایین میاد روی لیبلی که تگش 4 است قرار میگیرد

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

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Label1 As Label
	Dim int1 As Int = 0%y
	Dim scrol As ScrollView
	Private Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	scrol.Initialize(100%y)
	Activity.AddView(scrol,0,0,100%x,100%y)
	For i = 0 To 3
		Dim p As Panel
		p.Initialize("p")
		scrol.Panel.AddView(p,0,int1,100%x,100%y)
		int1 = int1 + 50%y
		scrol.Panel.Height = int1
		Panel1.Tag = i
		Label1.Color = Colors.Red
		Label1.Text = i
		p.LoadLayout("main")
	Next

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

اشکال کارم کجاست ؟؟؟؟

 

راستی به غیر این اشکال یک لیبل هم اضافه تشکیل شده که رنگش سفید است اگر در کد های بالا توجه کنید م رنگ لیبل ها رو قرومز کردم

اما نمی دونم چرا اینطوری شده

[alaghemand 82]

آقا یه سوال مهم

من با استفاده از حلقه فور 10 تا باتن ساختم

حالا اگر بخام بگم اگر روی باتن چهارمی کلیک شد این اتفاق بیوفته

آیا این کد جواب میده ::::

sub button_click
select case
case 1
startactivity("main")
case 2
startactivity("seting")
case 3 
startactivity("bass")
.
.
.
.
.
.

آیا با این کد میشه رویداد کلیک بات هایی که با حلقه فور ساخته شدن رو کنترل کرد "؟؟؟؟

[امیرنیوکی 147]

باید با استفاده از  tag و sender این کار و کنین که توی انجمن هست باید جستجو کنین

http://answercenter.ir/topic/2807-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-tag-%D9%88-sender-%D8%AF%D8%B1-multi-panel/

 

این کدی ک شما دادین کاملا اشتباه هست شما اومدین case رو select کردین :nemidoonam:

[alaghemand 82]

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

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

یعنی بگید چه کدی باید بنویسم

[alaghemand 82]

کمک کنید لطفا

[مجید آرتا 5,874]

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

تاپیک جداگانه ایجاد کنید.

[alaghemand 82]

کسی نمی دونه ؟؟؟

[alaghemand 82]

آقای nemesis کد هایی که شما بهم دادید رو وقتی وارد میکنم درست کار میکنه

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

 

لطفا کد های بالا رو ببینید و بگویید مشکل کارم کجاست ؟؟؟

[Nemesis 1,846]

بخاطر اینه Dim int1 As Int = 0%y

 

تغییر بده به فاصله ای که میخوای از بالا داشته باشه مثال

Dim int1 As Int = 25%y

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

[alaghemand 82]

خیلی ممنون

شما درباره با time چیزی میدانید ؟؟؟

چون یه تاپ زدم 3 روز هست جواب نگرفتم

[Nemesis 1,846]

همونجا پاسخ دادم بهتون برادر

[alaghemand 82]

منظورم اینجا است

 

http://answercenter.ir/topic/3985-%D8%B3%D8%A7%D8%B9%D8%AA-%D9%85%D9%88%D8%A8%D8%A7%DB%8C%D9%84/

[Nemesis 1,846]

بررسی میکنم تو همون تایپیک جواب میدم