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)
If File.Exists(File.DirRootExternal&"/axax",Null)=False Then
File.MakeDir(File.DirRootExternal,"/axax")
End If
Activity.LoadLayout("1")
End Sub
Sub Activity_Resume
If onoff = True Then
onoff=False
ImageView1.Visible = True
ImageView1.Bitmap = LoadBitmapSample(File.DirRootExternal&"/axax", "1.jpg",ImageView1.Width, ImageView1.Height)
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button2_Click
Galeria(File.DirRootExternal&"/axax", "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", 120) 'crop size
i.PutExtra("outputY", 80) 'crop size
StartActivity(i)
End Sub
سوال
alinoori 123
سلام من این کد رو از سایت اصلی گرفتم برای برش عکس
فقط مشکلم اینه که از گالری عکس برای برش میگیره .
در صورتی که من میخوام از اینترنال برنامه بگیره .
نمیدونم کدوم قسمتش رو تغییر بدم؟؟
ممنون میشم کمک کنید.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.