رفتن به مطلب
  • 0

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


mohammade79

سوال

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

Sub button2_click
Dim PicChooser As ContentChooser
    PicChooser.Initialize("PicChooser")
    PicChooser.Show("image/*", "یک عکس انتخاب کنید")
End Sub	

Sub PicChooser_Result(Success As Boolean, Dir As String, FileName As String)
    If Success = True Then
        Dim inp As InputStream
        inp = File.OpenInput(Dir, FileName)
        Dim btm As Bitmap
        btm.Initialize2(inp)
        desigen.SetBackgroundImage(btm)
    Else
        ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
    End If
End Sub 
لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

فک کنم این تاپیک ببینی به جوابت برسی  چون من رسیدم !

 

سوال - فراخوانی تکست باکس در یک اکتویتی دیگر
لینک ارسال
به اشتراک گذاری در سایت های دیگر

فقط میخوام ببرمش تو یه اکتیویتی دیگه یعنی اینجا سلکت کنم بعدش بفرستم به ایمیج ویویی در اکتیویتی دیگری

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

چیزی ر. که می خوایید بنده تست نکردم ولی خب شما متغییر بیتمپ رو در Proccess_Globals  تعریف کنید و عکس رو ذخیره و توی اکتیویتی دیگه همین متغییر بیتمپ رو به ایکیج ویو نسبت بدید

تست کنید و نتیجه رو اعلام کنید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

میشه نمونه کد بذارین من زیاد با این قسمت کار نکردم نمیدونم چجوری باید انجامش بدم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بر فرض مثال این اکتیویتی که ما عکس رو انتخاب می کنیم :

Sub Proccess_Globals
 Dim btm As Bitmap
End Sub

Sub button2_click
Dim PicChooser As ContentChooser
    PicChooser.Initialize("PicChooser")
    PicChooser.Show("image/*", "یک عکس انتخاب کنید")
End Sub	

Sub PicChooser_Result(Success As Boolean, Dir As String, FileName As String)
    If Success = True Then
        Dim inp As InputStream
        inp = File.OpenInput(Dir, FileName)
        btm.Initialize2(inp)
        desigen.SetBackgroundImage(btm)
    Else
        ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
    End If
End Sub

و توی اکتیویتی بعدی که قصد داریم توی ایمیج ویو نمایش بدیم :

ImageView1.Bitmap = Main.btm
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...