سلام دوستان روشی رو لازم دارم که در میان (پنل های ) ایجاد شده توسط (حلقه فور) فقط پنلی رو که کاربر سرچ کرده نمایش بده و الباقی پنل ها محو بشن و پنل های نمایش داده شده پشت سر هم قرار بگیرن .
ا قبلا خودم از روش دیگری استفاده کردم ام چون مطالب زیاده 2 الی 3 ثانیه طول میکشه تا همچیز دوباره از اول تنظیم بشه . می خوام سرعت کار بالا بره .
Sub Bts_Click'sherch Dim f,l As String f = Searchtext.Text l = spinner1.SelectedIndex '----------------------------- [color=#0000ff]If spinner1.SelectedItem = "گوینده" Then[/color] '------------------------------------------- ScrollView1.RemoveView Activity.LoadLayout("scroll") spinner1.Clear spinner1.AddAll(Array As String ("متن","گوینده")) Searchtext.Text = f spinner1.SelectedIndex = l '--------------------------------------------------- Dim cur1 As Cursor cur1 = sql1.ExecQuery("SELECT * FROM tb_bankmatn WHERE ostad LIKE '%" & Searchtext.Text & "%'") Dim cur2 As Cursor cur2 = sql2.ExecQuery("SELECT * FROM tb_stings WHERE id=1") cur2.Position = 0
[color=#ff0000] توسط این تابع تنظیماتی روکه در اکتیویتی استفده کردم دو باره به این قسمت آوردم tanzim [/color]
[color=#0000ff]End If [/color]
[color=#0000ff]If spinner1.SelectedItem = "متن" Then[/color] '------------------------------------------- ScrollView1.RemoveView Activity.LoadLayout("scroll") spinner1.Clear spinner1.AddAll(Array As String ("متن","گوینده")) Searchtext.Text = f spinner1.SelectedIndex = l '--------------------------------------------------- Dim cur1 As Cursor cur1 = sql1.ExecQuery("SELECT * FROM tb_bankmatn WHERE matn LIKE '%" & Searchtext.Text & "%'") Dim cur2 As Cursor cur2 = sql2.ExecQuery("SELECT * FROM tb_stings WHERE id=1") cur2.Position = 0 [color=#FF0000] توسط این تابع تنظیماتی روکه در اکتیویتی استفده کردم دو باره به این قسمت آوردم[/color][color=#ff0000] tanzim[/color] [color=#0000ff] End If[/color]
سوال
berayan 90
سلام دوستان روشی رو لازم دارم که در میان (پنل های ) ایجاد شده توسط (حلقه فور) فقط پنلی رو که کاربر سرچ کرده نمایش بده و الباقی پنل ها محو بشن و پنل های نمایش داده شده پشت سر هم قرار بگیرن .
ا قبلا خودم از روش دیگری استفاده کردم ام چون مطالب زیاده 2 الی 3 ثانیه طول میکشه تا همچیز دوباره از اول تنظیم بشه . می خوام سرعت کار بالا بره .
Sub Bts_Click'sherch
Dim f,l As String
f = Searchtext.Text
l = spinner1.SelectedIndex
'-----------------------------
[color=#0000ff]If spinner1.SelectedItem = "گوینده" Then[/color]
'-------------------------------------------
ScrollView1.RemoveView
Activity.LoadLayout("scroll")
spinner1.Clear
spinner1.AddAll(Array As String ("متن","گوینده"))
Searchtext.Text = f
spinner1.SelectedIndex = l
'---------------------------------------------------
Dim cur1 As Cursor
cur1 = sql1.ExecQuery("SELECT * FROM tb_bankmatn WHERE ostad LIKE '%" & Searchtext.Text & "%'")
Dim cur2 As Cursor
cur2 = sql2.ExecQuery("SELECT * FROM tb_stings WHERE id=1")
cur2.Position = 0
[color=#ff0000] توسط این تابع تنظیماتی روکه در اکتیویتی استفده کردم دو باره به این قسمت آوردم tanzim
[/color]
[color=#0000ff]End If
[/color]
[color=#0000ff]If spinner1.SelectedItem = "متن" Then[/color]
'-------------------------------------------
ScrollView1.RemoveView
Activity.LoadLayout("scroll")
spinner1.Clear
spinner1.AddAll(Array As String ("متن","گوینده"))
Searchtext.Text = f
spinner1.SelectedIndex = l
'---------------------------------------------------
Dim cur1 As Cursor
cur1 = sql1.ExecQuery("SELECT * FROM tb_bankmatn WHERE matn LIKE '%" & Searchtext.Text & "%'")
Dim cur2 As Cursor
cur2 = sql2.ExecQuery("SELECT * FROM tb_stings WHERE id=1")
cur2.Position = 0
[color=#FF0000] توسط این تابع تنظیماتی روکه در اکتیویتی استفده کردم دو باره به این قسمت آوردم[/color][color=#ff0000] tanzim[/color]
[color=#0000ff] End If[/color]
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.