مشکل در لود کردن عکس در b4a

[sattaroghli 9]

لطفا کمکم کنید

وقتی که میخوام از طریق کد نویسی ImageView به برنامه اضافه کنم و بعد یدونه عکس load کنم ، اون عکس به اندازه ی واقعی خودش لود میشه و یا کوچیکه ، یا انقد بزرگه که معلوم نیست .

از کد LoadBitmap استفاده میکنم

 

لطفا بگید چیکار کنم که حالت عادی نشون بده عکس رو  :(

[hemmaty76 175]

لطفا کمکم کنید

وقتی که میخوام از طریق کد نویسی ImageView به برنامه اضافه کنم و بعد یدونه عکس load کنم ، اون عکس به اندازه ی واقعی خودش لود میشه و یا کوچیکه ، یا انقد بزرگه که معلوم نیست .

از کد LoadBitmap استفاده میکنم

 

لطفا بگید چیکار کنم که حالت عادی نشون بده عکس رو  :(

دوست عزیز طول و عرض ایمیج ویو رو به تناسب عکستون تنظیم کنید بعد از کد

Dim image1 As ImageView




	image1.Gravity=Gravity.FILL

استفاده کنین

[porya 959]

سلام شما میتونی از LoadBitmapSample استفاده کنی...

[sattaroghli 9]

سلام شما میتونی از LoadBitmapSample استفاده کنی

 

استفاده کردم ولی متاسفانه طول و عرض که میدم اندازه هایی که خودش میخواد رو میده و هیچ فرقی نمیکنه :2:

[Mohammad.1379 12]

خوب دوست عزیز چرا از طریق کد تو ایمیج ویو عکس میذارید خود ایمیج ویو در دزاین یه قسمت داره که میتونی براش عکس بزاری

[sattaroghli 9]

خوب دوست عزیز چرا از طریق کد تو ایمیج ویو عکس میذارید خود ایمیج ویو در دزاین یه قسمت داره که میتونی براش عکس بزاری

 

اخه قراره برنامه ای باشه مبنی بر دیتا بیس ، و اینکه اگر یه گزینه ای دخیره شد و بعد خواستم لودش کنم ، با یه عکس مشخص لود بشه ، و گزینه های دیگه هم با عکسای دیگه

[Mohammad.1379 12]

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

پسند یادتون نره

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private ImageView1 As ImageView
	Private ScrollView1 As ScrollView
	Private Button1 As Button
	Private Button2 As Button
	Dim label1 As Label
	Dim cur1 As Cursor
	Dim SQL As SQL
	Dim ph As Phone
	Dim cur As Cursor
	Dim a As Int
	Private Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("l6")
	 ph.SetScreenOrientation(1)
	
	
	If File.Exists(File.DirInternal,"sang.db") = False Then
		File.Copy(File.DirAssets,"sang.db",File.DirInternal,"sang.db")
	End If
	If SQL.IsInitialized = False Then
		SQL.Initialize(File.DirInternal,"sang.db",False)
	End If
	
	
	
    label1.Initialize("Label1")
	
	ImageView1.Bitmap = namayesh( sang.tartib-1)
	
	Dim cur1 As Cursor
	
	
	cur1=SQL.ExecQuery("SELECT * FROM tbl2 WHERE id="&sang.tartib)
	cur1.Position=0
	label1.Initialize("Label1")
	label1.Text = cur1.GetString("mtn")
	
	Label2.Text = cur1.GetString("name")
	If File.Exists(File.DirInternal,"sittings.stg") = True Then
Dim list1 As List
list1=File.ReadList(File.DirInternal,"sittings.stg")
tanzimat.font = list1.Get(0)
tanzimat.size = list1.Get(1)
tanzimat.color = list1.Get(2)
Else 
tanzimat.font = "font1"
tanzimat.size = 20
tanzimat.color = 6
End If
	
	
	label1.Typeface=Typeface.LoadFromAssets(tanzimat.font & ".ttf")
	
	
	
    ScrollView1.Panel.AddView(label1,0,0,ScrollView1.Width,ScrollView1.Height)
	Dim su As StringUtils
	label1.TextSize = tanzimat.size
	
	label1.Height=su.MeasureMultilineTextHeight(label1,label1.text)
	ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.text)+10%y

Select Case tanzimat.color
	Case 1
	label1.TextColor=Colors.White
	Case 2
	label1.TextColor=Colors.Yellow
	Case 3
	label1.TextColor=Colors.Blue
	Case 4
	label1.TextColor=Colors.Red
	Case 5
	label1.TextColor=Colors.Cyan
	Case 6
	label1.TextColor=Colors.Black
	Case 7
	label1.TextColor=Colors.Green
	End Select





End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	Dim r As Int
	r = Msgbox2("کدام گزینه را به اشتراک می گذارید","اشتراک گذاری ...","متن","","عکس",LoadBitmap(File.DirAssets,"end1.png"))
	If r=DialogResponse.POSITIVE Then
	Dim Aria As AriaLib
StartActivity( Aria.ShareText( label1.Text , "اشتراک گذاری" ) )
	End If
	
	If r=DialogResponse.NEGATIVE Then
	
	Dim B As Bitmap
	B = ImageView1.Bitmap
	Dim out As OutputStream
	out = File.OpenOutput(File.DirRootExternal,"ax1.jpg",False)
	B.WriteToStream(out,100,"PNG")
	out.Close
	
Dim cur2 As Cursor
cur2= SQL.ExecQuery("select* from tbl2 where id = "&sang.tartib)
cur2.Position=0
	Dim Aria As AriaLib
StartActivity( Aria.SharePicFromDB(cur2.GetBlob("aks"),"ax1.jpg","اشتراک با :"))
	End If

Return True
End Sub
Sub Button2_Click
	Dim c As Cursor
	c = SQL.ExecQuery("SELECT * FROM tbl2")
	SQL.ExecNonQuery("UPDATE tbl2 SET neshan = 1 WHERE id ="&sang.tartib)
	ToastMessageShow("به لیست علاقه مندی ها اضافه شد",True)
End Sub

Sub namayesh(Position As String) As Bitmap

cur = SQL.ExecQuery("Select aks from tbl2")
cur.Position = Position
Dim Bytes() As Byte
Bytes = cur.GetBlob("aks")

Dim input As InputStream
input.InitializeFromBytesArray(Bytes,0,Bytes.Length)

Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub

[sattaroghli 9]

دوست عزیز طول و عرض ایمیج ویو رو به تناسب عکستون تنظیم کنید بعد از کد

Dim image1 As ImageView




	image1.Gravity=Gravity.FILL

استفاده کنین

 

 

قربان خیلی ممنون مشکلم با خط image1.Gravity=Gravity.FILL حل شد . خیلی ممنون :ok: