B4A Library Beautiful InputDialog

Hi again.
I use input dialog in my project that is beautiful and interest.
You set message and show dialog
Dialog have 2 button for ok and cancel that with click on OK,return result in event that you declare
I dont convert module to library because you will can develop it
example attach with module
This is small gift

 

[ArminKH]

thank u for sharing and thank u for source code

 

[fash866]

Yes!It's very good!

 

[JakeBullet70]

Source code!!! We all get to learn!!!

 

[fash866]

But it's can't work on release with obfusscated!

 

[lemonisdead]

But it's can't work on release with obfusscated!

Hello,
It does work when obfuscated just by modifying the sub name and the initialization method (put an underscore)

In Main

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("f1")

    it.Initialize(Me,Activity,"Please input your name:\nAtleast 3 character for name","btn_GetName")

End Sub

and

Sub btn_GetName(name As Object)
    Msgbox($"Thank you mr/mrs ${name}"$,"alert")
End Sub

 

[fash866]

Hello,
It does work when obfuscated just by modifying the sub name and the initialization method (put an underscore)

In Main

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("f1")

    it.Initialize(Me,Activity,"Please input your name:\nAtleast 3 character for name","btn_GetName")

End Sub

and

Sub btn_GetName(name As Object)
    Msgbox($"Thank you mr/mrs ${name}"$,"alert")
End Sub

Problem solved, thank you!

 

[jchal]

hi all
i tryed the example and i have a question to raize.
i input the name eg john and i want to get the result e.g string 'john' how do i get it as string?
i tryed the following code but no lack...

If name ="john" Then Msgbox ("ok") Else Msgbox("wrong")

 

[DonManfred]

Have you looked at post #6?

 

[jchal]

what i try is to use it with ImageView so i alter the code but something goes wrong
here is the altered code

#Region  Project Attributes 
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim it As InputTemplate
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("layout1")
    it.Initialize(Me,Activity,"Please input your name:\nAtleast 3 character for name","btn_GetName")

End Sub



Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ImageView1_Click
    it.Show
End Sub

Sub btnGetName(name As Object)
    'Dim str1 As String
    Msgbox($"Thank you mr/mrs ${name}"$,"alert")
    'str1= $(name)
   
    'If name ="john" Then Msgbox ("ok") Else Msgbox("wrong")
End Sub




Sub Button1_Click
    it.Show
End Sub

when i clik the button it works , when i click the image view it does not why?

 

[stevel05]

Does Layout1 contain an ImageView called ImageView1?

It would be easier to help if you uploaded a project that showed the issue.

 

[DonManfred]

called ImageView1

It can have another name for sure. The point is
is there is an imageview in the Layout which does have the EventName set to "ImageView1"?

It would be easier to help if you uploaded a project that showed the issue.

+1