【发布时间】:2016-12-12 14:37:21
【问题描述】:
我正在尝试通过此代码在 ScrollView 中使用 CardView 按钮,但它不起作用。我定义了一个 sub 将 My MsCardView 一个一个放置到 ScrollView。我是 Basic4Android 的新手,我不明白问题出在哪里!如果您能帮助我了解如何解决它,我将不胜感激!
:`
Sub Globals
Dim ScrollView1 As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
ScrollView1.Initialize("ScrollView1")
ScrollView1.Color=0xFFEEEEEE
Activity.AddView(ScrollView1,0,100%y,100%x,100%y-100dip)
MainItems
End Sub
Sub MainItems
Dim a1 As MSCardView
a1.Initialize("a1")
ScrollView1.Panel.AddView(a1,50%x-100dip,20dip,200dip,80dip)
Dim aLbl As Label
aLbl.Initialize("aLbl")
aLbl.Text="Season1"
aLbl.TextSize=20
aLbl.Gravity=Gravity.CENTER
aLbl.Typeface=Typeface.LoadFromAssets("myandroid.ttf")
aLbl.TextColor=Colors.RGB(50,50,50)
a1.Panel.AddView(aLbl,50dip,20dip,100dip,40dip)
Dim a2 As MSCardView
a2.Initialize("a2")
ScrollView1.Panel.AddView(a2,50%x-100dip,20dip,200dip,80dip)
Dim aLb2 As Label
aLb2.Initialize("aLb2")
aLb2.Text="Season2"
aLb2.TextSize=20
aLb2.Gravity=Gravity.CENTER
aLb2.Typeface=Typeface.LoadFromAssets("myandroid.ttf")
aLb2.TextColor=Colors.RGB(50,50,50)
a2.Panel.AddView(aLb2,50dip,20dip,100dip,40dip)
Dim a3 As MSCardView
a3.Initialize("a3")
ScrollView1.Panel.AddView(a3,50%x-100dip,20dip,200dip,80dip)
Dim aLb3 As Label
aLb3.Initialize("aLb3")
aLb3.Text="Season3"
aLb3.TextSize=20
aLb3.Gravity=Gravity.CENTER
aLb3.Typeface=Typeface.LoadFromAssets("myandroid.ttf")
aLb3.TextColor=Colors.RGB(50,50,50)
a3.Panel.AddView(aLb3,50dip,20dip,100dip,40dip)
.
.
.
End Sub
`
【问题讨论】:
-
为什么需要 Basic4Android?它是饥饿的,不宜居住的分支。 vb的时代已经过去了。
-
我认为我可以比其他语言更好地接触它。不过我也是个老人 :) 你有什么建议呢?我发现 java 和 Eclips 对我来说有点棘手!我只想熟悉移动编程!
-
是的,Java 但没有日食。使用 Android Studio
-
谢谢 Beloo 也许有一天我会改用 JAVA 但问题仍然存在!
-
如果你找到方法请告诉我如何在 ULV 上实现 cardView
标签: android basic4android