چطوری میتونم به لیست ویو رویداد کلیک اضافه کنم

[hoseinmos 1]

باسلام این سورس با دیتا بیس و لیست ویو نوشته شده حالا مخوام اگه کلیک شد روی داوود ابراهیمی برام بره یه اکتیویتی دیگه در مورد داوود ابراهیمی توضیح بده ممنون میشم اگه کمکم کنید خیلی سرچ کردم

#Region  Project Attributes  
                                           'بسم الله الرحمن الرحیم
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName: 1
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: false
#End Region
 
                                            '@basic4androiid
                              
Sub Process_Globals
Dim sql As SQL
Dim cur As Cursor
End Sub

Sub Globals
    Private Panel1 As Panel
    Private ListView1 As ListView
    Dim list_clear As ListLineClear
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("listLayout")      '  لود کردن لایوتی که ساختیم
    Activity.Color=Colors.RGB(232,232,232)   ' دادن رنگ به پس زمینه اکتیویتی

    If File.Exists(File.DirInternal,"list1.db") = False Then   'تو این خط میگیم اگه دیتا بیسی با اسم لیست1 از نظر موجودیت فلس بود؛ینی وجود نداشت آنگاه  
        File.Copy(File.DirAssets,"list1.db",File.DirInternal,"list1.db")  'کپی کن دیتا بیس  لیست1 رو از حافظه دیاراسست ودر حافظه دیار اینترنال پیست اش کن
    End If

    If sql.IsInitialized = False Then          'اگه اس کیو ال اینیشیالایز نبود؛
        sql.Initialize(File.DirInternal,"list1.db",False)  'اینیشیالایزش کن
    End If
    
    cur=sql.ExecQuery("select * from tbl1 where id")  'به کورسور ادرس دادیم که اطلاعات  کدوم تیبل رو میخوایم

    For i = 0 To cur.RowCount-1   'برای اینکه اطاعات دیتا بیس رو بریزیم داخل  لیست ویو؛حلقه ایجاد میکنیم
        cur.Position=i
        
        
        Dim img As ImageView                        'لیست ویو؛به صورت پیش فرض عکسش سمت چپ هست
        img = ListView1.TwoLinesAndBitmap.ImageView  'برای اینکه بخوایم بیاریم سمت راست این چن خط کد رو مینویسیم
        img.Gravity=Gravity.right       
        img.left=100%X-70dip
        
        ListView1.AddTwoLinesAndBitmap(cur.GetString("text1"),cur.GetString("text2"),LoadBitmap(File.DirAssets,cur.GetString("id")&".jpg"))
        
        list_clear.setLineSetting(ListView1,Colors.RGB(232,232,232),6dip) '     اینکه لیست ویومون شبیه لیست کاردویو دار باشه و  ویو ها از هم فاصله داشته باشه از این خط استفاده میکنیم
    Next
    ListView1.TwoLinesAndBitmap.Label.TextColor=Colors.RGB(00,96,88)       'تغییر رنگ متن اول
    ListView1.TwoLinesAndBitmap.SecondLabel.TextColor=Colors.Black       'تغییر رنگ متن دوم
    ListView1.TwoLinesAndBitmap.ItemHeight=60dip       ' ارتفاع خود ویو
    ListView1.TwoLinesAndBitmap.Label.Height=30dip       'ارتفاع لیبل متن اول
    ListView1.TwoLinesAndBitmap.SecondLabel.Height=20dip       'ارتفاع لیبل متن دوم
    ListView1.TwoLinesAndBitmap.Label.Gravity=Gravity.RIGHT       ' تعیین چپ و راست بودن لیبل اول
    ListView1.TwoLinesAndBitmap.SecondLabel.Gravity=Gravity.RIGHT       'تعیین چپ و راست بودن لیبل دوم
    ListView1.TwoLinesAndBitmap.Label.TextSize = 14       'تعیین سایز متن لیبل اول
    ListView1.TwoLinesAndBitmap.SecondLabel.TextSize = 12       'تعیین سایز متن لیبل دوم
    ListView1.TwoLinesAndBitmap.Label.Typeface = Typeface.LoadFromAssets("vazir.ttf")       'فونت متن اول
    ListView1.TwoLinesAndBitmap.SecondLabel.Typeface = Typeface.LoadFromAssets("vazir.ttf")       'فونت متن دوم
    ListView1.TwoLinesAndBitmap.SecondLabel.Width =250dip       'عرض لیبل متن دوم
    ListView1.TwoLinesAndBitmap.Label.Width =250dip       'عرض لیبل متن اول
    ListView1.TwoLinesAndBitmap.Label.Left=100%x-330dip       'تعیین حالت قرارگیری لیبل اول از سمت چپ
    ListView1.TwoLinesAndBitmap.SecondLabel.Left=100%x-330dip       'تعیین حالت قرارگیری لیبل دوم از سمت چپ

    Dim bitmapp As BitmapDrawable   'برای اینکه بتونیم به پس زمینه  ویوهای لیست ویو عکس شبیه کارد ویو بدیم  از این کد ها استفاده میکنیم
    bitmapp.Initialize(LoadBitmap(File.DirAssets,"listview.png"))
    ListView1.TwoLinesAndBitmap.Background = bitmapp
End Sub

Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)

End Sub

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

listview

[hoseinmos 1]

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