سوال در مورد انتخاب عکس از گالری

[Radius 89]

سلام

 

ببخشید من با این آموزش http://answercenter.ir/topic/907-%D8%A7%D9%86%D8%AA%D8%AE%D8%A7%D8%A8-%D8%B9%DA%A9%D8%B3-%D8%A7%D8%B2-%DA%AF%D8%A7%D9%84%D8%B1%DB%8C/ یک عکسی رو انتخاب کردم از گالری ولی میخوام تو یک ImageView دیگه توی یک اکتیویتی دیگه استفاده کنم ازش

 

ممنون میشم راهنمایی کنید

[sms 199]

سلام

 

ببخشید من با این آموزش http://answercenter.ir/topic/907-%D8%A7%D9%86%D8%AA%D8%AE%D8%A7%D8%A8-%D8%B9%DA%A9%D8%B3-%D8%A7%D8%B2-%DA%AF%D8%A7%D9%84%D8%B1%DB%8C/ یک عکسی رو انتخاب کردم از گالری ولی میخوام تو یک ImageView دیگه توی یک اکتیویتی دیگه استفاده کنم ازش

 

ممنون میشم راهنمایی کنید

یه متغیر توی process_globals تعریف کن مثلا

Dim bmp As Bitmap

بعد عکس رو برابر این کن

بعدش توی اکتیویتی دیگه میتونی اینطور ازش استفاده کنی مثلا اگه توی اکتیویتی main گذاشته باشی اینطوری میتونی ازش استفاده کنی

Main.bmp

[Radius 89]

من هرچی تلاش میکنم نمیشه

 

این کد صفحه اول ام

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim inp As InputStream
	Dim txt As String
	Dim bmp As Bitmap
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	
	Dim Font As Typeface = Typeface.LoadFromAssets("jannat.ttf")
	Private ScrollView1 As ScrollView
	Private Name As EditText
	Private Panel1 As Panel
	Private ImageView1 As ImageView
	Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Startt")

End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Pic_Hacked_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

        inp = File.OpenInput(Dir, FileName)
        bmp.Initialize2(inp)
      '  ImageView1.SetBackgroundImage(btm)
    Else
        ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
    End If
End Sub  

این هم صفحه ای که میخوام عکس نمایش داده بشه

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("Start_Tele")
	Startt.bmp.Initialize2(Startt.inp)
	ImageView1.SetBackgroundImage(Startt.bmp)
End Sub