• 0
milad4047

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

سوال

سلام به همه دوستان

وقت همگی بخیر

من از این سورسی که \ایین گذاشتم برای انتخاب عکس از گالری و برش عکس توسط کاربر استفاده کردم که خیلی سورس خوبیه و عالی کار میکنه ولی تو استفاده به یه مشکل کوچیک میخوره که نشد حل کنم اگر کاربر بره داخل گالری و عکس انتخاب نکنه و گالری رو ببنده ارور میده

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

گفتم تو انجمن مطرح کنم که اگه کسی میدونه چطوری میشه محدودش کرد یا مشکلش رو حل کرد راهنمایی کنه ممنون از همگی

Sub Globals
    Private ImageView1 As ImageView
    Private Button1 As Button
    Private Button2 As Button
    Dim onoff As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    If onoff = True Then
    onoff=False
    ImageView1.Visible = True
    ImageView1.Bitmap = LoadBitmapSample(File.DirRootExternal, "1.jpg",ImageView1.Width, ImageView1.Height)
    End If

End Sub

Sub Activity_Resume
    
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Button2_Click
    Galeria(File.DirRootExternal, "1.jpg")
End Sub


Sub ParseUri(FileName As String) As Object
Dim r As Reflector
Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(FileName), Array As String("java.lang.String"))
End Sub

Sub Galeria(Directory As String, PictureName As String)
    Dim i As Intent
    onoff = True
    i.Initialize(i.ACTION_PICK, "")
    i.SetType("image/*")
    i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg")
    i.PutExtra("crop", "true") 'crop ON
    i.PutExtra("aspectX", 0) 'crop aspects
    i.PutExtra("aspectY", 0) 'crop aspects
    i.PutExtra("outputX", 200) 'crop size
    i.PutExtra("outputY", 150) 'crop size
    StartActivity(i)

End Sub
 

Sina پسند دیده است

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


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

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

هنوز برای این سوال پاسخی ارسال نشده است

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری