You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser.
تکه کد تابع کاربردی برای نقطه چین کردن متن در b4a
تابع کاربردی برای نقطه چین کردن متن
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تعداد کلماتی است که حفظ میشوند و مابقی به صورت نقطه چین نمایش داده خواهد شد