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

[parham01 82]

سلام خسته نباشید

 

دیتا بیس دارم با فیلد های id - matn - pic

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

[parham01 82]

Up

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

دروود

2 تا مورد

1: اصلا بنده تا حالا با کتابخانه فراخوانی کار نکردم... با خود کتابخونه Sql کار میکنم

2: وقتی که میخواهید Position رو عوض کنید دیگه نیاز نیست بگید where id = folan

چون شما قراره تمام اطلاعات رو بگیرید و با Position کار کنید

این رو تست نکردم... تست کنید نباید خطا داشته باشه :

Sub Globals
	Dim sql1 As SQL
	Dim cur1 As Cursor
	Private ImageView1 As ImageView
	Dim num As Int = 0
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Scroll")
	If File.Exists(File.DirInternal,"panelx.db") = False Then
	File.Copy(File.DirAssets,"panelx.db",File.DirInternal,"panelx.db")
	End If
	sql1.Initialize(File.DirInternal,"panelx.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM tbl")
	cur1.Position= num
	Dim bt As Bitmap
	bt.Initialize(File.DirAssets,cur1.GetString("ax"))
	ImageView1.Bitmap = bt
End Sub

Sub ButtonNext_Click
	num = num + 1
	cur1.Position = num
	Dim bt As Bitmap
	bt.Initialize(File.DirAssets,cur1.GetString("ax"))
	ImageView1.Bitmap = bt
End Sub

Sub ButtonBack_Click
	num = num - 1
	cur1.Position = num
	Dim bt As Bitmap
	bt.Initialize(File.DirAssets,cur1.GetString("ax"))
	ImageView1.Bitmap = bt
End Sub

 

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

سلام

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

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

یعنی از روش Position  استفادذه نکنید.

به وسیله Query و id  این عمل رو انجام بدید

یعنی شما همون مقداری رو که هر دفعه به علاوه 1 می کنید رو بجای اینکه برابر با Postion  کنید برابر با  id  دیتابیس کنید.

Dim cr As Cursor = SQL.ExecQuery("SELECT * FROM tbl WHERE id="&meghdar)
cr.Position = 0

شما اینجوری فقط یک رکورد از دیتابیس رو سلکت می کنید.

برای کنترل کرد مقدار متغییر meghdar  هم بایید بین اولین id  و آخرین رکورد که میشه ( RowCount ) شرط بزارید که در صورت کم شدن این مقدار یعنی عکس قبلی بزرگتر از اولین آیدی باشه، و موقع افزایش مقدار که میشه عکس بعدی کوچیکتر از RowCount  یا همون اخرین رکورد دیتاببس باشه.

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

درود

شما میتونید موقع شروع برنامه position و برابر 0 قرار بدید

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

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

 

[parham01 82]

در در 1395/09/05, 13:44:21، مهدی ایزدی گفته است :

درود

شما میتونید موقع شروع برنامه position و برابر 0 قرار بدید

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

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

 

سلام جناب ایزدی

میدونم خیلی ضعیفه

میشه اصلاحش کنید

ممنون

#Region  Activity Attributes 
	#FullScreen: true
	#IncludeTitle: false
#End Region

Sub Process_Globals
	Dim sql2 As SQL
	Dim meghdar As Int
End Sub

Sub Globals
	Dim st As StringUtils
	Private ScrollView1 As ScrollView
	Private lbl As Label
	Dim fara As Farakhani
	Dim cur As Cursor
	Private share As Button
	Private fontsize As Spinner
	Private copy As Button
	Dim s As AriaLib
	Private Label1 As Label
	Private ImageView1 As ImageView

	Private Button1 As Button
	Private Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("reading")
	ScrollView1.Panel.LoadLayout("text")
	Activity.Color = Colors.RGB(221,81,130)
	
ImageView1.Bitmap=LoadBitmap(File.DirAssets, "copy.png")

	lbl.Gravity = Gravity.CENTER
	lbl.TextColor = Colors.White
	lbl.TextSize = 25
	lbl.Typeface = Typeface.LoadFromAssets("W_yekan Bold_p30download.com_0.ttf")
	lbl.Height = -2
	Label2.Text=meghdar
	

	fara.FarakhaniMatn("test.db",sql2,cur,"SELECT * FROM tbl Where ID=",Label2.Text,Label1,"name")
	
	


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
Label2.Text=meghdar+1
	
End Sub