من توی برنامم یه قسمت سرچ دارم که به کاربر اجازخ میده توی متن یا تیتر مطالب سرچ کنه که این حالت با 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 معرفی شده
و بقیه ماجرا
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.