+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التعامل مع الواجهات Forms (/showthread.php?tid=9957)
التعامل مع الواجهات Forms - hoob computer - 06-08-13
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته,
يوجد لدي واجهة بإسم (InvFrm), لو أردت منع المستخدم من أن يفتح نفس الواجهة لاكثر من مرة بدون غلقها فكيف ذلك؟
أي, لو أنه كان فاتح هذه الواجهة, فلن يستطيع الضغط على زر فتح هذه الواجهة مرة أخرى بدون إغلاقها.
و لو أردت تمكين المستخدم من أن يفتح هذه الواجهة بنفس الوقت أكثر من مرة (لنقل خمس مرات فقط و ليس أكثر) فكيف ذلك؟
تحياتي
التعامل مع الواجهات Forms - سعود - 06-08-13
ارجو ان يكون هو ماتريد
التعامل مع الواجهات Forms - tariq2812 - 06-08-13
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each f As Form In My.Application.OpenForms
If f.Name = "frm_InvFrm" Then
Exit Sub
End If
Next
Dim frm_InvFrm_new As New frm_InvFrm
frm_InvFrm_new.Name = "frm_InvFrm"
frm_InvFrm_new.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim n As Integer = 0
For Each f As Form In My.Application.OpenForms
If f.Name = "frm_InvFrm" Then
n += 1
End If
If n > 4 Then
Exit Sub
End If
Next
Dim frm_InvFrm_new As New frm_InvFrm
frm_InvFrm_new.Name = "frm_InvFrm"
frm_InvFrm_new.Show()
End Subالتعامل مع الواجهات Forms - hoob computer - 13-08-13
جزاكم الله خيراً يا إخواني على أجوبتكم الرائعة
و أسف على التأخير في الرد على أجوبتكم