پرش به

  • مهمان گرامی به انجمن برنامه نویسی بیسیک فور ایکس خوش آمدید برای استفاده از تمام امکانات انجمن لطفا ثبت نام کنید.
    تصویر

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


    • لطفا وارد حساب کاربری خود شوید تا بتوانید پاسخ دهید
    بدون پاسخ

    #1 ارسالی چهارشنبه ۱۲ آبان ۹۵ - ۱۴:۳۹:۵۳

    milad4047
    milad4047
    +18
    • ██▒▒▒▒▒▒▒▒ %5

    • 28 ارسال

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

    وقت همگی بخیر

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

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

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

    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 کاربر در حال خواندن این موضوع است

    0 کاربر، 0 مهمان و 0 عضو مخفی

    تغییر Layout ایندکس انجمن
    انتخاب فونت دلخواه
    انتخاب رنگ عناصر
    123456789101112131415
    انتخاب عکس به عنوان پس زمینه
    انتخاب پترن به عنوان پس زمینه
    انتخاب رنگ پس زمینه ایندکس
    انتخاب رنگ منو ها
    Click To Disable Effects