Sub clv2_LayoutCreator(LayoutName As String, LayoutPanel As Panel)
LayoutPanel.LoadLayout("frm_mainlayout")
End Sub
Sub clv2_ContentFiller(ItemID As Long, LayoutName As String, LayoutPanel As Panel, Position As Int)
Dim Panel1 As Panel = LayoutPanel.GetView(0)
Dim lbl_content As Label = Panel1.GetView(0)
lbl_content.Text = "Nur mit Seil und Haken gesichert auf einem schmalen Grat balancieren."
Sub clv2_ItemClick(ItemID As Long, Position As Int, ClickedPanel As Panel)
' Log(ItemID)
'
Dim pnl_main As Panel = ClickedPanel.GetView(0)
Dim btn_up As Button = pnl_main.GetView(6)
btn_up.Tag = btn_up
ToastMessageShow(btn_up.Tag, True)
Dim lbl_counter As Label = pnl_main.GetView(5)
'btn_up.Tag = clv2.
'ToastMessageShow(ItemID, True)
'if counting = 1 Then
' opo = lbl_counter.Text
' ToastMessageShow(opo, True)
' lbl_counter.Text = opo +1
' counting = 0
'End If
' counting = lbl_counter
'Log(btn_up.)
'ToastMessageShow( clv2.GetItemID(Position), True)
End Sub
Sub clv2_ItemSelectedStateChanged(ItemID As Long, Position As Int, Selected As Boolean)
'Log("SelectionChanged ID=" & ItemID & ", Pos=" & Position & ", Selected=" & Selected)
End Sub
Sub btn_up_Click
'Dim Index As String = Sender
'Log("Index: " & Index)
Dim b As Button = Sender
ToastMessageShow(b, True)
'Log("Button: " & b)
'ToastMessageShow(counting, True)
'Dim btn_up As Button = Sender
'Dim ID As Int = btn_up.Tag
'ToastMessageShow(ID, True)
counting = 1
End Sub
End Sub