زائرنا الكريم 
بالتسجيل في المنتدى 
ولتصفح افضل للمنتدى
البلد
من طرف [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
أكواد ولكن على شكل أمثلة
كود المسج بكس
Dim y As Integer
y = MsgBox("ÃåáÇ æÓåáÇ ÈÖíæÝäÇ ÇáÃÚÒÇÁ", vbYesonly, "ÊÑÍíÈ")
If y = yes Then
Form1.Show
End If
كود التنقل بين الفورمات
Form10.Show
Form1.Hide
كود الكيس
Dim m As String
m = Text1.Text
Select Case m
Case "ÃÈáå"
Label2.Caption = "ÏÝÔÉ ÈÓ ÔÇØÑÉ "
Case "ãÓ"
Label2.Caption = "ÚÕÈíÉ ÈÓ ÐßíÉ "
Case "ÃÓÊÇÐå"
Label2.Caption = "ÔÇÇÇØÑÉ Ýí ÇáÚÑÈí æßÓáÇäå Ýí ÇáÅäÌáíÒí æÊÞåÑíä ÇáÈäÇÊ ÈÔØÇÑÌ "
Case "ãÚáãÉ"
Label2.Caption = "ÊÏÚí ÇáÑÞÉ ÈÇáÞÑÈ ãä ÇáãÓ æáßäåÇ ÇÌÊãÇÚíÉ æãÑÍÉ "
Case "ãÚáãÊí"
Label2.Caption = "ÏáææææÚå ÊÛÖÈ ÈÓÑÚÉ æáßäåÇ ÍÈæÈÉ "
Case "ÃäÇ ÃäÇ"
Label2.Caption = "ÊÚÊÑÝ ÈÃäåÇ ÃäÇäíÉ æÝí äÝÓ ÇáæÞÊ ÚÝæíÉ "
Case "teacher"
Label2.Caption = "ÊÏÚí ÔØÇÑÊåÇ Ýí ÇáÅäÌáíÒí æÏÇíãÇ ãØÑæÏÉ ãä ÍÕÉ ÇáÚÑÈí áßäåÇ ÔÇØÑÉ æÚäÏåÇ ÔÎÕíÉ "
Case "Þæãííííííííäí"
Label2.Caption = "ÍÈæÈÉ æßæãíÏíÉ "
Case "ÊÑÝÚ ÅíÏåÇ ÈÏæä Ãí ßáãÉ"
Label2.Caption = "ÎÞÇÞÉ áßäåÇ ÔÇØÑÉ æÊÑßÒ Úá ßá ßáãÉ "
End Select
كود المسح
Text1.Text = ""
Label2.Caption = ""
كود المسج بكس
Dim y As Integer
y = MsgBox("ÃåáÇ æÓåáÇ ÈÖíæÝäÇ ÇáÃÚÒÇÁ", vbYesonly, "ÊÑÍíÈ")
If y = yes Then
Form1.Show
End If
كود التنقل بين الفورمات
Form10.Show
Form1.Hide
كود الكيس
Dim m As String
m = Text1.Text
Select Case m
Case "ÃÈáå"
Label2.Caption = "ÏÝÔÉ ÈÓ ÔÇØÑÉ "
Case "ãÓ"
Label2.Caption = "ÚÕÈíÉ ÈÓ ÐßíÉ "
Case "ÃÓÊÇÐå"
Label2.Caption = "ÔÇÇÇØÑÉ Ýí ÇáÚÑÈí æßÓáÇäå Ýí ÇáÅäÌáíÒí æÊÞåÑíä ÇáÈäÇÊ ÈÔØÇÑÌ "
Case "ãÚáãÉ"
Label2.Caption = "ÊÏÚí ÇáÑÞÉ ÈÇáÞÑÈ ãä ÇáãÓ æáßäåÇ ÇÌÊãÇÚíÉ æãÑÍÉ "
Case "ãÚáãÊí"
Label2.Caption = "ÏáææææÚå ÊÛÖÈ ÈÓÑÚÉ æáßäåÇ ÍÈæÈÉ "
Case "ÃäÇ ÃäÇ"
Label2.Caption = "ÊÚÊÑÝ ÈÃäåÇ ÃäÇäíÉ æÝí äÝÓ ÇáæÞÊ ÚÝæíÉ "
Case "teacher"
Label2.Caption = "ÊÏÚí ÔØÇÑÊåÇ Ýí ÇáÅäÌáíÒí æÏÇíãÇ ãØÑæÏÉ ãä ÍÕÉ ÇáÚÑÈí áßäåÇ ÔÇØÑÉ æÚäÏåÇ ÔÎÕíÉ "
Case "Þæãííííííííäí"
Label2.Caption = "ÍÈæÈÉ æßæãíÏíÉ "
Case "ÊÑÝÚ ÅíÏåÇ ÈÏæä Ãí ßáãÉ"
Label2.Caption = "ÎÞÇÞÉ áßäåÇ ÔÇØÑÉ æÊÑßÒ Úá ßá ßáãÉ "
End Select
كود المسح
Text1.Text = ""
Label2.Caption = ""
» الشيخ فوزي في مؤتمر جماهيري لحزب الحرية والعدالة
» مدرسة التعليم الاساسي بمطرطارس (صورة لها) :: معلومات عنها
» حفل ختام القران الكريم بمطرطارس 2011/ 2012 _ "zalat44"
» غزوة تبوك . تفاصيل الغزوة
» معسكر الاخوان المسلمون بمطرطارس قسم طلاب الثانوية 2011
» تنسيق الثانوية العامة 2011 في الفيوم
» حد الرجم ..حديث نبوي
» قصة ريا وسكينة الحقيقية
» نتيجة الثانوية العامة بالفيوم2011