السلام عليكم
عندي سؤالين يا اخوان
عندي 3 فورم
الفورم الاولى تحتوي على menu وفيها colour Dilog
كيف اخلي colour Dilog الي الفورم الاولى يعمل في الفورم 2 و3
وبحيث اني اقدر اغير الوان التكست واللست بوكس في فورم 2 و3
عندي هذا الكود هذا حق اليوزرنيم والباسوورد
Dim u, s As String
u = TextBox1.Text
s = TextBox2.Text
If (u = "a" And s = "1") Then
Form2.Show()
Else
Me.close()
End if
ابي اسوي هذا الكود بيحث انه يعطي 3 محاولات لليوزر بس مو عارف شلون
العنوان غير مناسب
الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.
وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!
قواعد المشاركة
Dim counter As Integer
Dim frm2 As New Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.TextBox1.Text = "a" And Me.TextBox2.Text = "1" Then
Me.Hide()
frm2.Show()
Else
MsgBox("Wrong Value")
counter += 1
If counter = 3 Then
MsgBox("Now you get Out")
Application.Exit()
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
frm2.BackColor = Me.BackColor
End Sub
End Classالمتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…