[ali.alfoly]

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

[@@أبورائد@@]

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



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

AddHandler btn1.Click, AddressOf btnClick

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




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

[3booody]

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

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

وبالتوفيق

[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

.

[ali.alfoly]

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



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

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

.

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