11-26-2013، 02:52 PM
11-26-2013، 04:06 PM
Sub ListView1_ItemClick (Position As Int, Value As Object)
Activity.Title = Value
End Sub
Activity.Title = Value
End Sub
11-26-2013، 04:11 PM
(11-26-2013، 04:06 PM)'Amin_Mansouri' نوشته: [ -> ]Sub ListView1_ItemClick (Position As Int, Value As Object)ممنون امين خان از پاسختون ولي با اين دستور ايتم كليك شده نمي ياد.
Activity.Title = Value
End Sub
11-26-2013، 04:13 PM
یک سمپل کامل از سایت سازنده :
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
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
11-26-2013، 04:26 PM
دوست گزامي امين عزيز ممنون از راهنمايي شما خدا كنه همشيه در خدمت ترويج علم باشي عزيزم. من به تازگي از وي بي 6 به B4A روي آوردم اميدورام بتوني در اين راه كمكم كني ممنون داداش
(11-26-2013، 04:06 PM)'Amin_Mansouri' نوشته: [ -> ]Sub ListView1_ItemClick (Position As Int, Value As Object)ميبخشيد امين جان من حجم بالايي از ديتا در اكسس دارم چطور ميتونم اونا رو به تفكيك فيلد در ديتابيس اس كيو لات ايمپورت كنم(لطفا بهترين شيوه)
Activity.Title = Value
End Sub
11-26-2013، 10:40 PM
(11-26-2013، 04:26 PM)'hamid1148' نوشته: [ -> ]دوست گزامي امين عزيز ممنون از راهنمايي شما خدا كنه همشيه در خدمت ترويج علم باشي عزيزم. من به تازگي از وي بي 6 به B4A روي آوردم اميدورام بتوني در اين راه كمكم كني ممنون داداش
(11-26-2013، 04:06 PM)'Amin_Mansouri' نوشته: [ -> ]Sub ListView1_ItemClick (Position As Int, Value As Object)ميبخشيد امين جان من حجم بالايي از ديتا در اكسس دارم چطور ميتونم اونا رو به تفكيك فيلد در ديتابيس اس كيو لات ايمپورت كنم(لطفا بهترين شيوه)
Activity.Title = Value
End Sub
سلام
من هم به مسئله برخورد کرده بودم
من اومدم فیلدهایی که توی اکسس بود توی اسکیولایت هم درست کردم ینی یکسان
بعد کل رکورد ها رو کپی کردم توی اسکیولات به همین راحتی البته از برنامه nativeSqlite استفاده میکردم