[Amin_Mansouri]

یه سوال
من یه ایمیج ویو دارم که عکسی که براش گذاستم از لحاظ طولی بزرگ هست
حالا چطوری میتونم به عکس قابلیت اسکرول عمودی فقط اضافه کنم؟

یه سمپل میزارم :

  ScrollImage(www.pxr.ir).zip (اندازه 142.42 KB / تعداد دانلود: 91)


میتونی یه کار بهتر کنی عکس روبخون بد ریساز کن (یه سمپل میزارم )چون امکان داره سایز عکس خیلی بزرگ باشه
عکس رو بخون بارگزاری کن و به صورت موقت یه جا دیگه ریسایز کن .
این نمونه کد هم کمکت میکنه :

کد:

Sub Activity_Create(FirstTime As Boolean)
    Dim b As Bitmap
    b = ResizeBitmap(LoadBitmap(File.DirAssets, "image1.jpg"), 20, 20)
    Dim out As OutputStream
    out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
    b.WriteToStream(out, 100, "JPEG")
    out.Close
End Sub

Sub ResizeBitmap(original As Bitmap, width As Int, height As Int) As Bitmap
    Dim new As Bitmap
    new.InitializeMutable(width, height)
    Dim c As Canvas
    c.Initialize2(new)
    Dim destRect As Rect
    destRect.Initialize(0, 0, width, height)
    c.DrawBitmap(original, Null, destRect)
    Return new
End Sub