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

کار با ویوو های رانتایم


mehran7880

سوال

سلام. خسته نباشید

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

ممنون

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

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

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

در 7 ساعت قبل، reza644 گفته است :

سلام

 

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

و شرط بزاری 

توی رویداد کلیک روی باتن:

Dim lbl as sender

Then یکی از متن های لیبل=If lbl.text

رویداد

End if

همینطوری ادامه بدید...


ممنون ولی من وقتی میخوام متغیری به اسم sender تعریف کنم اصلا sender رو نمیاره. باید کتابخانه خاصی اضافه کنم؟

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

در 21 دقیقه قبل، mehran7880 گفته است :

سلام. خسته نباشید

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

ممنون

سلام از لیست ویو استفاده کردید؟؟؟

 

اگه از لیست ویو استفاده کردید با دستور زیر میشه فهمید:

Sub Globals
    Dim ListView1 As ListView
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
    Activity.Title = Value
End Sub

و اگر استفاده نکردید اینم ی قطعه کد مختصر :

Sub Globals
    Dim ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ListView1.Initialize("ListView1")
    For i = 1 To 300
        ListView1.AddSingleLine("Item #" & i)
    Next
    Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
    Activity.Title = Value
End Sub

 موفق باشید.

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

در ۱ ساعت قبل، mehran7880 گفته است :

سلام. خسته نباشید

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

ممنون

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

 

اینم آموزشش

 

 

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

در 12 ساعت قبل، hawax324 گفته است :

سلام از لیست ویو استفاده کردید؟؟؟

 

اگه از لیست ویو استفاده کردید با دستور زیر میشه فهمید:


Sub Globals
    Dim ListView1 As ListView
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
    Activity.Title = Value
End Sub

و اگر استفاده نکردید اینم ی قطعه کد مختصر :


Sub Globals
    Dim ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    ListView1.Initialize("ListView1")
    For i = 1 To 300
        ListView1.AddSingleLine("Item #" & i)
    Next
    Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
    Activity.Title = Value
End Sub

 موفق باشید.


 

در 10 ساعت قبل، reza644 گفته است :

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

 

اینم آموزشش

 

 

 

من این کار رو به این شکل انجام دادم

    Main.CR=Main.SQL.ExecQuery("select * from tblLabel where Parent='"&Parent&"'")
    For i = 1 To Main.CR.RowCount
		Main.CR.Position=i-1
        Dim chk As CheckBox
        chk.Initialize("")
        chk.Tag=Main.CR.GetString("Id")
		For i=1 To Useful.Split2(txtLabel.Tag,"-")
			If Useful.Split(txtLabel.Tag,"-",i)=chk.Tag Then chk.Checked=True
		Next
        lstChecks.Add(chk)
        Dim lbl1 As Label
		lbl1.Initialize("lbLabelName")
		lbl1.Tag=Main.CR.GetString("Id")
		lbl1.TextColor=Colors.White
        lbl1.Text = Main.CR.GetString("Name")
        lbl1.Gravity = Gravity.RIGHT
        pnlnew.AddView(chk, 80%x, height * (i - 1), 7%x, height)
        pnlnew.AddView(lbl1, 0, height * (i - 1), 80%x, height)
    Next

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

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

سلام

 

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

و شرط بزاری 

توی رویداد کلیک روی باتن:

Dim lbl as sender

Then یکی از متن های لیبل=If lbl.text

رویداد

End if

همینطوری ادامه بدید...

 

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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