[bidaya]

(10-05-17, 11:20 PM)mansoor كتب : تقصد التوريث من أحد الأدوات مثل Button فترث كل شي يخص Button الخطوة الاولى مثل

PHP كود :

Class Class1
    Inherits Button




End Class 


والباقي يطول شرحه

مثلا اخي الكريم هذا الكود اريد عمل كلاس له

كود :

 Dim filname As String = ".\bidaya.ini"
       If File.Exists(filname) = True Then
           SetAttr(filname, FileAttribute.Normal)
           Label3.Text = LoadLine(Application.StartupPath & "\bidaya.ini", 0)
       Else
       End If
       Try
           Dim strArray As String() = Enumerable.ToArray(Of String)(Enumerable.Select(Of String, String)(Directory.GetFiles((Application.StartupPath & "\bidaya"),  New Func(Of String, String)(AddressOf Path.GetFileName)))
           Dim i As Integer
           For i = 0 To strArray.Length - 1
               Me.ComboBox1.Items.Add(strArray(i))
           Next i
       Catch ex As Exception
       End Try

الكود به كومبوبكس وليبل
هذا ما اقصد