loulou ange
11-01-2013, بتوقيت غرينيتش 02:07 PM
http://www.dzbatna.com/images/icons/iconrote.gif [ط´ط±ط* ط¨ط§ظ„طµظˆط±]: ط¹ظ…ظ„ ظƒظ„ظ…ط© ظ…ط±ظˆط± ط¨ط¨ط±ظ†ط§ظ…ط¬ ط§ظ„ظپط¬ظˆط§ظ„ ط¨ظٹط³ظƒ.ظ†طھ (http://www.dzbatna.com/t1127342/)
السلام عليكم ورحمة
اولا صورة التصميم
http://upload.dzbatna.net/upfiles/go099850.png
بعدين نروح عند TEXT2
ونعمل مثل هذه االصورة الموجود بالخصائص
http://upload.dzbatna.net/upfiles/05z00047.png
ونضع * لكي يصير كامثل الرقم السري http://www.dzbatna.com/images/smilies/shiny01.gif>>>يعرف يتكلم
ثم نروح عند عند الزر
http://upload.dzbatna.net/upfiles/7hK00057.png
وندخل إلى صفحة البرمجة
ضع هذا الكود code
رمز PHP:
<code style="white-space:nowrap"> <code> Public Class Form1
'هذا الكود code مقدم من منتديات روابط الصداقة
'Www.8amity.net
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'هذا الكود code مقدم من منتديات روابط الصداقة
'Www.8amity.net
Dim a As String, aa As String, ff As String, bb As String
a = Text1.Text
ff = Text2.Text
aa = "منتديات روابط الصداقة"
bb = "Www.8amity.net"
'هذا الكود code مقدم من منتديات روابط الصداقة
'Www.8amity.net
If a = aa And ff = bb Then
MsgBox("تم الدخول")
'هذا الكود code مقدم من منتديات روابط الصداقة[/right]
'Www.8amity.net [right]
ElseIf a = a And ff = ff Then
MsgBox("أدخل كلمة المرور أو اسم المستخدم الصحيح")
End If
End Sub
End Class
</code> </code>
مثل هذه الصورة
http://upload.dzbatna.net/upfiles/1yK00222.png
السلام عليكم ورحمة
اولا صورة التصميم
http://upload.dzbatna.net/upfiles/go099850.png
بعدين نروح عند TEXT2
ونعمل مثل هذه االصورة الموجود بالخصائص
http://upload.dzbatna.net/upfiles/05z00047.png
ونضع * لكي يصير كامثل الرقم السري http://www.dzbatna.com/images/smilies/shiny01.gif>>>يعرف يتكلم
ثم نروح عند عند الزر
http://upload.dzbatna.net/upfiles/7hK00057.png
وندخل إلى صفحة البرمجة
ضع هذا الكود code
رمز PHP:
<code style="white-space:nowrap"> <code> Public Class Form1
'هذا الكود code مقدم من منتديات روابط الصداقة
'Www.8amity.net
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'هذا الكود code مقدم من منتديات روابط الصداقة
'Www.8amity.net
Dim a As String, aa As String, ff As String, bb As String
a = Text1.Text
ff = Text2.Text
aa = "منتديات روابط الصداقة"
bb = "Www.8amity.net"
'هذا الكود code مقدم من منتديات روابط الصداقة
'Www.8amity.net
If a = aa And ff = bb Then
MsgBox("تم الدخول")
'هذا الكود code مقدم من منتديات روابط الصداقة[/right]
'Www.8amity.net [right]
ElseIf a = a And ff = ff Then
MsgBox("أدخل كلمة المرور أو اسم المستخدم الصحيح")
End If
End Sub
End Class
</code> </code>
مثل هذه الصورة
http://upload.dzbatna.net/upfiles/1yK00222.png