تکه کد تابع کاربردی برای نقطه چین کردن متن در b4a

[PracticalSoft]

تابع کاربردی برای نقطه چین کردن متن

Sub smalline(st As String,cont As Int)As String If st.Length > cont Then st=st.SubString2(0,cont)& "..." Return st Else Return st End If End Sub ​

روش استفاده

lbl2.Text= smalline (cr1.GetString("sample"),24)​

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