کتابخانه MC7Linkify

[M-CAP7AIN 537]

کاربرد کتابخانه :  شماره ، ایمیل ، آدرس وب ، هشتگ ، ات ساین (یا پترن دلخواه)  رو تو لیبل یا ادیت تکست مشخص میکنه +برخی از تنظیمات مربوط به لیبل

 

    Dim Linkify As MC7Linkify
    Linkify.ALL(Label1)
    Linkify.Custom(Label1,Linkify.DEMAIL_ADDRESSES & Linkify.DPHONE_NUMBERS)
    Linkify.CustomPattern(Label1,"#([A-Za-z0-9_-]+)","http://www.google.com/")
    Linkify.Hashtag(Label1,"http://www.google.com/")
    Linkify.Atsign(Label1,"http://www.google.com/")
    Linkify.EMAIL_ADDRESSES(Label1)
    Linkify.MAP_ADDRESSES(Label1)
    Linkify.PHONE_NUMBERS(Label1)
    Linkify.WEB_URLS(Label1)
    Linkify.LinkifyColor(Label1,Colors.cyan)
    Linkify.setCursorVisible(Label1,False)
    Linkify.setLineSpacing(Label1,2 , 3)
    Linkify.MovementMethod(Label1,True)
    Linkify.setClickable(Label1,False)
    Linkify.setFocusable(Label1,False)
    Linkify.setLines(Label1,2)
    Linkify.setIncludeFontPadding(Label1,True)

 

دانلود کتابخانه

[اندرویدستان 93]

در در 1396/05/14, 16:17:44، MCaptain7 گفته است :

کاربرد کتابخانه :  شماره ، ایمیل ، آدرس وب ، هشتگ ، ات ساین (یا پترن دلخواه)  رو تو لیبل یا ادیت تکست مشخص میکنه +برخی از تنظیمات مربوط به لیبل

 

    Dim Linkify As MC7Linkify
    Linkify.ALL(Label1)
    Linkify.Custom(Label1,Linkify.DEMAIL_ADDRESSES & Linkify.DPHONE_NUMBERS)
    Linkify.CustomPattern(Label1,"#([A-Za-z0-9_-]+)","http://www.google.com/")
    Linkify.Hashtag(Label1,"http://www.google.com/")
    Linkify.Atsign(Label1,"http://www.google.com/")
    Linkify.EMAIL_ADDRESSES(Label1)
    Linkify.MAP_ADDRESSES(Label1)
    Linkify.PHONE_NUMBERS(Label1)
    Linkify.WEB_URLS(Label1)
    Linkify.LinkifyColor(Label1,Colors.cyan)
    Linkify.setCursorVisible(Label1,False)
    Linkify.setLineSpacing(Label1,2 , 3)
    Linkify.MovementMethod(Label1,True)
    Linkify.setClickable(Label1,False)
    Linkify.setFocusable(Label1,False)
    Linkify.setLines(Label1,2)
    Linkify.setIncludeFontPadding(Label1,True)

 

دانلود کتابخانه

سلام

این سورس عالیه فقط یه مشکل داره اونم اینه که من میخوام هشتگ رو به یک اکتیویتی ارسال کنم نه وب ویو.

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

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

[M-CAP7AIN 537]

با کتابخونه CSBuilder میشه این کارو انجام داد. تو قسمت cs_Click شناسه اون کلمه رو دریافت کرد بعد انتقال داد به اکتیویتی دیگه.

 

Sub Activity_Create(FirstTime As Boolean)
	Dim lbl As Label
	lbl.Initialize("")
	Activity.AddView(lbl, 0, 20dip, 100%x, 50dip)
	Dim cs As CSBuilder
	cs.Initialize.Size(20).Append("Click :   ")
	cs.Clickable("cs", 1).Underline.Color(Colors.Blue).Append("#M-CAP7AIN").PopAll
	cs.EnableClickEvents(lbl)
	lbl.Text = cs
End Sub

Sub cs_Click (Tag As Object)
	Log($"You have clicked on word: ${Tag}"$)
End Sub