ساب در فور

[Yasin_m 1]

فرض کنید ده تا باتن رو اینجوری داریم

Dim b(10) as buttonFor I = 0 to 9B(i).initialize("b(" & I & ")")NextB(1).text="ab1"B(2).text="bc1"......

چطوری رویداد کلیک رو تعریف کنیم؟

به طوری که وقتی رو دکمه b(1) کلیک شد متنشو نشون بده.

ایا میشه یه ساب رو در حلقه فور گذاشت؟

[smart 43]

فرض کنید ده تا باتن رو اینجوری داریم

Dim b(10) as buttonFor I = 0 to 9B(i).initialize("b(" & I & ")")NextB(1).text="ab1"B(2).text="bc1"......

چطوری رویداد کلیک رو تعریف کنیم؟

به طوری که وقتی رو دکمه b(1) کلیک شد متنشو نشون بده.

ایا میشه یه ساب رو در حلقه فور گذاشت؟

 

با سلام

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

 

و یک باتن بیشتر نیاز نیس

داخل Process_Globals یه متغیر به هر اسمی تعریف کن

بعد داخل حلقه ی for این کد رو اضافه کن

 

Button1.Tag=i

و داخل sub کلیک اون باتن این کد رو بنویس

 

Sub Button1_Click
	
	Dim iz As Button
	iz=Sender

	meghdar=iz.Tag
	StartActivity(text)
End Sub

و بعد داخل اکتیویتی text میتونی با استفاده از متغیر meghdar میتونی متن رو بگیری

مثلا اگه بخوای از دیتا بیس بگیری کدش اینطوریه ( البته این کد مال کتابخونه ی فراخوانیه )

 

fa.FarakhaniMatn("db.db",sql1,cur,"SELECT * FROM tbl where id=",Main.meghdar+1,lbl,"txt")

[Yasin_m 1]

با سلام

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

 

و یک باتن بیشتر نیاز نیس

داخل Process_Globals یه متغیر به هر اسمی تعریف کن

بعد داخل حلقه ی for این کد رو اضافه کن

 

Button1.Tag=i

و داخل sub کلیک اون باتن این کد رو بنویس

 

Sub Button1_Click
	
	Dim iz As Button
	iz=Sender

	meghdar=iz.Tag
	StartActivity(text)
End Sub

و بعد داخل اکتیویتی text میتونی با استفاده از متغیر meghdar میتونی متن رو بگیری

مثلا اگه بخوای از دیتا بیس بگیری کدش اینطوریه ( البته این کد مال کتابخونه ی فراخوانیه )

 

fa.FarakhaniMatn("db.db",sql1,cur,"SELECT * FROM tbl where id=",Main.meghdar+1,lbl,"txt")

Sender چیه؟

میشه کلا کد کامل بدید؟

[smart 43]

بفرمایید

دانلود