گالری آنلاین و ذخیره

سوال

سلام دوستان
من یه برنامه دارم میسازم درباره ماشین ها و بیش از هزار باتن هست ک اسامی ماشینها روشون نوشته شده.

میخوام وقتی کاربر روی هر باتن کلیک کرد عکس مربوط به همون ماشین نمایش داده بشه و دو دکمه هم باشه یکی برای ذخیره و یکی برا اشتراک.ممنون میشم یکی کمکم کنه چون تازه کارم.


فایل پیوست
در حال بررسی 1
, 2019-03-16T11:00:04+03:30 6 پاسخ کاربر تازه 0

پاسخ ها ( 6 )

  1. morteza
    2
    2019-03-17T00:43:31+03:30
    پاسخ

    سلام.

    حاجی اینطوری که شما سوال کردی، یعنی پروژه رو بنویس بهم تحویل بده!!

    شما خودت تا کجا پیش رفتی و الان مشکلت دقیقا چیه؟

    • دانیال
      0
      2019-03-17T08:29:43+03:30
      پاسخ

      الان من باتن هارو طراحی کردم و اسکرولشونم کردم.فقط میخوام که برای مثال کد باتن کلیک یا کدی ک مربوط به اوردن عکس ازاینترنت باشه و کد باتن ذخیره.یعنی وقتی کاربر کلیک کرد یه صفحه مث این صفحه کمیزارم بیاد.ک هم عکسو نشون بده هم دکمه ذخیره و اشتراکش بیاد


      فایل پیوست
  2. morteza
    0
    2019-03-20T23:11:13+03:30
    پاسخ

    یعنی الان منظورت اینه که کد ذخیره عکس، اشتراک عکس و دستور بارگذاری عکس از اینترنت در برنامه رو میخوای؟

    • دانیال
      0
      2019-03-22T17:54:04+03:30
      پاسخ

      درکل میخوام ی راهنماییم کنی چطور یه همچین صفحه ای بسازم اگه زحمتی نیست.راهنماییم کنید لطفا ذره به ذرشو ک چیکار کنم .ممنون

  3. morteza
    0
    2019-03-23T22:43:31+03:30
    پاسخ

    خب

    این خیلی طولانیه

    بایدم خودت تلاش کنی.

    اول بریم سراغ ذخیره عکس:

    ببین، شما باید تصویر رو در داخل یک ایمیج ویو بندازی و ازش عکس بگیری.

    این دستور فکر کنم به دردت بخوره:

    Sub save_pic
	Dim Obj1, Obj2 As Reflector
	Dim bmp As Bitmap
	Dim c As Canvas
	Dim Obj1, Obj2 As Reflector
	Dim Out As OutputStream

	Obj1.Target = Obj1.GetActivityBA
	Obj1.Target = Obj1.GetField("vg")
	bmp.InitializeMutable(img_pic.Width, img_pic.Height)
	c.Initialize2(bmp)
	Dim args(1) As Object
	Dim types(1) As String
	Obj2.Target = c
	Obj2.Target = Obj2.GetField("canvas")
	args(0) = Obj2.Target
	types(0) = "android.graphics.Canvas"
	Obj1.RunMethod4("draw", args, types)
	pic_capture=Rnd(0,10000)
	Out = File.OpenOutput(File.DirRootExternal & "/" & "x" ,pic_capture&".jpg", True)
	bmp.WriteToStream(Out, 100, "JPEG")
	Out.Close
	ToastMessageShow("تصویر مورد نظر در پوشه x ذخیره شد",True)
End Sub

    این دستور برای ذخیره تصویر استفاده میشه.

    استفادش به عهده خودت.

    • دانیال
      1
      2019-03-24T09:40:36+03:30
      پاسخ

      مهندس جان ای دی تلگرام یا شماره واتساپتو ایمیل میکنی برام چون هی براتون عکس  از کدها بفرستم تا زودتموم بشه ممنون ؟

  4. morteza
    1
    2019-03-24T14:36:32+03:30
    پاسخ

    نه، لطف کنید سوالتون رو داخل سایت بپرسید تا بقیه هم بتونن استفاده کنن.

    شما فقط یک کلام بگو چی میخوای همین.
    شسته رفته.

  5. morteza
    0
    2019-03-24T14:45:26+03:30
    پاسخ

    برای بارگذاری عکس از نت هم ابتدا کتابخانه picasso رو فعال کن و اینطوری بزن:

    Dim p As Picasso
p.LoadUrl("adress pic in net").CenterInside.IntoImageView(img_pic)

    البته این دستور برای بارگذاری عکس از نت هست نه از هاست.

     

  6. دانیال
    0
    2019-03-24T15:08:23+03:30
    پاسخ

    یعنی برای هر باتن یه اکتیویتی بنویسم و این کذارو تو هر کذوم بنویسم یا برای همه باتنا فقط یه اکتویتی باشه ؟

ارسال یک پاسخ