|
دليل استخدام إجراءات VBAppAss.dllللمبرمجين بلغة Visual Basic 6.0 |
تجميع رسالة مقطعية (Segmented Message) من مجموعة من النصوص.
الصيغة:
Function EncodeNSMsg(Segments As Collection) As String
الصنف:
TString.
الوسائط (Parameters):
| Segments | تجمع (Collection) يحتوي على مجموعة النصوص المطلوب تجميعها في الرسالة. |
الشرح:
تقوم الدالة EncodeNSMsg بضم مجموعة النصوص التي يشملها البارامتر Segments، و إعادتها في شكل نص واحد. النص الناتج يمكن أن يتم تفكيكه فيما بعد إلى أجزائه الأصلية باستعمال الدالة DecodeNSMsg.
لقد تم تصميم هذه الدالة في الأصل (مع الدالة DecodeNSMsg) لتجميع و تفكيك مجموعة من النصوص لإرسالها عبر الشبكة (الحرف N في اسم الدالة مأخوذ من كلمة Network)، لكن يمكنك استخدام الدالتين في أي غرض آخر تراهما مناسبتين له.
الاستخدام:
Dim ObjString As New TString
Dim MsgCol As New Collection
Dim Index As Long
Dim MyMsg As String
For Index = 0 To ListBox1.ListCount - 1
MsgCol.Add ListBox1.List(Index)
Next Index
MyMsg = ObjString.EncodeNSMsg(MsgCol)
انظر أيضاً:
الدالة DecodeNSMsg