من این کدها رو نوشتم ولی اسکرول نمیشه یعنی باید 10 بار دست بکشم تا شاید یه کم بیاد پایین
Sub add8(username1 As String, name1 As String , type1 As String)
Try
Dim ms01 As MSCardView
ms01.Initialize("MS01")
ms01.Elevation=2dip
ms01.MaxElevation=2dip
ms01.Radius=2dip
sv_fav.Panel.AddView(ms01,2%x,offsetY1,96%x,150dip)
'....................................................................................
Dim lbonvan As Button
lbonvan.Initialize("lbonvan")
lbonvan.Text=name1
lbonvan.TextColor=color1.md_blue_400
lbonvan.Color=Colors.Transparent
lbonvan.gravity = Gravity.RIGHT
lbonvan.TextSize=18
lbonvan.Typeface=Typeface.LoadFromAssets("yekan.ttf")
ms01.Panel.AddView(lbonvan,2%x,0,79%x,57dip)
Dim tempHeight As Float
Dim StringUtils1 As StringUtils
tempHeight = StringUtils1.MeasureMultilineTextHeight(lbonvan, lbonvan.text)
lbonvan.Height = tempHeight+30dip
'.........................................................................................
Dim ImageView1 As ImageView
ImageView1.Initialize("ImageView1")
ImageView1.Gravity=Gravity.FILL
ImageView1.Bitmap=LoadBitmap(File.DirAssets,"no_image_avalabel.png")
ms01.Panel.AddView(ImageView1,80%x,5dip,42dip,39dip)
'.........................................................................................
Dim dl_profile_img1 As String = "http://xxxxxx.ir/xxxx/xxxx/up/"&username1&".png"
Dim links As Map
links.Initialize
links.Put(ImageView1,dl_profile_img1)
CallSubDelayed2(ImageDownloader2, "Download", links)
CallSub(ImageDownloader2, "ActivityIsPaused")
ms01.Height =tempHeight+30dip
offsetY1=offsetY1+ms01.Height
sv_fav.Panel.Height=offsetY1+50dip
Catch
Log(LastException)
End Try
For Each v1 As View In Activity.GetAllViewsRecursive
If v1 Is Label Then
Dim lbl As Label
lbl = v1
lbl.Typeface = Typeface.LoadFromAssets("Yekan.ttf")
End If
Next
End Sub
سوال
majid08 266
سلام
من این کدها رو نوشتم ولی اسکرول نمیشه یعنی باید 10 بار دست بکشم تا شاید یه کم بیاد پایین
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.