hocein2 9 ارسال شده در 29 آبان، ۱۳۹۶ اشتراک گذاری ارسال شده در 29 آبان، ۱۳۹۶ درود وقت بخیر. من برای مپی که با Mapfragment میارم یک Snippet دارم به این شکل ma.Snippet = temp.Get("sAddress") و هنگام لود فقط نام ادرس رو میاره . میخوام کنارش عکس هم بیاد . مثل عکس زیر. واسه من عکس نداره فقط متن میاره. اگر نیاز هست کدنویسی رو هم تغییر بدم مشکلی نیست فقط عکس کنار متن بیاد . لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mehran3d 75 ارسال شده در 3 آذر، ۱۳۹۶ اشتراک گذاری ارسال شده در 3 آذر، ۱۳۹۶ آقا بلاخره راهشو فهمیدم اول گوگل مپ و گوگل مپ اکستراز رو که ادد کردی بعدش 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 توی این کد که چیزیه که شما میخواین من یه پنل ساختم توتا لیبل بهش اضافه کردم بعدش تایتل و اسنیپست که به مارکرداده بودیم رو بهشون اضافه کردم شما میتونید به جای دو لیبل یه لیبل و ایمیج بزارید یا اصلا یه لایه توی اون پنل لود کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
hocein2 9
درود وقت بخیر. من برای مپی که با Mapfragment میارم یک Snippet دارم به این شکل
ma.Snippet = temp.Get("sAddress")
و هنگام لود فقط نام ادرس رو میاره . میخوام کنارش عکس هم بیاد . مثل عکس زیر.
واسه من عکس نداره فقط متن میاره. اگر نیاز هست کدنویسی رو هم تغییر بدم مشکلی نیست فقط عکس کنار متن بیاد .
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.