+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل الكود بخصوص Split (/showthread.php?tid=19723)
تعديل الكود بخصوص Split - 3asfa~mdmra - 20-03-17
بسم الله الرحمان الرحيم
بعد الصلاه على الحبيب المصطفي محمد
صلى الله عليه وسلم
اما بعد /
اريد من الاخوة المتخصصين ان يقوموا شاكرين
ع نعمة العقل التي رزقهم الله ايها بخدمتي في
تعديل هذا الكود
المراد تعديله هوا
المشروع هوا عبارة عن تقليد البوت للشخص داخل الغرفة الدردشة
ولكن مااريدة هوا الغائ تقليد عده اشخاص بشخص واحد فقط
وشكراً ولن انساكم من دعائي
كود :
Private Sub mesg(ByVal sender As Object, ByVal msg As Message)
If MyBase.InvokeRequired Then
MyBase.BeginInvoke(New MessageHandler(AddressOf Me.mesg), New Object() { sender, msg })
Else
})
Dim strArray As String() = Me.textbox1.Text.Split(New Char() { "#"c })
Dim index As Integer = 0
index = 0
Do While (index <= (strArray.GetUpperBound(0) - 1))
If (((msg.Type = MessageType.groupchat) AndAlso Convert.ToString(msg).Contains(strArray(index))) AndAlso (((msg.From.Resource.IndexOf(If(strArray(index) <> Nothing , strArray(index), ""), StringComparison.OrdinalIgnoreCase) + 1) <> 0) AndAlso ((msg.Body.IndexOf(If(msg.Body <> Nothing , msg.Body, ""), StringComparison.OrdinalIgnoreCase) + 1) <> 0))) Then
If Me.checkBox1.Checked Then
Me.cnt1.Send(String.Concat(New String() { "<message to='", Me.rom.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource, " : ", msg.Body, "</body></message>" }))
End If
If Me.checkBox3.Checked Then
Me.cnt1.Send(String.Concat(New String() { "<message to='", Me.rom.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.Body, "</body></message>" }))
End If
End If
index += 1
Loop
End If
End SubRE: تعديل الكود بخصوص Split - 3asfa~mdmra - 20-03-17
~~~~~~~~~~~~~