رفتن به مطلب
  • 0

ساب در فور


Yasin_m

سوال

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

Dim b(10) as buttonFor I = 0 to 9B(i).initialize("b(" & I & ")")NextB(1).text="ab1"B(2).text="bc1"......
چطوری رویداد کلیک رو تعریف کنیم؟

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

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

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

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

ارسال های توصیه شده

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

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

با سلام

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

 

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

داخل 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 چیه؟

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

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

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...