خواندن استیکر از دیتابیس آنلاین

[montazeranmahdi 101]

سلام بر دوستان خدا

 

دیتابیس رو utf8mb4 کردم تا بتونم ایموجی رو توش بیارم و موفق هم شدم و ایموجی ها تو دیتابیس آنلاین نمایش داده میشن ولی وقتی ایموجی تو دیتابیس رو میخوام بیارم تو یک لیبل نمایش بدم بجاش ؟ میذاره

 

ممنون میشم راهنمایی کنید

مخلص

[Mr Mansour 325]

دوست عزیز برای نمایش ایموجی ها باید از utf32 استفاده کرده و برای نمایش اون توی یک lbl باید اون رو تبدیل کنی و بعد نمایشش بدی که از طریق این رویداد میتونی استفاده کنی . 

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

حالا کافیه ایموجی رو بهش بدی .

به این شکل 

EditText1.Text = UTS(0x1F600) 

واسه کد های هر ایموجی هم از این وب استفاده کن.

Emoji - CodePoint

موفق باشی.

[montazeranmahdi 101]

ممنونم لطف کردین