Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Windows.Forms
Imports System.Environment
Imports System.Runtime.InteropServices
Imports System.ComponentModel
Public Class MeArrayList : Inherits ArrayList
Public Sub New()
MyBase.New()
End Sub
Private components As System.ComponentModel.IContainer
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
Public Shadows Sub Remove(ByVal value As String)
MyBase.Remove(value)
End Sub
Public Shadows Sub RemoveAt(ByVal value As Integer)
MyBase.RemoveAt(value)
End Sub
Public Shadows Sub Insert(ByVal index As Integer, ByVal value As String)
MyBase.Insert(index, value)
End Sub
Public Shadows Function Contains(ByVal value As String) As Boolean
Return MyBase.Contains(value)
End Function
Public Shadows ReadOnly Property Item(ByVal index As Integer) As String
Get
Return MyBase.Item(index)
End Get
End Property
Public Overridable Shadows Function Add(ByVal Item As String) As Integer
Return MyBase.Add(Item)
End Function
Public Overridable Shadows Sub AddRange(ByVal Items() As String)
MyBase.AddRange(Items)
End Sub
Public Shadows Function IndexOf(ByVal value As String) As Integer
Return MyBase.IndexOf(value)
End Function
End Class
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 86