تابع کاربردی برای نقطه چین کردن متن
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تعداد کلماتی است که...