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

[mehran7880 33]

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

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

ممنون

[mehran7880 33]

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

سلام

 

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

و شرط بزاری 

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

Dim lbl as sender

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

رویداد

End if

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

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

[محمد معین عبدی 255]

در 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

 موفق باشید.

[reza644 435]

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

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

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

ممنون

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

 

اینم آموزشش

 

 

[mehran7880 33]

در 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

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

[reza644 435]

سلام

 

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

و شرط بزاری 

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

Dim lbl as sender

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

رویداد

End if

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