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

[ali123ali123 4]

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

[مهران محمودی 778]

یه تغییر کوچیک تو کدهایی که دوستمون دادن کار رو درست میکنه!

Sub Button1_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)
imageview1.SetBackgroundImage(btm)
Else
ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
End If
End Sub

اسم رویدادها یکسان نبودن، موفق باشی.

[hamedanary6513 1]

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

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

 

[korosh 27]

یه تغییر کوچیک تو کدهایی که دوستمون دادن کار رو درست میکنه!

Sub Button1_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)
        imageview1.SetBackgroundImage(btm)
    Else
        ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
    End If
End Sub  

اسم رویدادها یکسان نبودن، موفق باشی.

 

کدوم کتابخانه باید لود بشه من در ContentChooser

ارور دارم !!!

[jeqele 562]

Sub Button1_Click
   Dim PicChooser As ContentChooser
   PicChooser.Initialize("PDPicChoosed")
   PicChooser.Show("image/*", "یک عکس انتخاب کنید")
End Sub
Sub PicChoosed_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)
       imageview1.SetBackgroundImage(btm)
   Else
       ToastMessageShow("انجام نشد، دوباره تلاش کنید", True)
   End If
End Sub

بعد از کلیک کردن button1 میتونید با گالری یا فایل منیجر یا ....(بهتره از گالری استفاده نشه)، فایلو از گوشی انتخاب کنید.

بعد اون تابع دومیه خودکار اجرا میشه و عکس رو میندازه روی imageview1

[ali123ali123 4]

خودم کتابخونه اش را فهمیدم.

ولی کار نمیکنه

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

[shahrokhnazari 110]

phone