استفاده از Tag و Sender در Multi Panel

[Farzad Musavi 576]

آقا واقعا مچکرم ولی لینکی که گذاشتید کار نمیکنه. خرابه

اگه میشه ی آموزش از ابتدا ب من معرفی کنید

لینک کاملا سالمه الان تست کردم

[shahab.es 5,429]

سلام

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

خدمت شما

http://answercenter.ir/topic/2213-آموزش-تصویری-ساخت-و-خواندن-اطلاعات-دیتابیس-با-multi-panel/

[puya017 0]

با سلام
 
خواهش می کنم کمک کنید :
 
من یک برنامه رینگتون میخوام بسازم با مولتی پنل که جلوی اسم هر آهنگ دو تا ایمیج ویو قرار داره که روی هم هستن و در ابتدا ایمیج ویو دوم در حالت پنهان هست میخوام با کلیک روی ایمج ویو اول ایمیج ویو دوم ظاهر بشه و اولی پنهان
من کد زیر رو در ساب کلیک ایمج ویو اول نوشتم اما به جای اینکه ایمیج ویویی که روش کلیک میشه عکس عوض بشه میره آخرین پنل رو عکسشو عوض میکنه

Sub ImageView1_Click
    
    Dim iz As ImageView
    iz = Sender
    Dim p As Int = iz.Tag
    Dim cur2 As Cursor
    cur2 = sql1.ExecQuery("Select music from tb_mp where id ="&p)
    
    For i = 0 To cur2.RowCount-1
        cur2.Position=i
        
        ImageView1.Visible = False
        ImageView2.Visible = True
    
        Label2.Text = cur2.GetString("music")
        MediaPlayer1.Initialize( )
        MediaPlayer1.Load(File.DirAssets,Label2.Text)
        MediaPlayer1.play
    
    Next
End Sub 

خواهش میکنم بگین مشکل کد من چیه؟

[مهدی ایزدی 9,203]

با سلام

 

خواهش می کنم کمک کنید :

 

من یک برنامه رینگتون میخوام بسازم با مولتی پنل که جلوی اسم هر آهنگ دو تا ایمیج ویو قرار داره که روی هم هستن و در ابتدا ایمیج ویو دوم در حالت پنهان هست میخوام با کلیک روی ایمج ویو اول ایمیج ویو دوم ظاهر بشه و اولی پنهان

من کد زیر رو در ساب کلیک ایمج ویو اول نوشتم اما به جای اینکه ایمیج ویویی که روش کلیک میشه عکس عوض بشه میره آخرین پنل رو عکسشو عوض میکنه

Sub ImageView1_Click
    
    Dim iz As ImageView
    iz = Sender
    Dim p As Int = iz.Tag
    Dim cur2 As Cursor
    cur2 = sql1.ExecQuery("Select music from tb_mp where id ="&p)
    
    For i = 0 To cur2.RowCount-1
        cur2.Position=i
        
        ImageView1.Visible = False
        ImageView2.Visible = True
    
        Label2.Text = cur2.GetString("music")
        MediaPlayer1.Initialize( )
        MediaPlayer1.Load(File.DirAssets,Label2.Text)
        MediaPlayer1.play
    
    Next
End Sub 

خواهش میکنم بگین مشکل کد من چیه؟

 

 

درود

میتونید به این صورت هم عمل کنید :

 

 

 

 

دانلود سورس

[puya017 0]

درود

میتونید به این صورت هم عمل کنید :

 

 

 

 

دانلود سورس

 

عالی بود ممنون مشکلم حل شد اصلا انتظتر نداشتم به این زودی جواب بگیرم بهترین انجمن دنیاس اینجا

 

فقط یه مشکلی که هست اینه که میخوام ایمیج ویو دوم همزمان تو دو یا چند پنل دیده نشه فقط تو یه پنل دیده بشه یعنی تو یک پنل بر روی ایمیج ویو اول کلیک کردیم و ایمیج ویو دوم اومد جلو و بعدش رفتیم تو یه پنل دیگه رو ایمیج اول کلیک کردیم, ایمیج ویو دوم بیاد جلو و تو پنل قبلی ایمیج دوم بره عقب

 

نمیدونم تونستم منظورمو برسونم یا نه

[puya017 0]

لطفا راهنمایی بفرمایین

[sms 199]

لطفا راهنمایی بفرمایین

فکر کنم همون چیزیه که میخواید

 http://s6.picofile.com/file/8235983042/2_image_in_multi_panel_answerCenter_ir_Edited.rar.html

 

[مهدی ایزدی 9,203]

 

 

نمیدونم تونستم منظورمو برسونم یا نه

 

نـتـونـســتــیــــد

[puya017 0]

فکر کنم همون چیزیه که میخواید

 http://s6.picofile.com/file/8235983042/2_image_in_multi_panel_answerCenter_ir_Edited.rar.html

 

 

ممنون دوست عزیز دقیقا همون چیزی بود که میخواستم

 

تشکر

[Hamidbergis 332]

تشکر

[Hamidbergis 332]

با تشکر فراوان

[amirmahdi3744 5]

درود خدمت تمامی کاربران عزیز انجمن ، بخصوص کاربرانی که فعالیت میکنند *laie* خب توی دوره مرکز پاسخگویی به سوالات برنامه نویسی یاد گرفتیم که چطوری اطلاعات دیتابیس آفلاین رو توی Multi Panel و همراه با ScrollView نمایش بدیم ... بعد از اون شاید بیشتر از 20 بار سوال شد که چطوری میشه وقتی روی Button در MultiPanel کلیک کرد Button تشخیص بده که کدوم متن رو نشون بده و چی عملی رو انجام بده ... *fekr* توی این دوره ی آموزشی ما این موضوع رو با استفاده از Tag و Sender یاد میگیریم *like* امیدوارم که فیلم رو با دقت نگاه کنید این رو هم فقط برای تعداد کمی از کاربران میگم: دست از حفظی بازی بردارید برنامه نویسی رو باید یاد گرفت ، برنامه نویسی کتاب شیمی دبیرستان نیست که یاد بگیری مونوکسید اسید فرمولش چیه و سال تحصیلی که تموم شد برات فرق نکنه که فرمولش یادش باشه یا نه *fekr* عجب مثالی زدم *laugh2* شرمنده حجم فیلم هم یک خورده زیاد شده . نزدیک 17 مگابایت حجم داره هرکه را طاووس خواهد جور هندوستان کشد ! لینک دانلود از سرور پیکوفایل اختصاصی از انجمن Basic4Android.org موفق باشید

سلام.من این کد رو نوشتم ولی نمیدونم چرا اسکرول نمیشه؟؟؟

 

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

    Private Panel1 As Panel
    Private Label1 As Label
    Dim sc As ScrollView
    
    Dim sql As SQL
    Dim cur As Cursor
    Dim stop As Int =3%y
    Private ScrollView1 As ScrollView
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("scrol")
If File.Exists(File.DirInternal,"panel.db") = False Then
File.Copy(File.DirAssets,"panel.db",File.DirInternal,"panel.db")
End If
sql.Initialize(File.DirInternal,"panel.db",False)
cur= sql.ExecQuery("select * from tbl")
For 1 = 0 To cur.RowCount-1
cur.Position=1
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
p.LoadLayout("aaa")
Label1.Text=cur.GetString("text")
stop= stop+35%y
ScrollView1.Panel.Height= stop
Next
End Sub

.

 

 

 

 

میشه لطفا سورس رو بذارید؟؟؟

[mehrabmmp 528]

اگر ما توی پنل یه باتن تعریف کنیم و تکست باتن رو مثلا بزاریم 1 . بعد پنلهامون رو باحلقه تا 20 تا تکرار کنیم اونوقت تکست همه باتن ها 1 میشن . حالا ما اگه بخوام تکست هر باتن توی هر پنل یه چیز خاص باشه چیکار کنیم ؟

کدشو اینجوری بنویسید

dim top as int =0
dim a1() as string
a1 = array as string("btn1","btn2","btn3")                              اسم باتن ها به ترتیب
for i=0 to a1.length -1
        Dim pnl As Panel
	pnl.Initialize("")
	ScrollView1.Panel.AddView(pnl,2%x,top,91%x,30%y)
	pnl.LoadLayout("ACTfelan")
	Label1.Text = a1(i)
	Label1.Tag = a1(i)
top = top + 15%y

[mahdig502 27]

سلام 

من میخوام روی هر باتون کلیک شد یه صفحه HTML خاص باز کنه 

مثلا روی باتون اول که کلیک شد فایل 1.html 

باتون دومی : 2.html

باتون سومی :3.html

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

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

[dr.mohammad 68]

ممنون از آموزشتون خیلی عالی بود خیلی به کارم اومد            

درباره درس شیمی بگم که اصلا درس حفظی نیست هرکس تو هر صنفی هست نباد صنف های دیگرو مسخره کنه شما به اندروید علاقه داری کداشو حفظ نمی کنی کسی هم که به شیمی علاقه داره هیچ وقت چیزیشو حفظ نمی کنه این حرف از استادی مثل شما بعیده        

بازم ممنون از آموزشتون

[mehrabmmp 528]

سلام 

من میخوام روی هر باتون کلیک شد یه صفحه HTML خاص باز کنه 

مثلا روی باتون اول که کلیک شد فایل 1.html 

باتون دومی : 2.html

باتون سومی :3.html

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

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

 

کدشو اینجوری بنویسید

dim top as int =0
dim a1() as string
a1 = array as string("btn1","btn2","btn3")                              اسم باتن ها به ترتیب
for i=0 to a1.length -1
        Dim pnl As Panel
	pnl.Initialize("")
	ScrollView1.Panel.AddView(pnl,2%x,top,91%x,30%y)
	pnl.LoadLayout("ACTfelan")
	Label1.Text = a1(i)
	Label1.Tag = a1(i)
top = top + 15%y


sub button1_click
      dim btn as button
      btn = sender
      act2.m = btn.tag
      startactivity(act2)
end sub

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

Sub Process_Globals
       dim m as string
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main2")
        
        if m = "btn1" then
                'اینجا اچ تی ام ال اول رو لود کن
        else if m = "btn2" then
                'اینجا اچ تی ام ال دوم رو لود کن
        else if m = "btn3" then
                'اینجا اچ تی ام ال سوم رو لود کن
        end if
        
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[houman_aria 2]

سلام خدمت اساتید گرامی

آقا یه سوال

ما ی پنل داریم شامل باتن و ایمج ویو که مالتی پنلش کردیم و به همه تگ اختصاص دادیم، حالا من میخام با کلیک روی پنل مثلا متن بات عوض شه، یا عکس توی ایمیج ویو تغییر کنه، اصلا غیر فعال یا فعالش کنم

چطور با این کار رو بکنم؟

مرسی از کمک هاتون

[محمدرضا شاهپیری 5,491]

اصلا این کارو انجام نده. کار جالبی نیست واقعا. و توی بیسیک هم کلی دردسر داره که بخوای با استفاده از تگ یه ویو  یه ویوی دیگه رو آپدیت کنی. 

واسه هر ویویی تگ گذاشتی فقط میتونی رو همون ویو با استفاده از اون تگ تغییرات ایجاد کنی.

تو انجمن قبلا یکی از اساتید این کارو کرده بودن سرچ کنید فک کنم بتونین پیدا کنین

[houman_aria 2]

ولی خب من دیدم که این کار رو انجام دادن، شما مثلا برنامه زود فود رو نگاه کن، رو پنل کلیک میشه و امیج ویو آپدیت میشه

این رو لازم دارم واقعا، ابلته یادم رفت بگم تگ پنل و تگ ایمیج ویو یکی هست ، یعنی پنل اول و ویو های داخلش تگ 0 بعدی 1 و ... الی آخر

ممنون میشم ی نمونه کدی راهنمایی چیزی بکنین

بازم ممنون

[houman_aria 2]

امیدوارم که منظورم رو خوب رسونده باشم!

من میخام با کلیک شدن روی ی پنل ویو های داخل همون پنل رو آپدیت کنم، و همچنین با کلیک شدن روی دیگر ویو های داخل اون پنل بتونم همین کار رو بکنم

ممنون میشم کسی بلده کمک کنه