+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : التاكد من تنسيق عنوان ويب (/showthread.php?tid=6374)
التاكد من تنسيق عنوان ويب - RaggiTech - 17-10-12
كاتب الموضوع : سعود
بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاته.
كنت زمان ايام فيجوال بيسك 6.0 محتار كيف اتاكد من تنسيق النص هل هو فعلا عنوان ويب صحيح ام لا والان مع الدوت نت اجدني مرتاح البال فهذا كود ابسط ما يكون للتحقق من عنوان الويب
والتحقق بحر اخترت منه بداية النص وهو http://
فاليكم الكود ....
كود :
[color=#000000][COLOR=#0000bb] [/color][color=#007700]If [/color][color=#0000bb]Not TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]StartsWith[/color][color=#007700]([/color][color=#dd0000]"http://"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
Dim x [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][COLOR=#0000bb]Text
TextBox1[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= ([/color][color=#dd0000]"http://" [/color][color=#007700]& [/color][color=#0000bb]x[/color][COLOR=#007700])
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
[/COLOR][color=#0000bb][/color][/COLOR]ومثلها للتاكد من نهاية نص الايميل مثل
كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]If [/color][color=#0000bb]Not TextBox2[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]EndsWith[/color][color=#007700]([/color][color=#dd0000]"@hotmail.com"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
MsgBox[/COLOR][color=#007700]([/color][color=#dd0000]"يرجى التاكد من البريد"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
[/COLOR][color=#0000bb][/color][/COLOR]واذا كانا مربعي نص واحد لعنوان ويب والاخر لبريد
كود :
[color=#000000][COLOR=#0000bb] [/color][color=#007700]If [/color][color=#0000bb]Not TextBox1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]StartsWith[/color][color=#007700]([/color][color=#dd0000]"http://"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
Dim x [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#0000bb]TextBox1[/color][color=#007700].[/color][COLOR=#0000bb]Text
TextBox1[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= ([/color][color=#dd0000]"http://" [/color][color=#007700]& [/color][color=#0000bb]x[/color][COLOR=#007700])
ElseIf [/COLOR][color=#0000bb]Not TextBox2[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]EndsWith[/color][color=#007700]([/color][color=#dd0000]"@hotmail.com"[/color][color=#007700]) [/color][COLOR=#0000bb]Then
MsgBox[/COLOR][color=#007700]([/color][color=#dd0000]"يرجى التاكد من البريد"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]If
[/COLOR][color=#0000bb][/color][/COLOR]هذا ليطمئن قلب من انتقل للدوت نت وان لا يفكر بـ 6.0