تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال بسيط لاستخدام mdiparent
#1
كاتب الموضوع : سعود
























موديول

كود :
Module Module1
Public ustr As String = ""
Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0 ; data source=|datadirectory|\db.accdb")
End Module
الفورم الاب

كود :
Public Class Form1



Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
End
End Sub




Private Sub mlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mlogin.Click
login.MdiParent = Me
login.Show()

End Sub

Private Sub mclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mclose.Click
End
End Sub

Private Sub mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click
ustr = ""
mlogin.Enabled = True
mexit.Enabled = False
Me.Text = " لايوجد مستخدم مسجل حاليا."
numbergame.Enabled = False
wg.Enabled = False
End Sub

Private Sub numbergame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numbergame.Click
mynumbergame.MdiParent = Me
mynumbergame.Show()
End Sub

Private Sub wg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wg.Click
mywordgame.MdiParent = Me
mywordgame.Show()
End Sub
End Class
فورم الدخول

كود :
Public Class login

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Trim <> "" And Not IsNumeric(TextBox1.Text) Then
ustr = TextBox1.Text
Me.Hide()
Form1.Text = "المستخدم الحالي: " & ustr
Form1.mlogin.Enabled = False
Form1.mexit.Enabled = True
Form1.numbergame.Enabled = True
Form1.wg.Enabled = True
Else
MsgBox("عفوا تاكد من بياناتك", MsgBoxStyle.Critical, "دخول")
End If
End Sub
End Class
فورم لعبة الارقم

كود :
Public Class mynumbergame
Dim n As Integer
Dim s As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Trim <> "" And IsNumeric(TextBox1.Text) Then
n = TextBox1.Text
Button2.Enabled = True
Else
MsgBox("تاكد من كتابتك لرقم", MsgBoxStyle.Critical, "تخزين رقم")
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim u As Integer = Int(Rnd() * 90)
Timer1.Enabled = True
Label2.Text = u

If u = n Then
MsgBox("ممتاز! لقد عرفت الرقم السري خخخخخخخخخخ", MsgBoxStyle.Information, "توليد رقم")
End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
s += 1
Label4.Text = ""
Select Case s
Case "1"
Label4.Text = "سبحان الله"
Case "2"
Label4.Text = "الحمدلله"
Case "3"
Label4.Text = "لااله الا الله"
Case "4"
Label4.Text = "الله اكبر"
Case Else
s = 0
End Select
End Sub

End Class
فورم لعبة الكلمات وهي هنا ترجمة

كود :
Public Class mywordgame
Dim u As Integer = 0
Dim tr As Integer = 0
Dim fa As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Select Case u
Case "0"
Label2.Text = "رجل"
Case "1"
Label2.Text = "شاب"
Case "2"
Label2.Text = "بنت"
Case "3"
Label2.Text = "امراة"
Case "4"
Label2.Text = "جد"
Case "5"
Label2.Text = "جدة"
Case "6"
Label2.Text = "أخ"
Case Else
MsgBox("انتهت اللعبة والدرجة اسفل", MsgBoxStyle.Exclamation, "")

End Select
u += 1
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text.Trim <> "" And Not IsNumeric(TextBox1.Text) Then
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter("select * from tb where eng='" & TextBox1.Text & "'", con)
ds.Clear()
da.Fill(ds, "tb")
If Me.BindingContext(ds, "tb").Count > 0 Then
tr += 1
Else
fa += 1
End If
lw.Text = tr
ll.Text = fa
End If
TextBox1.Clear()
Button1.PerformClick()
End Sub


End Class
وسلامة انتم وياها طولين



الملفات المرفقة
.zip   MyEasyExample.zip (الحجم : 113.98 ك ب / التحميلات : 71)
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال للتعامل مع الجداول المرتبطة - عن طريق الكلاسات ابو ليلى 25 15,192 04-10-20, 06:16 PM
آخر رد: محمد بن عطية
  شرح انشاء برنامج دردشة بسيط CLARO 1 5,533 25-08-19, 04:30 AM
آخر رد: أمجد وضاح
  مثال القراءة والكتابه على ملف تيكست Txt على الانترنت + مثال + شرح m.sami.ak 11 8,398 02-06-18, 09:46 PM
آخر رد: YousefOkasha
  [درس فيديو] مثال بسيط لبرنامج إجازات فقط لأغراض الشرح (الدرس الأول) عبدالله الدوسري 7 11,538 28-04-18, 06:55 PM
آخر رد: moniam
  موضوع الاستاذ رامي مثال \ لطريقة تفعيل برنامجك عند العميل وتغيير كلمة مرور اRamilove سعود 8 7,693 06-10-17, 01:43 AM
آخر رد: حمادة دراز
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 3,854 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  ابسط مثال لتشغيل ملفات mp3 مستضافة على موقع سعود 4 4,128 01-04-13, 04:04 AM
آخر رد: سامى ابوسريع
  مثال تشغيل ملف صوتى او فيديو RainBow 0 2,112 14-03-13, 08:37 PM
آخر رد: RainBow
  مثال راع لى برنامج الرسام RainBow 0 2,310 02-03-13, 03:36 AM
آخر رد: RainBow
  مثال على Custom Serialization من خلال فئة اسم مستخدم وكلمة مرور RaggiTech 0 2,412 05-10-12, 01:42 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم