элемент нажмите пользовательский список просмотра basic4android - PullRequest
Новая
       31

элемент нажмите пользовательский список просмотра basic4android

0 голосов
/ 11 марта 2019

Я сделал customlistview в b4a, но не могу исправить событие click.

Я хочу, чтобы при нажатии кнопки изображение приостанавливалось, а при воспроизведении других кнопок изображение когда изображение кнопки изменяется, но изображение другой кнопки не изменяется.

enter image description here

мой код загрузки 

Sub load
For i = 0 To cur.RowCount-1
cur.Position=i
Dim p As Panel
play.Text = Chr(0xE037)
p.Initialize("p")
sco.Panel.AddView(p,1%x,top,98%x,500dip)
p.LoadLayout("layload")
play.Tag = cur.GetInt("id")
play.Typeface = awf
text.Text = cur.GetString("text")
top = top + 60dip + 2%x
Next
sco.Panel.Height = top + 10dip
End Sub

и код воспроизведения 

Sub play_Click
tim.Enabled = True
Dim lml As Label
lml.Initialize("lml")
lml = Sender
Dim curbv As Cursor
curbv = sql.ExecQuery("SELECT * FROM tab1 ")
curbv.Position = lml.Tag - 1
sec = curbv.Position
meda.Load(File.DirAssets,curbv.GetString("mp"))
kl(lml)
End Sub

и мой код для значка изменения 

Sub kl( ln As Label) 
If ln.Text = Chr(0xE037) Then
ln.Text = Chr(0xE047)
meda.Play
load
Else If ln.Text = Chr(0xE047) Then
ln.Text = Chr(0xE037)
meda.Stop
End If
Sleep(100)
play.Text = Chr(0xE037)
End Sub
...