سلام دوستان من یه مالتی پنلی ساختم که هر آیتم یه imageview هم داره واسه نشون دادن این که آیا جزو علاقه مندی هست یا نه.
حالا سوالم اینه که چطور وقتی روی اون image view کلیک شد بلافاصله عکسش تغییر کنه ؟؟؟
آیا با tag و sender میشه؟؟؟
این کد قسمت imageview منه . اسم imageview هم star
Sub star_Click
Dim l As ImageView
l=Sender
cursor2=sql1.ExecQuery("select fav from t1 where file='"& l.Tag &"'")
cursor2.Position=0
If cursor2.GetInt("fav")==0 Then
sql1.ExecNonQuery("update t1 set fav='"& 1 &"' where file='"& l.Tag &"'")
star.Bitmap=star_on
Else If cursor2.GetInt("fav")==1 Then
sql1.ExecNonQuery("update t1 set fav='"& 0 &"' where file='"& l.Tag &"'")
star.Bitmap=star_off
End If
End Sub
آیا تغییر دادن اینطوری عکس ممکنه؟
تنها اروری ک برنامم میده اینه ک posision کورسور 0 از 0 تا ردیف
سوال
amirsafari 116
سلام دوستان من یه مالتی پنلی ساختم که هر آیتم یه imageview هم داره واسه نشون دادن این که آیا جزو علاقه مندی هست یا نه.
حالا سوالم اینه که چطور وقتی روی اون image view کلیک شد بلافاصله عکسش تغییر کنه ؟؟؟
آیا با tag و sender میشه؟؟؟
این کد قسمت imageview منه . اسم imageview هم star
آیا تغییر دادن اینطوری عکس ممکنه؟
تنها اروری ک برنامم میده اینه ک posision کورسور 0 از 0 تا ردیف
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.