+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] total number listbox +8 (/showthread.php?tid=19045)
total number listbox +8 - 3asfa~mdmra - 31-01-17
السلام عليكم
بعد صلاة على الحبيب محمد صلى الله عليه وسلم
لي طلب بسيط
عند اضافة اي عنصر لـlistbox1
ListBox1.Items.Add(textbox1.text)
اريد ان اضيف لحساب عدد مرات بالاضافة الي زيادة رقم 8
جربت هذا الكود لكن اول مرة ضاف 8 وبعدين صار بضيف رقم واحد
كود :
Label2.Text = ListBox1.Items.Count.ToString + 8
RE: total number listbox +8 - مساعدة - 31-01-17
السلام عليكم
وضح، ماذا تقصد ب حساب عدد مرات!
والأفضل تضع مشروعك.
RE: total number listbox +8 - 3asfa~mdmra - 31-01-17
(31-01-17, 07:34 PM)مساعدة كتب : السلام عليكم
وضح، ماذا تقصد ب حساب عدد مرات!
والأفضل تضع مشروعك.
تفضل مشروع في المرفقات
اخي ولي طلب اخر لم يكتمل كنت قد افدتني فيه وهو كيف ادخل غرفة الدردشة بواسطة كود الي اعطتني اياه وهوا كتالي
كود :
Private WithEvents emad As New agsXMPP.XmppClientConnection
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
routine("username@password@Resource")
End Sub
Private Sub routine(args As String)
Dim s() As String = args.Split("@")
emad.Server = "nimbuzz.com"
emad.ConnectServer = "o.nimbuzz.com"
emad.Open(s(0), s(1))
emad.Resource = s(2)
emad.Port = "5222"
End Sub
Private Sub emad_OnClose(sender As Object) Handles emad.OnClose
' OnClose Event
End Sub
Private Sub emad_OnReadXml(sender As Object, xml As String) Handles emad.OnReadXml
' OnReadXml Event
End Sub
Private Sub emad_OnLogin(sender As Object) Handles emad.OnLogin
' OnLogin Event
End Sub
Private Sub emad_OnAuthError(sender As Object, e As agsXMPP.Xml.Dom.Element) Handles emad.OnAuthError
' OnAuthError Event
End Subبعد ضغط ع زر يوتين لدخول الغرفة
حدث خطأ كود دخول الايميل الغرفة هوا
كود :
emad.Send("<presence to='" + room.Text + "@conference.nimbuzz.com/" + (s(0).ToString) + "'><x xmlns='http://jabber.org/protocol/muc'></x></presence>")
emad.Send("<message to='" + room.Text + "@conference.nimbuzz.com' type='groupchat'><body>Bot auto gift join room ✔ </body></message>")