برای شب یلدا کدوم سورس رایگان کنم 😁؟
تو کامنت بگین

بروز رسانی کلاس چت
قابلیت ریپلای بر روی پیام ها
شبیه تلگرام

دوستان یه توضیح در مورد این کلاس

ما برای بهینه سازی بهتر اومدیم تنها یه کلاس ایجاد کردیم که
گروه
کانال
چت خصوصی
را شامل میشه و سمت دیتابیس هم تنها یه جدول داریم به اسم tbl_chat
حالا شما در این جدول میتونید هم کانال داشته باشید هم گروه وهم پیام های خصوصی
این کلاس هم قرار بروزرسانی بشه و در بروزرسانی های بعدی قرار فوروارد،ریپلای استوری.... واکنش به پیام هم آورده بشه

و یه آپدیت بزرگی که قرار در آینده بزنم اینه که وقتی لینک داخل پیام ارسال میشه مثل تلگرام محتوای لینک هم نمایش داده میشه

با واکنش نشون بدین که راضی هستین بازی ۲۰۴۸ رایگان بدیم؟
چون همه سورس هارو من قبلا رایگان فرستادم

یه سری از دوستان تو پی وی گفتن شما کی سورس رایگان دادین
والا من همه سورسارو رایگان اینجا برای دوستانی که درخواست کردن،ارسال کردم
اگرم متوجه نشدین باز پیام بدین تا ارسال بشه
❤️🌹

Dim customPattern As String = "\\d{3}-\\d{3}-\\d{4}"
Dim user As Nordeh_Spannable
user.Initialize(Me,"user")
user.username(True,Colors.Red)
user.hashtag(True,Colors.Red)
user.links(True,Colors.Red)
user.phonenumbers(True,Colors.Red)
user.OtherPattern(True, customPattern, Colors.Red)
user.start(Label1, True, "")

' حالا اگر بخواهیم همه تنظیمات را پاک کنیم و به حالت اولیه بازگردیم:
user.reset


Private Sub user_username(value As String,tag As Object)
  Log(value)
End Sub
Private Sub user_hashtag(value As String,tag As Object)
  Log(value)
End Sub
Private Sub user_link(value As String,tag As Object)
  Log(value)
End Sub
Private Sub user_phone(value As String,tag As Object)
  Log(value)
End Sub

دوستان این قابلیت کلیک بر روی پترن های مشخص شده داره
از کد های کتابخانه مشخصه که کارکردش چیه
فردا شب ارسال میکنم تو کانال

و اینم آپدیتی که گفته بودم و وقتی لینک ارسال میشه تو محیط چت
میاد محتویات اون لینک شبیه تلگرام نشون میده 😄😍

آپدیت بعدی این کلاس در حدی هست که هرچی سورس در این کانال هست می‌شوره می‌بره 😄
حالا بگیم بهتره
امکان نظر سنجی با تمام امکانات مشابه تلگرام در محیط چت 😊

کتابخانه بهینه برای رنگی کردن
@username
#hashtag
www.google.com
قابلیت کلیک برای هر قسمت با

basic sub 

های مختلف و امکانات دیگر

امشب یه کتابخانه خفن دیگه داریم✈️✈️✈️

  Dim add As nordeh_AddImageToTextview
  add.Initialize(Me,"click",Label1)
  add.tag="sadegh"
  add.addText("سلام","ok",Colors.Red,20,Typeface.DEFAULT,True,True)
  add.addImage("https://statics.basalam.com/public-10/users/GK66M/07-14/1RgYPwcJLlbtmtz6Oh9bPIazfylYnoSxc78MN4tngnPgkeYr01.jpg_512X512X70.jpg","image",20,180,True)

  add.addText("اینم لینک","ff",Colors.Blue,20,Typeface.DEFAULT_BOLD,False,False)
  add.addImage(LoadBitmapResize(File.DirInternal,"pause-to.png",20dip,20dip,True),"ok",20,0,False)
    add.apply
  Label1.Gravity=Gravity.RIGHT+Gravity.CENTER_VERTICAL

کتابخونه برای لود کردن عکس در لیبل بصورت انلاین و حافظه و قابلیت کلیک بر هر بخش با گرد کردن عکس

Private Sub click_imagetotext(value As Object,tag As Object)
  Log(value)
  Log(tag)
End Sub

کاربردش برای ساخت لیبل هایی که کنارش ایکن از نوع png یا jpg میاد که قصد دارم گیف هم اضافه کنم