منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

جزاك الله خير
الصب غير مربوط مع احداث الزر
فعند الضغط على الزر لا يحدث شيا

السلام عليكم ورحمة الله وبركاته



تفصيل ربط اجراء بحدث أداة

AddHandler btn1.Click, AddressOf btnClick

■ أمر إضافة مقبض لحدث أداة
■ الأداة . ■ الحدث
,
■ أمر تعيين اسم الإجراء
■ اسم الإجراء




السلام عليكم ورحمة الله وبركاته

اسف على الخطأ الي حدث تفضل هذا الكود الصحيح

[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]

وبالتوفيق

اعتذر مشاركتي بها خطأ والسبب من شبكتي ضعيفه جدآ حتى لم استطع التعديل على المشاركه

.

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته



تفصيل ربط اجراء حدث بأداة

AddHandler btn1.Click, AddressOf btnClick

■ أمر إضافة مقبض للأداة
■ الأداة . ■ اسم الحدث
,
■ أمر تعيين اسم الإجراء
■ اسم الإجراء




السلام عليكم ورحمة الله وبركاته

جزاك الله خير كدة انا فهمت فعلا الله يكرمك يا ابو رائد وزادك الله من علمه

3booody كتب :اعتذر مشاركتي بها خطأ والسبب من شبكتي ضعيفه جدآ حتى لم استطع التعديل على المشاركه

كود :

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

.

جزاك الله خير كده ممتاز معلش تعبتك معى
الف شكر لعيونك اخى الحبيب وزادك الله من علمه