17-10-12, 09:56 PM
كاتب الموضوع : سعود
بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاته.
كنت زمان ايام فيجوال بيسك 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