ساخت snippet زیبا برای GoogleMap Fragment

[hocein2 9]

درود وقت بخیر. من برای مپی که با Mapfragment میارم یک Snippet دارم به این شکل 

		ma.Snippet = temp.Get("sAddress")

و هنگام لود فقط نام ادرس رو میاره . میخوام کنارش عکس هم بیاد . مثل عکس زیر. 

 

واسه من عکس نداره فقط متن میاره. اگر نیاز هست کدنویسی رو هم تغییر بدم مشکلی نیست فقط عکس کنار متن بیاد . 

[mehran3d 75]

آقا بلاخره راهشو فهمیدم

اول گوگل مپ و گوگل مپ اکستراز رو که ادد کردی

بعدش

	Dim gx As GoogleMapsExtras
 
	Dim liste As OnInfoWindowClickListener
	Dim iva As InfoWindowAdapter
Dim marka As MarkerOptions

تا اینجا اوکی؟

مپ که لود شد اینو میزنی

liste.Initialize("liste")
	gx.SetOnInfoWindowClickListener(gmap,liste)
iva.Initialize("iva")
	gx.SetInfoWindowAdapter(gmap,iva)

اوکی؟

بعدش مارکر رو ادد میکنی

marka.Initialize
marka.Position2(33.388018, 52.710411)

title midi
marka.Title("title")

snippest midi
marka.Snippet("snippest")
icon midi
Dim bsf As BitmapDescriptorFactory
marka.Icon(bsf.DefaultMarker2(bsf.HUE_RED))

به مپ اضافه میکنی
gx.AddMarker(gmap,marka)

اوکی؟؟

حالا

این رویداد ها رو هم اوکی میکنی

Sub mFragment_MarkerClick (SelectedMarker As Marker) As Boolean 'Return True to consume the click
 این مپه
	SelectedMarker.InfoWindowShown=True
	Return True
End Sub

Sub liste_Click(Marker1 As Marker)
اینم همون
OnInfoWindowClickListener
هستش که وقتی روی اون پنجره کلیک شد یه کاری کنه
'''some thing to do
 
End Sub

 و در آخر

Sub iva_GetInfoContents(Marker1 As Marker) As View
'	InfoWindowLabel.Text=Marker1.Title&CRLF&Marker1.Snippet
'	Return InfoWindowLabel

Dim cd As ColorDrawable
cd.Initialize(Colors.Transparent,5)

	Dim infopan As Panel
	infopan.Initialize("")
infopan.Background=cd
	infopan.SetLayout(5%x,40%y,70%x,30%y)
	Dim infomaglbl As Label
	Dim infosummury As Label
	infomaglbl.Initialize("")
	infosummury.Initialize("")
'	infopan.AddView(infomaglbl,0,0,50,20)
	infopan.AddView(infomaglbl,0,0,70%x,10%y)
	
	infopan.AddView(infosummury,0,10%y,70%x,20%y)
	infomaglbl.Text=Marker1.Title
	infomaglbl.Color=Colors.White
	infomaglbl.TextColor=Colors.Black
	infomaglbl.textsize=21
	infosummury.Text=Marker1.Snippet
	infosummury.Color=Colors.White
	infosummury.TextColor=Colors.Black
	
'	Dim InfoWindowLabel As Label
'	InfoWindowLabel.Initialize("")
'	InfoWindowLabel.Color=Colors.White
'	InfoWindowLabel.TextColor=Colors.Black
	'
'	InfoWindowLabel.Text=Marker1.Title&CRLF&Marker1.Snippet
	Return infopan
End Sub

توی این کد که چیزیه که شما میخواین من یه پنل ساختم

توتا لیبل بهش اضافه کردم

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

شما میتونید به جای دو لیبل یه لیبل و ایمیج بزارید یا اصلا یه لایه توی اون پنل لود کنید