رفتن به مطلب

mehdi1376

کاربر رو به رشد
  • تعداد ارسال ها

    88
  • تاریخ عضویت

  • آخرین بازدید

درباره mehdi1376

  • تاریخ تولد تعیین نشده

مشخصات پروفایل

  • محل زندگی
    فارس - لامرد

آخرین بازدید کنندگان نمایه

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمی شود.

دستاورد های mehdi1376

علاقه‌مند

علاقه‌مند (6/14)

  • Reacting Well
  • Conversation Starter
  • First Post
  • Collaborator
  • Week One Done

نشان‌های اخیر

44

اعتبار در سایت

  1. سلام دوستان دیدید که مثلا توی یه باتن دستور باز شدن یه باتن دیگه رو میذارن ؟ مثلا اینجوری: Sub Button2_Click Button1_Click End Sub خب حالا من میخوام توی همین باتن 2 به جای اینکه بگم باتن 1 باز بشه میخوام activity create باز بشه یعنی ایجوری: Sub Button2_Click Activity_Create End Sub ولی وقتی این کد رو مینویسم میگه : Error description: Syntax error (missing parameter) خب چه جور بنویسمش تا دستور باز شدن activity create توی باتن ایجاد بشه؟ ممنون
  2. نه فک کنم نویکت عکسا رو یه جا ذخیره میکنه و باید اونا رو حذف کنم تا حجمش کم بشه
  3. mehdi1376

    مشکل با دیتابیس

    سلام دوستان من توی دیتابیسم( navicate ) اول چندتا عکس گذاشته بودم و حجم فایل به 17 مگ رسیده بود بعد که اون عکسا رو از توی دیتابیس حذف کردم حجم فایل تغییری نکرد و هنوز همون 17 مگ هست . انگار که عکسا حذف نشده دلیلش چیه ؟ چیکار کنم؟
  4. نه اون رو بلدم عکسای زیر رو ببین [ATTACH=CONFIG]330[/ATTACH] عکس بالا برای موقعی هست که عکس آیتم های لیست ویو رو از فایل برنامه میگیرم و عکس زیر برای زمانی که عکس رو از دیتابیس میگیرم [ATTACH=CONFIG]331[/ATTACH] من میخوام مثل عکس دوم بشه شما بگید توی اون bitmap.initialize چی بنویسم که عکسو از دیتابیس بگیرم؟
  5. ببینید طبق کدی که فرستادم من میخوام عبارت توی پرانتز توی کد زیر ("Btmp.initialize(file.dirassest,"fa.png جای اینکه فقط یه عکس از توی فایل برنامم بگیره و نمایش بده از دیتابیس بگیره یعنی مثلا اینجوری (("Btmp.initialize (cur.getstring("image اما وقتی این کد رو میذارم ارور میده و میگه اینطور پارامتری وجود نداره مشکل چیه؟ عبارت توی پرانتز رو چی بزارم تا عکس رو از دیتابیس بگیره ( در ضمن Btmp همون bitmap در آیتم های لیست ویو هست یعنی bitmap در خط زیر Towlinesandbitmap) امیدوارم منظورمو فهمیده باشید ممنون
  6. سلام دوستان من این کد رو دارم Dim btmp As Bitmap btmp.Initialize(File.DirAssets,"fa.png") و اینم کد لیست ویوم ListView1.AddTwoLinesAndBitmap2(esm,famil,btmp,esm) من میخوام که عکس رو به جای اینکه از فایل برنامم بگیرم از دیتابیسم بگیرم یعنی اینجوری btmp.Initialize(namayesh(cur.getstring("list")) ولی وقتی این کد رو میذارم ارور میده که btmp اینطور پارامتری رو نداره لطفا بگید چیکارش کنم اون namayesh هم مهم نیست فقط تعریفش کردم برای اینکه بتونم عکس رو بگیرم
  7. مهدی آقا من بی صبرانه منتظر آموزش هستم هرچه سریعتر بهتر
  8. آقا مصطفی دمت گرم خیلی ممنون
  9. آقا آرمین توی لینک زیر که خودتون یه سورس جستجو گذاشتید http://answercenter.ir/showthread.php?t=268&page=2 لطفا بگید که چطور آیتم های متناسب با جستجو نمایش داده بشه یعنی مثلا وقتی سرچ کنید سلام تی لیست ویو فقط آیتم هایی که سلام توشون هست نمایش داده بشه ممنون
  10. سلام دوستان من سورس برنامه رو میذارم شما بررسیش کنید ببینید چیکار باید کرد برای اینکه فقط آیتم های مرتبط با لیست ویو نشون داده بشه همه چیرش آمادس فقط آیتم ها رو نشون نمیده ممنون میشم http://uplod.ir/4jdr42zkr1h4/tbl1.zip.htm
  11. دوستای عزیز یعنی نمیشه توی آیتم های لیست ویوی من(عکس اول) مثلا دکمه اشتراک گذاشت؟
  12. مجید جان من میخوام که فقط آیتم هایی که با جستجو متانسب بودن توی لیست نمایش داده بشه وگرنه جستجو رو انجام میده و نتایجو به دست هم میاره مشکلم فقط همینجاس ممنون
  13. دوستان یه سوال دیگه هم دارم عکس زیر رو ببینید [ATTACH=CONFIG]298[/ATTACH] همونطور که میبینید یکی از ستاره ها خاموش و دوتا روشنن.اینا رو گذاشتم برای علاقه مندی ها که وقتی کلیک کنن روشن میشه ولی الان ستاره ها جای عکس هستن من نمیخوام جای عکس باشن میخوام ستاره ها توی آیتم باشن تقریبا مثل عکس زیر که اشتراک وکپی و حذف و.. توی آیتم هستن : [ATTACH=CONFIG]299[/ATTACH] چه طور ببرمش توی آیتم ممنون...
  14. سلام آقا مصطفی لطفا کدش رو برام بنویسید چون من مبتدی هستم و تسلط زیادی ندارم مهدی جان از ائن سورس راستشو بخوای زیاد چیزی نفهمیدم اگه میشه یه نگاهی به کدم بنداز ممنون
  15. سلام دوستان ببخشید من یه لیست ویو ساختم و یه جستجو براش گذاشتم که وقتی سرچ میکنیم موارد رو مشخص مبکنه و حتی بهت میگه {عکس پایین} [ATTACH=CONFIG]296[/ATTACH] حالا میخوام وقتی یه کلمه سرچ میکنم فقط اون آیتم هایی که نتایج جستجو بوده توی لیست نشون داده بشه اینم کل از کد: Sub Process_Globals Dim sql1 As SQL End Sub Sub Globals Private ListView1 As ListView Dim cur As Cursor Dim esm,famil,alamat As String Private Button2 As Button Private Button1 As Button Private EditText1 As EditText Private Button3 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("frm1") If File.Exists(File.DirInternal,"tbl1.db")=False Then File.Copy(File.DirAssets,"tbl1.db",File.DirInternal,"tbl1.db") End If Activity.AddMenuItem("نشان گذاری شده ها","neshan") End Sub Sub neshan_click cur=sql1.ExecQuery("select esm,alamat from tbl1 where alamat='1'") Dim m As String m="نشان گذاری شده ها "&CRLF For i=0 To cur.rowcount-1 cur.Position=i m=m&CRLF m=m&cur.GetString("esm") Next ToastMessageShow("m",False) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click ListView1.Clear If sql1.IsInitialized=False Then sql1.Initialize(File.DirInternal,"tbl1.db",False) End If cur=sql1.ExecQuery("SELECT * FROM tbl1") For i = 0 To cur.RowCount-1 cur.Position=i esm=cur.GetString("esm") famil=cur.GetString("famil") alamat=cur.GetString("alamat") Dim btmp As Bitmap If alamat=0 Then btmp.Initialize(File.DirAssets,"fab.png") Else btmp.Initialize(File.DirAssets,"fa.png") End If ListView1.AddTwoLinesAndBitmap2(esm,famil,btmp,esm) Next cur.Close End Sub Sub Button2_Click StartActivity(act_3) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) cur=sql1.ExecQuery("select alamat from tbl1") cur.Position=Position If cur.GetString("alamat")="0" Then sql1.ExecNonQuery("update tbl1 set alama'1' where esm='"&Value&"'") Else sql1.ExecNonQuery("update tbl1 set alama'0' where esm='"&Value&"'") End If ListView1.Clear Button1_Click End Sub Sub ListView1_ItemLongClick (Position As Int, Value As Object) sql1.ExecNonQuery("delete from tbl1 where esm='"&Value&"'") ListView1.RemoveAt(Position) End Sub Sub Button3_Click cur=sql1.ExecQuery("select esm from tbl1 where esm like '%" & EditText1.Text & "%'") Dim btmp As Bitmap If alamat=0 Then btmp.Initialize(File.DirAssets,"fab.png") Else btmp.Initialize(File.DirAssets,"fa.png") End If If cur.RowCount>0 Then Dim m As String m="نتایج به دست آمده "&CRLF For i=0 To cur.rowcount-1 cur.Position=i m=m&CRLF m=m&cur.GetString("esm") Next ToastMessageShow(m,False) Else ToastMessageShow("جستجو نتیجه ای نداشت",False) End If End Sub فکر نکنم خیلی مشکل باشه ... لطفا کمک کنید
×
×
  • اضافه کردن...