من توی برنامم یه قسمت سرچ دارم که به کاربر اجازخ میده توی متن یا تیتر مطالب سرچ کنه که این حالت با Spinner مشخص شده ولی نمیشه روی گرافیک این کار کردم میخوام با RadioButton باشه بای چه تغییراتی بدم تو کد نویسی هام
اول Spinner معرفی شده
khali = True
Spinner1.Add("بر اساس ...")
Spinner1.Add("تیتر")
Spinner1.Add("متن")
و بقیه ماجرا
Sub EditText1_EnterPressed
If Spinner1.SelectedIndex = 0 Then
If EditText1.Text = "" Then
khali = True
End If
Else
khali = False
End If
If khali = True Then
ToastMessageShow("لطفا انتخاب کنید که جست و جو بر چه اساسی صورت گیرد و یا متنی داخل کادر وارد کنید!" , False)
Else
lv.Clear
fara.SingleLineTitr("test.db",sql3,cur,"SELECT * FROM book Where " &s& " LIKE '%" & EditText1.Text &"%'",lv,"Name","id")
End If
End Sub
Sub find_Click
If Spinner1.SelectedIndex = 0 Then
If EditText1.Text = "" Then
khali = True
End If
Else
khali = False
End If
If khali = True Then
ToastMessageShow("لطفا انتخاب کنید که جست و جو بر چه اساسی صورت گیرد و یا متنی داخل کادر وارد کنید!" , False)
Else
lv.Clear
fara.SingleLineTitr("test.db",sql3,cur,"SELECT * FROM book Where " &s& " LIKE '%" & EditText1.Text &"%'",lv,"Name","id")
End If
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
If Position = 0 Then
khali = True
Else if Position = 1 Then
khali= False
s = "Name"
Else if Position = 2 Then
khali = False
s = "Matn"
End If
End Sub
سوال
nasim 370
سلام
من توی برنامم یه قسمت سرچ دارم که به کاربر اجازخ میده توی متن یا تیتر مطالب سرچ کنه که این حالت با Spinner مشخص شده ولی نمیشه روی گرافیک این کار کردم میخوام با RadioButton باشه بای چه تغییراتی بدم تو کد نویسی هام
اول Spinner معرفی شده
khali = True Spinner1.Add("بر اساس ...") Spinner1.Add("تیتر") Spinner1.Add("متن")و بقیه ماجرا
Sub EditText1_EnterPressed If Spinner1.SelectedIndex = 0 Then If EditText1.Text = "" Then khali = True End If Else khali = False End If If khali = True Then ToastMessageShow("لطفا انتخاب کنید که جست و جو بر چه اساسی صورت گیرد و یا متنی داخل کادر وارد کنید!" , False) Else lv.Clear fara.SingleLineTitr("test.db",sql3,cur,"SELECT * FROM book Where " &s& " LIKE '%" & EditText1.Text &"%'",lv,"Name","id") End If End Sub Sub find_Click If Spinner1.SelectedIndex = 0 Then If EditText1.Text = "" Then khali = True End If Else khali = False End If If khali = True Then ToastMessageShow("لطفا انتخاب کنید که جست و جو بر چه اساسی صورت گیرد و یا متنی داخل کادر وارد کنید!" , False) Else lv.Clear fara.SingleLineTitr("test.db",sql3,cur,"SELECT * FROM book Where " &s& " LIKE '%" & EditText1.Text &"%'",lv,"Name","id") End If End Sub Sub Spinner1_ItemClick (Position As Int, Value As Object) If Position = 0 Then khali = True Else if Position = 1 Then khali= False s = "Name" Else if Position = 2 Then khali = False s = "Matn" End If End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.