رفتن به مطلب
  • 0

مشکل ست کردن عکس از دیتابیس در imageview


احمد وفا

سوال

با سلام من هر کاری می کنم عکس در imageview به درستی ست نمی شه.تو تالار هم از دیشب دارم سرچ کردم ولی توفیقی در اصلاح نیافتم لطفا کمک کنید؟ممنون

تصویر مشکل Untitled.png

می بینید که  در ایمیج نصفه می افته

Sub Activity_Create(FirstTime As Boolean)
     Activity.LoadLayout("image")
	
	 
	 
	
	label1.Initialize("label1")
	
	If File.Exists(File.DirInternal,"bn.db")= False  Then
		File.Copy(File.DirAssets,"bn.db",File.DirInternal,"bn.db")
	End If
	 
	If Fehrest.sql1.IsInitialized=False   Then
		 
		Fehrest.sql1.Initialize(File.DirInternal,"bn.db",False)
		
	End If
 
	
	
	cur2=Fehrest.sql1.ExecQuery("SELECT * FROM TblMatn  WHERE ID="& Fehrest.textmatn)

	For i=0 To cur2.RowCount-1
	cur2.Position=0
 
		 
		img.Initialize("")
		img.Width=ScrollView2.Width/2
		img.Height=ScrollView2.Height/2
		img.Gravity=Gravity.FILL
		
		bitmap.Initialize("img")
 
		img.Bitmap = LoadBitmap(File.DirRootExternal,cur2.GetString("Img"))
		

		ScrollView2.Panel.AddView(img,15%x,30%y,bitmap.getWidth(img.Bitmap),bitmap.getHeight(img.Bitmap))
		img.Height=(ScrollView2.Height*img.Width)/ScrollView2.Width
		
		p.Initialize(img,"img1",Null,1,3,1,True,Me)
		p.CanZoom=True
		p.CanMove=True
		p.LimitArea=True
		 
		
		 
		
Next

مشکل کجاست؟البته تصویر با استفاده کتابخانه PinchZoomAndMove (متغییر p) حرکت می کنه و دستی ست می شه ولی به صورت دیفالت نصف می افته

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

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

ارسال های توصیه شده

اینو

img.Width=ScrollView2.Width/2

اینطوری بنویس ببین درس نمیشه

img.Width=ScrollView2.Width

 

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

مشکلم با این کتابخونه حل نشد ولی با کتابخونه TouchImageView 2.11 و کد ذیل بسیار جذاب شد کار


		TouchImageView1.Initialize("TouchImageView1")
		
		Activity.AddView(TouchImageView1, 0, 0, 100%x, 100%y)
	
		TouchImageView1.MinScale=0.25			'	default is 0.5
		TouchImageView1.MaxScale=3			'	default is 1.5
		TouchImageView1.TranslatePadding=128dip	'	default is 64dip
		TouchImageView1.Gravity=Gravity.FILL
		TouchImageView1.TouchEnabled=True
		TouchImageView1.RequestFocus
		TouchImageView1.SendToBack
		 
	
		Dim Bitmap1 As Bitmap
		Bitmap1.Initialize(File.DirInternal,cur2.GetString("Img"))
		TouchImageView1.SetBitmap(Bitmap1)
	
		If FirstTime Then
			'	Rect parameters are: left, top, right, bottom
			SourceImageRect.Initialize(0, 0, Bitmap1.Width, Bitmap1.Height)
			TouchImageViewRect.Initialize(0, 0, TouchImageView1.Width, TouchImageView1.Height)
		End If
	
		'	if the scaling process scales the image to less than the current MinScale or more than the current MaxScale then MinScale or MaxScale will be adjusted
		TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER")	'	make string a static constant in library
		
		
		
		

 

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

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...