20 菜单Spinner1如何使用

IPSC1978.GICP.NET

20 菜单Spinner1如何使用 - 文章首页→返回版区

■标题:20 菜单Spinner1如何使用

■作者:IPSC [2026/2/3 21:58:13]
下拉或上拉菜单，可以放大量的功能模块。

先在设计器里画出菜单Spinner1

[vb]
Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private Spinner1 As Spinner
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("tel11")
'这里就是菜单的项目名称，按顺序
Spinner1.AddAll(Array As String("第0项文字123", "第1项文字123", "第2项文字123"))
Spinner1.Color=Colors.White'背景色为白色文字颜色为 Spinner1.TextColor=
End Sub

Private Sub Spinner1_ItemClick (Position As Int, Value As Object)
' 获取选中的项索引和值
Log("选中的位置: " & Position)
Log("选中的值: " & Value)

If Position=0 Then

'第0项点选要执行的东西写在这下面

end if

If Position=1 Then

'第1项点选要执行的东西写在这下面

end if

'这是我想出来的写法，应该从第0项就开始，但最后要加return。这种办法的好处是，有时在菜单中间要加入项目，只要在菜单上加完文字，程序按顺序加在相应的位置，后面的就不用改了，不然position=后的数字，全都要改了。

Dim psii As Int=0

'--------------------1

If Position=psii Then

'下一项就这么加就行了,下面写这个功能的程序

Return'这个end if程序就结束，相当于vb6的 exit sub
End If
psii=psii+1

'--------------------2

'--------------------1
If Position=psii Then
'下一项就这么加就行了,下面写这个功能的程序
Return'这个end if程序就结束，相当于vb6的 exit sub
End If
psii=psii+1

'--------------------2
End Sub

[/vb]

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
56 毫秒 .