من با استفاده از کد زیر یه دکمه ساختم که روش بزنی گالری باز میشه و اگر بعضی عکس ها رو انتخاب کنی در ایمیج ویو نمیاد
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
سوال
rasoul22 40
با عرض سلام و خسته نباشید
من با استفاده از کد زیر یه دکمه ساختم که روش بزنی گالری باز میشه و اگر بعضی عکس ها رو انتخاب کنی در ایمیج ویو نمیاد
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
لطفا کمک کنید خیلی نیاز دارم
مرسی
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.