دوستان من با لیمیت دادن به آی دی های دیتابیس آفلاین توی مولتی پنل مشکل دارم.
راستش تا الان پیش نیومده بود از لیمیت استفاده کنم. بخاطر همین اصن چیزی نیمدونم ازش.
یه سورس هست آقا رسول قرار داده بودن. با 29 آی دی خوبکار میکنه. و عدد هایی برای تنظیم لیمیت و و انتهاش داره. که انگار محاسبات خواصی باید لازم داشته باشه.
چون من دیتابیس 21 آی دی دادم. بهش. آخرش اطلاعات رو هی دوباره لود میکنه. البته چندتای آخر رو همش.
میخواستم لطف کنید این اعداد رو توضیح بدید و لطف کنید بگید برای 13 و 21 و53 چه اعدادی رو باید توی سورس قرار بدم؟؟
درضمن امکانش هست وقتی به حالت مکس کردن برای لود قسمت دیگه لیمیت داده شده میرسه اون پایین یه عکس فلش رو به پایین لود بشه و دوباره غیب بشه و بازم برای لود تکرار بشه.و در انتها بازم غیب بشه.
اینم سورس هست:
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim cur1 As Cursor
Dim su As StringUtils
Dim st As Int=1%y
Dim su As StringUtils
Private ScrollView1 As ScrollView
Private Panel1 As Panel
Private Label1 As Label
Dim offset As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("scrol")
If File.Exists(File.DirInternal,"md.db")=False Then
File.Copy(File.DirAssets,"md.db",File.DirInternal,"md.db")
End If
sql1.Initialize(File.DirInternal,"md.db",True)
cur1=sql1.ExecQuery("SELECT * FROM sms")
For i =0 To 8
cur1.Position= i
additem
Next
offset = 9
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ScrollView1_ScrollChanged(Position As Int)
If Position + ScrollView1.Height >= ScrollView1.Panel.Height Then
For i = offset To offset + 9
cur1.Position= i
Try
additem
Catch
Return
End Try
Next
offset = offset + 10
End If
End Sub
Sub additem
Dim p As Panel
p.Initialize("")
p.LoadLayout("temp")
ScrollView1.Panel.AddView(p,0,st,100%x,100%y)
Label1.Text=cur1.GetString("txt")
Label1.Height =su.MeasureMultilineTextHeight(Label1,Label1.Text)
Panel1.Height=Label1.Height +50
st=st+Label1.Height+65
ScrollView1.Panel.Height=st
End Sub
سوال
sajadakbari 163
سلام
دوستان من با لیمیت دادن به آی دی های دیتابیس آفلاین توی مولتی پنل مشکل دارم.
راستش تا الان پیش نیومده بود از لیمیت استفاده کنم. بخاطر همین اصن چیزی نیمدونم ازش.
یه سورس هست آقا رسول قرار داده بودن. با 29 آی دی خوبکار میکنه. و عدد هایی برای تنظیم لیمیت و و انتهاش داره. که انگار محاسبات خواصی باید لازم داشته باشه.
چون من دیتابیس 21 آی دی دادم. بهش. آخرش اطلاعات رو هی دوباره لود میکنه. البته چندتای آخر رو همش.
میخواستم لطف کنید این اعداد رو توضیح بدید و لطف کنید بگید برای 13 و 21 و53 چه اعدادی رو باید توی سورس قرار بدم؟؟
درضمن امکانش هست وقتی به حالت مکس کردن برای لود قسمت دیگه لیمیت داده شده میرسه اون پایین یه عکس فلش رو به پایین لود بشه و دوباره غیب بشه و بازم برای لود تکرار بشه.و در انتها بازم غیب بشه.
اینم سورس هست:
Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim cur1 As Cursor Dim su As StringUtils Dim st As Int=1%y Dim su As StringUtils Private ScrollView1 As ScrollView Private Panel1 As Panel Private Label1 As Label Dim offset As Int End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("scrol") If File.Exists(File.DirInternal,"md.db")=False Then File.Copy(File.DirAssets,"md.db",File.DirInternal,"md.db") End If sql1.Initialize(File.DirInternal,"md.db",True) cur1=sql1.ExecQuery("SELECT * FROM sms") For i =0 To 8 cur1.Position= i additem Next offset = 9 End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ScrollView1_ScrollChanged(Position As Int) If Position + ScrollView1.Height >= ScrollView1.Panel.Height Then For i = offset To offset + 9 cur1.Position= i Try additem Catch Return End Try Next offset = offset + 10 End If End Sub Sub additem Dim p As Panel p.Initialize("") p.LoadLayout("temp") ScrollView1.Panel.AddView(p,0,st,100%x,100%y) Label1.Text=cur1.GetString("txt") Label1.Height =su.MeasureMultilineTextHeight(Label1,Label1.Text) Panel1.Height=Label1.Height +50 st=st+Label1.Height+65 ScrollView1.Panel.Height=st End Subممنون میشم کمک کنید.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.