لود اطلاعات به صورت انتخابی

[zsexdr 18]

با سلام خدمت دوستان

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

میخام که با انتخاب یکی از گزینه های لیست ویو ، اطلاعات اون گزینه بلافاصله به لیبل منتقل بشه.

اطلاعات لیست ، با استفاده از بانک فراخوانی موقع لود شدن بالا میاد .

از چه کدی باید استفاده کنم ؟

 

[zsexdr 18]

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

Sub ListView1_ItemClick (Position As Int, Value As Object)
	ListViewValue = Value
	farakhani.FarakhaniMatn("IDMS",ListViewValue,label1,"FMS")
	
 End Sub

[zsexdr 18]

داداش این دوخط کدو به انیشتینم بدی توش میمونه

کل کد اکتیویتی رو بذار

 

من از کتابخانه Farakhani استفاده کردم

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

Sub Globals
    
    Private ListView1 As ListView
    Dim farakhani As Farakhani
    Dim farakhani1 As Farakhani
    Private ScrollView1 As ScrollView
    Private Button1 As Button
    Private Button2 As Button
    Private Button3 As Button
    Private Panel1 As Panel
    Private label1 As Label
    Dim ts As TextSetting
    
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("masahat")
    label1.Initialize("")
    ListView1.SingleLineLayout.Label.Typeface=Typeface.LoadFromAssets("B Nazanin.ttf")
    ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
    ListView1.SingleLineLayout.Label.TextColor=Colors.White
    ListView1.SingleLineLayout.Label.TextSize=3.5%x
    ListView1.SingleLineLayout.ItemHeight=68
    farakhani.initialize("EM.db","masahat",True)
    farakhani.SingleLineTitr(ListView1,"JMS","IDMS")
   
    label1.TextSize = 4.5%x
    label1.Gravity=Bit.Or(Gravity.TOP,Gravity.RIGHT)
    label1.TextColor=Colors.Black

    
End Sub

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

[alirezakazemizaroomi 437]

سلام

از این سورس استفاده کن:

دانلود سورس

[zsexdr 18]

کداتو بذار

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

farakhani.initialize("EM.db","masahat",True)

    farakhani.SingleLineTitr(ListView1,"JMS","IDMS")

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

[alirezakazemizaroomi 437]

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

farakhani.initialize("EM.db","masahat",True)

    farakhani.SingleLineTitr(ListView1,"JMS","IDMS")

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

داداش این دوخط کدو به انیشتینم بدی توش میمونه

کل کد اکتیویتی رو بذار

[MahdiHD 1,748]

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

[zsexdr 18]

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

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

من توی بانک سه تا ستون دارم ستون اول id ستون دوم تیتر و ستون سوم توضیح .

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

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

[alirezakazemizaroomi 437]

سلام

اینو تو پروسس گلوبالز بنویس:

Dim nima As String

اینو تو اکتیویتی کریت بنویس:

If File.Exists(File.DirInternal,"sql1.db") = False Then
File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db")
End If
If sql2.IsInitialized = False Then
sql2.Initialize(File.DirInternal,"sql1.db",True)
End If
cur1= sql2.ExecQuery("Select * from tbltest WHERE id BETWEEN 400 AND 1001")
For i = 0 To cur1.RowCount-1
cur1.Position= i
ListView1.AddTwoLinesAndBitmap((cur1.GetString("titr")),"",LoadBitmap(File.DirAssets,"bn.png"))
Next

اینم کد آیتم کلیک لیست ویو هست:

Sub ListView1_ItemClick (Position As Int, Value As Object)
ListView1.Enabled=False
ListView1.Visible=False
If File.Exists(File.DirInternal,"sql1.db") = False Then
File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db")
End If
If sql2.IsInitialized = False Then
sql2.Initialize(File.DirInternal,"sql1.db",True)
End If
cur1= sql2.ExecQuery("Select * from tbltest  WHERE name='"&nima&"'")
For i = 0 To cur1.RowCount-1
cur1.Position= i
Label1.text=cur1.GetString("text")
nima=0
Next

[zsexdr 18]

 

سلام

اینو تو پروسس گلوبالز بنویس:

Dim nima As String

اینو تو اکتیویتی کریت بنویس:

If File.Exists(File.DirInternal,"sql1.db") = False Then
File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db")
End If
If sql2.IsInitialized = False Then
sql2.Initialize(File.DirInternal,"sql1.db",True)
End If
cur1= sql2.ExecQuery("Select * from tbltest WHERE id BETWEEN 400 AND 1001")
For i = 0 To cur1.RowCount-1
cur1.Position= i
ListView1.AddTwoLinesAndBitmap((cur1.GetString("titr")),"",LoadBitmap(File.DirAssets,"bn.png"))
Next

اینم کد آیتم کلیک لیست ویو هست:

Sub ListView1_ItemClick (Position As Int, Value As Object)
ListView1.Enabled=False
ListView1.Visible=False
If File.Exists(File.DirInternal,"sql1.db") = False Then
File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db")
End If
If sql2.IsInitialized = False Then
sql2.Initialize(File.DirInternal,"sql1.db",True)
End If
cur1= sql2.ExecQuery("Select * from tbltest  WHERE name='"&nima&"'")
For i = 0 To cur1.RowCount-1
cur1.Position= i
Label1.text=cur1.GetString("text")
nima=0
Next

 

lممنون از راهنمایی تون

من از کتابخانه Farakhani استفاده کردم و این کدها برای من جواب نمیده

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

[alirezakazemizaroomi 437]

کداتو بذار