16-05-17, 10:30 PM
سلام عليكم
بعد صلاه على اشرف المرسلين محمد
صلى الله عليه وسلم
اريد من الاخوة مساعدتي بوضع
مؤقت يعني المستخدم يحدد وقت معين
لتنفيذ هذا الكود
او من خلال combobox
كود :
Private Sub Xml1(ByVal sender As Object, ByVal xml4 As String)
If MyBase.InvokeRequired = True Then
MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml1), New Object() {sender, xml4})
Else
xml4 = Replace(xml4, """", "'")
On Error Resume Next
'اريد وضع الوقت هنا مثال بعد 10 ثواني ينفذ الكود ادناه
If (InStr(xml4, "code='407'")) Then
b4.Text = "Yes--➤✔"
b4.ForeColor = Color.Red
End If
End If
End Sub