PHP كود :
Dim con As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
Dim dt As New DataTable
Dim page As Integer = 1
Dim totalpages As Integer = 0
Dim perpage As Integer = 15
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.Label1.Text = "0 / 0"
Dim Sql As String = "SELECT id,CALLop,MOHT,DAY,UTC,MHz,MODE,sent_number,rcvd_number,multi1,multi2,point,country from DBD"
Dim da As New SQLiteDataAdapter(Sql, con)
If da.Fill(dt) > 0 Then
totalpages = Math.Ceiling(dt.Rows.Count / perpage)
viewpage(page)
End If
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
nextpage()
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
previouspage()
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
lastspage()
End Sub
Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
firstspage()
End Sub
Private Sub firstspage()
page = 1
viewpage(page)
End Sub
Private Sub lastspage()
page = totalpages
viewpage(page)
End Sub
Private Sub previouspage()
If page > 1 Then
page -= 1
viewpage(page)
End If
End Sub
Private Sub nextpage()
If page < totalpages Then
page += 1
viewpage(page)
End If
End Sub
Private Sub viewpage(ByVal p As Integer)
If totalpages = 0 Then Return
Me.Label1.Text = page & " / " & totalpages
p -= 1
lst1.Items.Clear()
For i = (p * perpage) To (p * perpage) + perpage - 1
If i = dt.Rows.Count Then Exit Sub
Dim r As DataRow = dt.Rows(i)
lst1.Items.Add(New ListViewItem({r("id"), r("CALLop"), r("MOHT"), r("DAY"), r("UTC"), r("MHz"), r("MODE"), r("sent_number"), r("rcvd_number"), r("multi1"), r("multi2"), r("point"), r("country")}))
Next
End Sub
Updated