Android Question click Event error on customwiew

Tayfur

Well-Known Member
Licensed User
Longtime User
My code was broken.
I cant understandt. Every thin is normal...


Main code.

never dont run this events
B4X:
Sub CustomView1_Click(ActiveWebPageNo As Int)' selected web page no
    Log("ccilik:"&ActiveWebPageNo )
End Sub
              
Sub CustomView1_LongClick(ActiveWebPageNo As Int)' selected web page no
    Log("Long cilik:"&ActiveWebPageNo )
End Sub


resim-1.jpg


Class code :
B4X:
#Region Library Attributes
    #Event: Click(ActiveWebPageNo As int)' selected web page no
    #Event: LongClick(ActiveWebPageNo As int)' selected web page no
    #Event: Change(ActiveWebPageNo As int)
    #Event: Loaded ' AddWebPage
    #Event: Intelized(Parent As Panel) 'Load(Speed,Parent)
    #Event: MoveUp(ActiveWebPageNo As int,Page_Centered as Boolean)
    #Event: MoveDown(ActiveWebPageNo As int,Page_Centered as Boolean)
    #Event:PageDeleted(ActiveWebPageNo As int)
#End Region

'--------------------------------------in code lines--------------
Case ACTION_UP
        'Log ("up :"&Time_Move.X&" y"&Time_Move.Y&"|| x:"&X&"-Y:"&Y&" t.time:"&Time_Move.touchtime  )
        Time_Up.touchtime=DateTime.Now
        If Time_Up.touchtime-Time_Down.touchtime<500 And Time_Move.touchtime=0  Then '--------- nrmal cilik sürei
            'Log("cilck")
            Time_Move.touchtime=0
            Time_Move.X=0
            Time_Move.Y=0
            If SubExists(vModule,vEventName&"_Click") Then
                CallSubDelayed(vEventName&"_Click",ActiveWebPageNo)
            End If
            'Log("_UP-1")
            Return
        End If
      
  
        If Time_Up.touchtime-Time_Down.touchtime>500 And Time_Move.touchtime=0 Then 'long cilick süresi--------------
            'Log("longcilick")
            Time_Move.touchtime=0
            Time_Move.X=0
            Time_Move.Y=0  
            If SubExists(vModule,vEventName&"_LongClick") Then
              
CallSubDelayed(vEventName&"_LongClick",ActiveWebPageNo)
            End If
            'Log("_UP-2")
            Return
        End If
 
Last edited:

Tayfur

Well-Known Member
Licensed User
Longtime User
Have you tried to check for lowercased eventnames with subexists and then raise the event lowercased?
B4X:
            If SubExists(vModule,vEventName&"_longclick") Then
             
CallSubDelayed(vEventName&"_longclick",ActiveWebPageNo)
            End If


#Region Library Attributes
#Event: Click(ActiveWebPageNo As int)' selected web page no
#Event: LongClick(ActiveWebPageNo As int)' selected web page no

and main lines


Sub CustomView1_LongClick(ActiveWebPageNo As Int)' selected web page no
Sub CustomView1_Click(ActiveWebPageNo As Int)' selected web page no

do I change all statments????
 
Upvote 0

Tayfur

Well-Known Member
Licensed User
Longtime User
Have you tried to check for lowercased eventnames with subexists and then raise the event lowercased?
B4X:
            If SubExists(vModule,vEventName&"_longclick") Then
             
CallSubDelayed(vEventName&"_longclick",ActiveWebPageNo)
            End If


no ... :(
not change result.
 
Upvote 0

Tayfur

Well-Known Member
Licensed User
Longtime User
Have you tried to check for lowercased eventnames with subexists and then raise the event lowercased?
B4X:
            If SubExists(vModule,vEventName&"_longclick") Then
            
CallSubDelayed(vEventName&"_longclick",ActiveWebPageNo)
            End If


@DonManfred
I cheked other events.
others is work

and my all project files in "USB filash disk" ( not in HDD)

B4X:
' in main

Sub CustomView1_Change(ActiveWebPageNo As Int)
    Log("change:"&ActiveWebPageNo )
End Sub

' in class
If SubExists(vModule, vEventName & "_Change") Then
                        CallSubDelayed2(vModule, vEventName& "_Change",ActiveWebPageNo)
                End If
 
Upvote 0
Top