مثال بسيط لاستخدام mdiparent - نسخة قابلة للطباعة

كاتب الموضوع : سعود

موديول

كود :

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

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