بسم الله الرحمن الرحيم
اريد من يستطيع تعديل هاذا الكود
Private Sub Command1_Click()
On Error GoTo opn:
Winsock1.LocalPort = Text1.Text
Winsock1.Listen
Text2.Text = "المنفذ غير مفتوح"
Winsock1.Close
Exit Sub
opn:
If Err.Number = 10048 Then
Text2.Text = "المنفذ مفتوح"
Else
Text2.Text = "يوجد مشكلة"
End If
Winsock1.Close
End Sub
ويجعل النتيجه تضهر في Label وليسه في Text2
ارجو المساعده ولكم جزيل الشكر
تحياتي
اتمنى ان يكون هذا هو ماتريده
Private Sub Command1_Click() On Error GoTo opn: Winsock1.LocalPort = Text1.Text Winsock1.Listen label1.caption= "المنفذ غير مفتوح" Winsock1.Close Exit Sub opn: If Err.Number = 10048 Then label1.caption= "المنفذ مفتوح" Else label1.caption = "يوجد مشكلة" End If Winsock1.Close End Sub
بالتوفيق :rolleyes:
تم تعديل هذه المشاركة بواسطة ghost2010 في 3 مايو 2005 في 00:02
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
يعطيك العافيه اخوي وماااقصرت نعم هااذا اللي ابيه
واشكرك مرا اخره تحياتي
هذا الموضوع مغلق.