Android Question Make edittext emoji for chat

[Pooya1]

I make chat for my app
In this app,i can send picture or any file
Now i need that i allow to user for add emoji in edittext
Can i show emoji in keyboard or how do i do it?

 

[Peter Simpson]

You should use the search box at the top of the page, you'll be surprised at what you can find in less than 20 seconds

https://www.b4x.com/android/forum/t...ution-for-display-emoji-in.61083/#post-385373

 

[Pooya1]

You should use the search box at the top of the page, you'll be surprised at what you can find in less than 20 seconds

https://www.b4x.com/android/forum/t...ution-for-display-emoji-in.61083/#post-385373

Yes i saw it already but i need have emoji box look like telegram or other

 

[Pooya1]

You should use the search box at the top of the page, you'll be surprised at what you can find in less than 20 seconds

https://www.b4x.com/android/forum/t...ution-for-display-emoji-in.61083/#post-385373

Actually how do i can get all emoji for show it to user? how make box?

 

[Peter Simpson]

Build your own emoji list of characters using Erels code example and display them to the user to select one. I would probably use a 'Sender' (for code neatness) when deciding which Emoji was selected by the user in the click event.

Using code from Erel.

Sub Globals
    Private LblEmoji(79) As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    For i = 0 To 78
        LblEmoji(i).Initialize("LblEmoji")
        LblEmoji(i).Tag = "Emoji " & i
        LblEmoji(i).Text = UTS(0x1F600 + i)
  
        Activity.AddView(LblEmoji(i), 100%x / 2 - 10dip, i * 25dip, 20dip, 20dip)
        Log(UTS(0x1F600 + i))
    Next
End Sub

Sub UTS (codepoint As Int) As String
    Dim bc As ByteConverter
    Dim b() As Byte = bc.IntsToBytes(Array As Int(codepoint))
    Return BytesToString(b, 0, 4, "UTF32")
End Sub

Sub LblEmoji_Click
    Dim i As Label = Sender
    Log($"Tapped ${i.Tag}"$)
End Sub

The screen shot below is NOT for the code above, but it does use Erels UTS(x) code.

Enjoy...

 

[Pooya1]

Build your own emoji list of characters using Erels code example and display them to the user to select one. I would probably use a 'Sender' (for code neatness) when deciding which Emoji was selected by the user in the click event.

Using code from Erel.

Sub Globals
    Private LblEmoji(79) As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    For i = 0 To 78
        LblEmoji(i).Initialize("LblEmoji")
        LblEmoji(i).Tag = "Emoji " & i
        LblEmoji(i).Text = UTS(0x1F600 + i)
  
        Activity.AddView(LblEmoji(i), 100%x / 2 - 10dip, i * 25dip, 20dip, 20dip)
        Log(UTS(0x1F600 + i))
    Next
End Sub

Sub UTS (codepoint As Int) As String
    Dim bc As ByteConverter
    Dim b() As Byte = bc.IntsToBytes(Array As Int(codepoint))
    Return BytesToString(b, 0, 4, "UTF32")
End Sub

Sub LblEmoji_Click
    Dim i As Label = Sender
    Log($"Tapped ${i.Tag}"$)
End Sub

Spoiler: Screen shot

The screen shot below is NOT for the code above, but it does use Erels UTS(x) code.

View attachment 63823

Enjoy...

Yes i need this code

For i = 0 To 78
        LblEmoji(i).Initialize("LblEmoji")
        LblEmoji(i).Tag = "Emoji " & i
        LblEmoji(i).Text = UTS(0x1F600 + i)
  
        Activity.AddView(LblEmoji(i), 100%x / 2 - 10dip, i * 25dip, 20dip, 20dip)
        Log(UTS(0x1F600 + i))
    Next

Thanks
Ommm is it limit emoji?only 78 emoji?

 

[Peter Simpson]

only 78 emoji?

Exactly how many emoji's do you need, just play with the numbers...

 

[Pooya1]

Exactly how many emoji's do you need, just play with the numbers...

View attachment 63852

Woooow it is so much
Very Thanks