المشاركات : 1,561
المواضيع 264
الإنتساب : Sep 2013
السمعة :
29
الشكر: 653
تم شكره 1044 مرات في 408 مشاركات
جزاك الله خير
الصب غير مربوط مع احداث الزر
فعند الضغط على الزر لا يحدث شيا
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
27-04-13, 09:38 AM
(آخر تعديل لهذه المشاركة : 09-05-13, 09:27 AM {2} بواسطة Moo00ooN.)
السلام عليكم ورحمة الله وبركاته
تفصيل ربط اجراء بحدث أداة
AddHandler btn1.Click, AddressOf btnClick
■ أمر إضافة مقبض لحدث أداة
■ الأداة . ■ الحدث
,
■ أمر تعيين اسم الإجراء
■ اسم الإجراء
السلام عليكم ورحمة الله وبركاته
المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
81
الشكر: 776
تم شكره 992 مرات في 298 مشاركات
اسف على الخطأ الي حدث تفضل هذا الكود الصحيح
[url]Public Class Form1
Dim Frm As New Form
Dim btn1 As New Button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With Frm
.ShowIcon = False
.Width = 385
.Height = 166
.Show()
End With
With btn1
.Text = "OK"
.Width = 108
.Height = 23
.TabIndex = 1
.Location = New Point(259, 103)
End With
Frm.Controls.Add(btn1)
AddHandler btn1.Click, AddressOf btn1_Click
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Frm.Width = 400
Frm.Height = 300
End Sub
End Class[/url]
وبالتوفيق