مولتی پنل

[alaghemand 82]

با سلام و عرض خسته نباشید

من برای یکی از برنامه هام با استفاده از حلقه for چند تا label ساختم و برای هر لیبل یک imagebiew برای اینکه کاربر بتونه مطالب رو share بکنه

share کردن رو هم بلدم

اما نمی دونم چیکار کنم که بگم اگر روی imageview که تگش 3 هست کلیک شد متن لیبلی که تگش 3 هست ( یعنی همون لیبلی که برای اون imageview ) است share بشه

بلد هستم بگم اگر روی این باتک کلیک شد اینجوری بشه اما نمی دونم چطور بگم که اون لیبلی که تگش 3 هست رو share کنه

لطفا کمکم کنید

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

[حمید زارع 331]

آقای زارع شما کامل توضیح بدی چی میخوای ما در خدمتیم بتونم پاسخ میدیم

آقا من توی هر Panel سه تا Label دارم

توی حلقه ساخت مولتی پنل این کد رو دادم :

Label1.Tag=Meghdare Database

Label2.Tag=Meghdare Database

Label3.Tag=Meghdare Database

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

من از آموزش اینجوری فهمیدم :

Dim L1,L2,L3 as Label

L1=Sender

L2=Sender

L3=Sender

M1=L1.Tag

M2=L2.Tag

M3=L3.Tag

به نظر شما درسته ؟

*فقط اینو حتماً دقت بکنید که من روی پنل کلیک میکنم و مقدار لیبلها رو میخام *

[alaghemand 82]

من این کد رو نوشتم اما عول نمیکنه !!!!!

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim tedad As Int = -1
    Dim text1 As String
End Sub

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

    Private image As ImageView
    Private Panel1 As Panel
    Dim scrol As ScrollView
    Dim int1 As Int
    Private text As Label
    Private copy As ImageView
    Private like As ImageView
    Private share As ImageView
    Private Label1 As Label
    Dim send1 As send
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    scrol.Initialize(100%y)
Activity.AddView(scrol,0,0,100%x,100%y)
For i=0 To 20
Dim p As Panel
p.Initialize("p")
scrol.Panel.AddView(p,0,int1,100%x,100%Y)
int1=int1+60%y
p.LoadLayout("animals")
scrol.Panel.Height=int1
    like.Tag = i
    text.Tag = i
Select Case i
        Case 0
            text.text = "this is a test for ......"
        Case 1
            text.text = "چطوری" & i
        Case 2
            text.text = "خوبم" & i
        Case 3
            text.text = "تو خوبی ؟ " & i
        Case 4
            text.text = "ممنون" & i
        Case 5
            text.text = "سلامتی" & i
        Case 6
            text.text = "خانوداده خوبن ؟" & i
        Case 7
            text.text = "بله ممنون خیلی خوبن" & i
End Select
    Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub like_Click
    Dim b As ImageView
    b = Sender
    If b.Tag = 0 Then
            Msgbox("hello","1")
            like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
            tedad = tedad + 1
            Select text.Tag
                Case 0
                    text1 = text.Text
            End Select
        Else If b.Tag = 1 Then
            like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
            tedad = tedad + 1
            Select text.Tag
                Case 1
                    text1 = text.text
            End Select
        Else If b.Tag = 2 Then
            like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
            tedad = tedad + 1
            text1 = text.text
        Else If b.Tag = 3 Then
            like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
            tedad = tedad + 1
            text1 = text.text
        Else If b.Tag = 4 Then
            like.Bitmap = LoadBitmap(File.DirAssets,"fave.png")
            tedad = tedad + 1
            text1 = text.text
        End If
End Sub

چیکارکنم ؟؟؟؟

[Nemesis 1,846]

با Select Case

Select IV.tag
case 1
'amaliyate1
case 2
'amaliyate2
end select

[alaghemand 82]

من میخام وقتی رویimageview با تگ 1 کلیک شد بیاد متن text با تگ 1 رو بریزه تو متغیر tezt1 اما این کارو انجام نمیده

سورسمم در پاسخ های بالایی هست

راستی من imageview خود رو like تعریف کردم و لیبلم رو text و یک متغیر از نوع string که text1 هست

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

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

آقا من توی هر Panel سه تا Label دارم

توی حلقه ساخت مولتی پنل این کد رو دادم :

Label1.Tag=Meghdare Database

Label2.Tag=Meghdare Database

Label3.Tag=Meghdare Database

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

من از آموزش اینجوری فهمیدم :

Dim L1,L2,L3 as Label

L1=Sender

L2=Sender

L3=Sender

M1=L1.Tag

M2=L2.Tag

M3=L3.Tag

به نظر شما درسته ؟

*فقط اینو حتماً دقت بکنید که من روی پنل کلیک میکنم و مقدار لیبلها رو میخام *

 

درود

همه ی tag هارو به panel بدید و با # از هم جدا کنید.

dim p1 as panel
panel1.tag = meghdare database # meghdare database # meghdare database

بعدش توی کلیک panel بیایید بگید :

p1 = sender

dim parts() as string = regex.split("#",p1.tag)

خب حالا part(1) میشه تگ label1 و part(2) میشه تگ label2 و ...

 

موفق باشی

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

من میخام وقتی رویimageview با تگ 1 کلیک شد بیاد متن text با تگ 1 رو بریزه تو متغیر tezt1 اما این کارو انجام نمیده

سورسمم در پاسخ های بالایی هست

راستی من imageview خود رو like تعریف کردم و لیبلم رو text و یک متغیر از نوع string که text1 هست

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

 

حقیقتا هرچی سعی کردم کد نویسی شما رو درک کنم ولی نتونستم

خیلی خیلی بد کد نویسی کردید. کلا اشتباهه فکر کنم و خیلی چیزهای اضافه ای رو دارید.

خود پروژه رو بزارید و بگید میخواهید چیکار کنید

[alirezakazemizaroomi 437]

درود

همه ی tag هارو به panel بدید و با # از هم جدا کنید.

dim p1 as panel
panel1.tag = meghdare database # meghdare database # meghdare database

بعدش توی کلیک panel بیایید بگید :

p1 = sender

dim parts() as string = regex.split("#",p1.tag)

خب حالا part(1) میشه تگ label1 و part(2) میشه تگ label2 و ...

 

موفق باشی

 

سلام اینطوری نوشتم:

btn1.tag = Cur1.GetString("adres") & "#" & Cur1.GetString("esm")



Next   
End Sub




Sub btn1_Click
Dim ad As Button
ad = Sender
Dim parts() As String = Regex.split("#",ad.tag)
parts(1)=ad.tag
parts(2)=؟؟؟؟؟؟؟؟؟؟
StartActivity(add)
End Sub

(parts(1 جواب میده ولی (parts(2 جواب نمیده؟

 

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

 

من فکر میکنم باید اینجور بنویسیم :

panel1.tag = meghdare database & "#" & meghdare database & "#" & meghdare database

 

 

من فکر میکنم باید اینجور بنویسیم :

panel1.tag = meghdare database & "#" & meghdare database & "#" & meghdare database

 

دقیقا کدی که توی بیسیک نوشتید رو میشه بدید ؟؟؟

من نمونه براتون به صورت دستی نوشتم.

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

[alaghemand 82]

من میخام یک برنامه اس ام اس درست کنم البته نه به صورت آنلاین و اومدم با استفاده از حلقه فور کلی جای برای مطالبم درست کردم یا همون label بعد دوباره با استفاده از حلقه فور به همون تعداد imageview ساختم برای مورد علاقه و شیر و .....

حالا من به برنامه گفتم که وقتی روی like یا همون مورد علاقه کلیک شد بیا عدد رو به اضافه int1 بکنه که int1 رو در یک اکتیویتی دیگه برای حلقه فور قرار دادم تا اگر کلیک شد 1 لیبل ساخته بشه به عنوان مورد علاقه ها بعد حالا میخام بگم که اگر روی لایکی کلیک شد که تگش 3 بود بیاد text تکستی که تگش 3 هست رو بریزه تو متغیر text1 بعد اومدم توی اکتیویتی مورد علاقه گفتم که لیبلی که تگش 3 هست text خود را از متغیر text1 بگیره

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

البته به دلایلی نمی تونم از دینابیس استفاده کنم

[حمید زارع 331]

 

سلام آقای ایزدی 

 

این سورس رو ملاحظه کنید

 

http://s6.picofile.com/file/8196557000/Multi_Panel_Without_Database.rar.html

 

فقط در قسمت Panel1_click کدی بنویسید که مقدار هر سه لیبل را نشون بده

 

با احترام

[حمید زارع 331]

درود

همه ی tag هارو به panel بدید و با # از هم جدا کنید.

dim p1 as panel
panel1.tag = meghdare database # meghdare database # meghdare database

بعدش توی کلیک panel بیایید بگید :

p1 = sender

dim parts() as string = regex.split("#",p1.tag)

خب حالا part(1) میشه تگ label1 و part(2) میشه تگ label2 و ...

 

موفق باشی

 

شرمنده من الان این پست رو دیدم

 

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

 

با احترام

[yoyofbi 23]

سلام میشه برای هر پنل یه عکس جدا گانه انتخاب بشه؟

یعنی لینک عکس رو از دیتا بیس بگیره و روی پنل نمایش داده بشه.

حتما میخوام لینک باشه

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

شرمنده من الان این پست رو دیدم

 

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

 

با احترام

 

خواهش میکنم

شما اون کاری رو که من گفتم انجام بدید مشکل حل میشه 100%

شخصا اصلا عادت ندارم سورس رو درست کنم تحویل کسی بدم

حقیقتا نه وقتم اجازه میده و نه دوست دارم چون به ضرر هر دو طرفه این کار...

[alaghemand 82]

آقای ایزدی لطفا جواب منو هم بدید

[mostafarkn 2]

درود

همه ی tag هارو به panel بدید و با # از هم جدا کنید.

dim p1 as panel
panel1.tag = meghdare database # meghdare database # meghdare database

بعدش توی کلیک panel بیایید بگید :

p1 = sender

dim parts() as string = regex.split("#",p1.tag)

خب حالا part(1) میشه تگ label1 و part(2) میشه تگ label2 و ...

 

موفق باشی

استاد ببخشید من کامل این کدها رو متوجه نشدم مثلا نمی دونم تو قسمت پرانتز جلوی پارتس چی باید بذارم!همچنین هنگام کامپایل نرم افزار به # ایراد می گیره.من مشکلمو در یک تاپیک اختصاصی مطرح کردم لطفا راهنماییم کنید:

مشکل در تگ و تغییر محتویات دیتابیس

باتشکر

[مجید آرتا 5,874]

 

دوستان یه سوال

 

من توی هر پنل فقط یک لیبل دارم که کل پنل رو پوشش میده

 

حالا اومدم یه سری کد ها رو توی Panel_click نوشتم ولی اجرا نمیشه

 

فکر میکنم چونوقتی من به اصطلاح کلیک میکنم روی لیبل کلیک میشه

 

چی کار کنم ؟

 

از SendToBack و BringToFront  هم استفاده کردم هم در دیزاینر و هم در کد نویسی ولی فایده نداره

 

لطفاًراهنمایی کنید

 

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

[حمید زارع 331]

دوست عزیز مشکل من هم تقریبا شبیه همینه ولی کسی راهنمایی نمیکنه

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

نمیدونم چه کنم

مثلا اگه پنل سه تا خاصیت مثل تگ داشت مشکل من حل میشد

یعنی میشه به ویوخا خاصیتهای جدیدی اضافه کرد ؟؟؟؟!

[afraz11 246]

حوصله تایب ندارم شرمنده

[mostafarkn 2]

خب دیگه 100% باید اینجوری باشه

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

الان این روشی که گفتین برای باتن هم عملیه؟

تو پرانتز parts چی باید بنویسم؟! :fekr:

 

[Nemesis 1,846]

دوست عزیز مشکل من هم تقریبا شبیه همینه ولی کسی راهنمایی نمیکنه

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

نمیدونم چه کنم

مثلا اگه پنل سه تا خاصیت مثل تگ داشت مشکل من حل میشد

یعنی میشه به ویوخا خاصیتهای جدیدی اضافه کرد ؟؟؟؟!

برادر ما بارها و بارها پاسخ دادیم این هم میدیم

 

شما نمونه سورس رو ساده بزار ببینم دقیقا چی می خواید

 

در خصوص این دوستمون هم دقیقا کدوم قسمت عمل نمیکنه؟