تقييم الموضوع :
  • 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 ك ب / التحميلات : 44)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح انشاء برنامج دردشة بسيط CLARO 0 247 28-05-16, 02:24 PM
آخر رد: CLARO
  موضوع الاستاذ رامي مثال \ لطريقة تفعيل برنامجك عند العميل وتغيير كلمة مرور اRamilove سعود 7 2,036 26-01-16, 08:07 PM
آخر رد: سعود
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 535 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
  مثال القراءة والكتابه على ملف تيكست Txt على الانترنت + مثال + شرح m.sami.ak 9 2,260 20-08-13, 01:12 PM
آخر رد: m.sami.ak
  ابسط مثال لتشغيل ملفات mp3 مستضافة على موقع سعود 4 1,339 01-04-13, 04:04 AM
آخر رد: سامى ابوسريع
  مثال تشغيل ملف صوتى او فيديو RainBow 0 497 14-03-13, 08:37 PM
آخر رد: RainBow
  مثال راع لى برنامج الرسام RainBow 0 606 02-03-13, 03:36 AM
آخر رد: RainBow
  مثال على Custom Serialization من خلال فئة اسم مستخدم وكلمة مرور RaggiTech 0 731 05-10-12, 01:42 AM
آخر رد: RaggiTech
  مثال على عملية إنشاء Windows Service – إنشاء برنامج تشفير تلقائي للملفات RaggiTech 1 579 05-10-12, 01:42 AM
آخر رد: RaggiTech
  مثال Screen Server RaggiTech 0 354 05-10-12, 01:13 AM
آخر رد: RaggiTech

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


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