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

[mohammade79 127]

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

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 

[vahid.taj 14]

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

 

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

[mohammade79 127]

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

[مجید آرتا 5,874]

سلام

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

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

[mohammade79 127]

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

[مجید آرتا 5,874]

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

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