Форум программистов [Powered by Invision Power Board]

Код


  [Public/Private/Protected/Friend] Class MyClass

  End Class

Код


  Public Class MyObject
       Inherits Object
  End Class

Код


  Public Class MyClass
     Public Sub New()
       MsgBox ("Create MyClass")
     End Sub
  End Class

Код


  Dim mClass As MyClass = New MyClass()
  MsgBox (mClass.MyVariableString)

Код


  Public Class MyClass
     Public Shared MsgStr As String = "Hello World! :) "
     Public Shared Sub MySub()
     End Sub
  End Class

  MsgBox (MyClass.MsgStr)
  MyClass.MySub()

Цитата(DarkDragon @ 5.10.2006, 19:01

)

Ешо можно приделать интерфэйс. Но сам не доганяю для чего он нужен. Возможно Interface - это скелет класса? Или основа? А может что то и другое...

Цитата(DarkDragon @ 5.10.2006, 18:01

)

шо можно приделать интерфэйс. Но сам не доганяю для чего он нужен.

Цитата

Интерфейс -- это контракт, который "подписывает" класс его реализующий. В этом "контракте" прописаны свойства и методы (а так же их сигнатуры) которые обязан (по контракту) реализовать класс.

Код


Public Interface IУмеюСчитаться
    Function Считайся() As Integer
End Interface

Public Class Class1 : Implements IУмеюСчитаться
    Public Function Считайся() As Integer Implements IУмеюСчитаться.Считайся
        Console.WriteLine("Класс1 -- считаюсь")
    End Function
End Class

Public Class Class2 : Implements IУмеюСчитаться
    Public Function Считайся() As Integer Implements IУмеюСчитаться.Считайся
        Console.WriteLine("Класс2 -- считаюсь")
    End Function
End Class

Public Class Class3 : Implements IУмеюСчитаться
    Public Function Считайся() As Integer Implements IУмеюСчитаться.Считайся
        Console.WriteLine("Класс3 -- считаюсь")
    End Function
End Class

Код


    Sub ЗаставитьСчитаться(ByVal счетовод As IУмеюСчитаться)
        счетовод.Считайся()
    End Sub

Код


        Dim счетоводы(3) As IУмеюСчитаться
        счетоводы(1) = New Class1
        счетоводы(2) = New Class2
        счетоводы(3) = New Class3

        For Each счетовод As IУмеюСчитаться In счетоводы
            счетовод.Считайся()
        Next

Цитата(DarkDragon @ 5.10.2006, 20:15

)

И при чем тут
понятие класс и ООП.

Код


Class SomeClass

End Class

Код


Class Point
    ' Поля для хранения координат
    Public X As Double
    Public Y As Double
End Class

' Использование
Dim myPoint As New Point()
myPoint.X = 10
myPoint.Y = -10

Код


Class Point
    ' Поля для хранения координат
    Public X As Double
    Public Y As Double

    ' Метод для прорисовки точки на экране
    Public Sub Draw()
        ' Реализация нам сейчас не важна
    End Sub
End Class

' Вызываем метод
Dim myPoint As New Point()
myPoint.X = 10
myPoint.Y = -10

myPoint.Draw()

Код


    ' Функция "сдвигает" новосозданную точку на переданные deltaX и deltaY
    Public Function Shift (deltaX As Double, deltaY As Double) As Point
        Dim returnedPoint As New Point()
        ' Для обращения к своим членам используется ключевое слово Me
        returnedPoint.X = Me.X + deltaX
        returnedPoint.Y = Me.Y + deltaY
        ' Возвращаем значение
        Return returnedPoint
    End Function

Код


Dim somePoint As New Point()
somePoint.X = 10
somePoint.Y = -10

' ОБъявляем другую точку
Dim anotherPoint As Point = somePoint.Shift(-10, 10)
Console.WriteLine("anotherPoint ({0}; {1})" , anotherPoint.X, anotherPoint.Y)
' Консоль выводит
' anotherPoint (0, 0)

Код


' Допустим, значения X и Y должны быть в пределах от -10 до 10
' Тогда сами значения мы будем хранить в защищённых полях _x и _y,
' а для "внешних" классов будут выставлены свойства X и Y

Class Point
    ' Поля для хранения координат, недоступные другим классам
    Private _x As Double
    Private _y As Double

    Public Property X As Double
        Get
            ' Часть Get являет собой код, выполняемый для возврата значения
            Return _x
        End Get
        Set (ByVal value As Double)
            If (value >= -10) And _
              (value <= 10) Then
                Записываем значение в поле
                _x = value
            Else
                ' Ошибка!
                Throw New ArgumentException("X должен быть от -10 до 10!")
            End If
        End Set
    End Property

    ' Аналогично и с Y
    Public Property Y As Double
        ' ...
    End Property
End Class

' Использование

Dim myPoint As New Point()
myPoint.X = 10
myPoint.Y = -10
myPoint.X = 20 ' Ошибка!

Код


MustInherit Class Animal
    Public MustOverride Sub MakeSound()
End Class

Class Cat
  Inherits Animal

    Public Overrides Sub MakeSound()
        Console.WriteLine("Мяяууу...")
    End Sub
End Class


Class Dog
  Inherits Animal

    Public Overrides Sub MakeSound()
        Console.WriteLine("Гав! Гав!")
    End Sub
End Class

Код


Dim boris As New Cat()
Dim bobik As New Dog()

' Объявляем список наших животных
Dim animals As New List(Of Animal)()
animals.Add(boris)
animals.Add(bobik)

' Теперь мы можем работать только с методами/членами, определёнными в классе Animal

' Переберём список, вызывая для каждого животного метод MakeSound()
For Each myAnimal As Animal in animals
    myAnimal.MakeSound()
Next

Код

Мяяууу...
Гав! Гав!

Цитата

Если будут появлятся вопросы, можно их задавать в письме?

Цитата

Интерфесы, насколько я понимаю для симмуляции множесвенного наследования, потому что в .Net-вских
языках (не знаю как в C++, но в C# и в VB точно) класс не может быть наследником нескольких классов, зато он может реализовывать несколько интерфейсов.

Цитата

Если будут появлятся вопросы, можно их задавать в письме?

Цитата

Если будут появлятся вопросы, можно их задавать в письме?

Цитата

Не могу понять, кто пометил данный вопрос, как решённый...

Код

Dim myList As New System.Collections.ArrayList()
myList.Add(3)
myList.Add("Hello, world!")
myList.Add(New Foo())

Код

Dim myList As New ArrayList()
myList.Add(1)
myList.Add(2)
myList.Add("stuff") ' никто нам не запретит добавлять всякую ерунду
For Each element As Object In myList
    Console.WriteLine(CInt(element)) ' этот код вызовет ошибку для "stuff"
Next

Код

Dim myList As New List(Of Integer)()
myList.Add(1)
myList.Add(2)
' Ошибка компиляции:
' myList.Add("stuff")
For Each element As Integer In myList
    Console.WriteLine(element)
Next

Код

Dim myList As New List(Of String)

Код

Class Keeper (Of T)
    Private _object As T, _password As String

    Public Sub New (object As T, password As String)
        If object IsNot Nothing Then
            Me._object = object
            Me._password = password
        Else
            Throw New ArgumentNullException("Аргумент не должен быть пуст!")
        End If
    End Sub

    Public ReadOnly Property Item (password As Sting) As T
        Get
            If password = _password Then
                Return _object
            Else
                Throw New SecurityException("Неверный пароль!")
            End If
        End Get
    End Property
End Class

Код

Dim secret As String = "my secret"
Dim secretKeeper As New Keeper(Of String)(secret, "a password")
' ...
Dim revealedSecret As String = Keeper.Item("a password") ' никакого преобразования типов не нужно

Код

Dim numbers As New Dictionary(Of Integer, String)()
numbers.Add(0, "zero")
numbers.Add(1, "one")
' Ошибка компиляции:
' numbers.Add("some", "stuff")

Цитата(mihanik @ 8.10.2006, 13:59

)

thomas не отметился в этом посте, но всё равно очень мне помог в изучении поднятой темы.Сделайте ему "+" в репутацию!!!

Цитата(ivashkanet @ 8.10.2006, 14:12

)

Найди любой его пост и дай плюс

Цитата(mihanik @ 8.10.2006, 14:26

)

Я хочу именно за этот!!!

Цитата(mihanik @ 8.10.2006, 15:26

)

Я не хочу за какой-нибудь пост! smile
Я хочу именно за этот!!! smile

Цитата(ivashkanet @ 8.10.2006, 16:24

)

И вообще: "заныканый ФАК в студию"

Код


Public Class clsFile

    '------------------------------------------------------------
    'К О Н С Т Р У К Т О Р Ы класса
    '------------------------------------------------------------
    'конструктор без параметров
    Public Sub New()

    End Sub
    'конструктор с параметром(-и)
    Public Sub New(ByVal Path As String) '(ByVal Path As String, ByVal File As String)
        mPath = Path 'тоесть уже при создании экземпляра класса мы задем атрибут mPath
        'mFile=File 'здесь сразу задаем путь и имя файла
    End Sub

    '------------------------------------------------------------
    'А Т Р И Б У Т Ы  (поля)
    '------------------------------------------------------------
    'буковка "m" обозначает что это внутренная переменная
    Private mPathFile, mPath, mFile As String
    Private mFileExists As Boolean
    Private mIndex As Integer
    '-----------------------------------------------------------
    'С В О Й С Т В А
    '-----------------------------------------------------------
    'здесь используются Get и Set методы
    Public Property PathFile() As String
        Get
            Return mPathFile
        End Get
        Set(ByVal Value As String)
            mPathFile = Value
        End Set
    End Property
    'свойства могут быть как ReadOnly, только для чтения - метод "Get"
    Public ReadOnly Property Path() As String
        Get
            mIndex = mPathFile.LastIndexOf("\")
            mPath = mPathFile.Substring(0, mIndex)
            Return mPath
        End Get
    End Property

    Public ReadOnly Property FileExists() As Boolean
        Get
            If System.IO.File.Exists(mPathFile) Then
                Return True
            End If
        End Get
    End Property
    'свойства могут быть как  WriteOnly, тоько для записи - метод "Set"

    '--------------------------------------------------------------------------
    'М Е Т О Д Ы
    '--------------------------------------------------------------------------


    '--------------------------------------------------------------------------
    'С О Б Ы Т И Я
    '--------------------------------------------------------------------------

End Class

Код


Public Class clsFile

    '------------------------------------------------------------
    'К О Н С Т Р У К Т О Р Ы класса
    '------------------------------------------------------------
    'конструктор без параметров
    Public Sub New()

    End Sub
    'конструктор с параметром(-и)
    Public Sub New(ByVal Path As String) '(ByVal Path As String, ByVal File As String)
        mPath = Path 'тоесть уже при создании экземпляра класса мы задем атрибут mPath
        'mFile=File 'здесь сразу задаем путь и имя файла
    End Sub

    '------------------------------------------------------------
    'А Т Р И Б У Т Ы  (поля)
    '------------------------------------------------------------
    'буковка "m" обозначает что это внутренная переменная
    Private mPathFile, mPath, mFile As String
    Private mFileExists As Boolean
    Private mIndex As Integer
    '-----------------------------------------------------------
    'С В О Й С Т В А
    '-----------------------------------------------------------
    'здесь используются Get и Set методы
    Public Property PathFile() As String
        Get
            Return mPathFile
        End Get
        Set(ByVal Value As String)
            mPathFile = Value
        End Set
    End Property
    'свойства могут быть как ReadOnly, только для чтения - метод "Get"
    Public ReadOnly Property Path() As String
        Get
            mIndex = mPathFile.LastIndexOf("\")
            mPath = mPathFile.Substring(0, mIndex)
            Return mPath
        End Get
    End Property

    Public ReadOnly Property FileExists() As Boolean
        Get
            If System.IO.File.Exists(mPathFile) Then
                Return True
            End If
        End Get
    End Property
    'свойства могут быть как  WriteOnly, тоько для записи - метод "Set"

    '--------------------------------------------------------------------------
    'М Е Т О Д Ы
    '--------------------------------------------------------------------------


    '--------------------------------------------------------------------------
    'С О Б Ы Т И Я
    '--------------------------------------------------------------------------

End Class

Цитата

А сам сделать не сможешь?
У тебя же 300 постов.

Цитата

В принципе как можно составить себе представление о классе. Существует много разных обьектов, похожих и не очень. Но каждый обьект имеет свои характеристики(атрибуты, свойства), с ним может что-то происходить(методы, события). Так вот класс позволяет все это записать и обрабатывать.
Ну к примеру, возьмем фигуру. Фигуры бывают самые различные от геометрических до "кляксы". Что их всех характеризует: каждая фигура имеет площадь и длинну периметра. Правильно? Значит можно написать класс который характеризует все фигуры по двум этм параметрам. Но если заглянуть немного дальше и поговорить о наследовании, то можно поразмыслив увидеть следующее.
Возмем фигуру четырехугольник. А какие бывают четырех угольники? Трапеции, ромбы, квадраты, прямоугольники. Вот и получается что все они наследуют от фигуры два параметра - плащадь и периметр, но каждая имеет свои дополнительные свойства(равные стороны, равные углы)
И рассуждая и рассматривая все эти фигуры можно расположить их в древовидном порядке - от просто фигуры до квадрата, овала.
Фигура:
-четырех угольник
   -прямоугольник
       -квадрат
   -трапеция
   -параллелепипед
      -ромб
-круг
   -овал
   -сегмент круга
у каждого дочернего обьекта имеются общие с родителем свойства, но и добавляются свои уникальные свойства.
четырехугольник (площадь, периметр, четыре угла)
прямоугольник (площадь, периметр, четыре прямых угла)
квадрат(площадь, периметр, четыре  прямых угла, равные стороны)
или
четырехугольник (площадь, периметр, четыре угла)
параллелепиред(площадь, периметр, четыре угла, стороны параллельны друг другу)
ромб (площадь, периметр, четыре угла, стороны параллельны друг другуб стороны равны между собой)
Понимаешь что я хочу этим сказать?
Каждый ниже стоящий класс описывающий специфическую фигуру, наследует от родителя его свойства и добавляет свои специфические, характерные только для данного вида обьекта.

Другими словами класс описывает обьект и то что с ним может происходить.
Каждый класс может содержать следующие подразделы: конструкторы класса, атрибуты класса, свойства(Properties), методы (Methode), события(Events).
Потому для написания класса полезно иметь такой вот шаблон

Код

Public Class имя класса ' желательно с префиксом cls

    '------------------------------------------------------------
    'К О Н С Т Р У К Т О Р Ы класса
    '------------------------------------------------------------
    'конструктор без параметров

    'конструктор с параметром(-и)

    '------------------------------------------------------------
    'А Т Р И Б У Т Ы
    '------------------------------------------------------------

    '-----------------------------------------------------------
    'С В О Й С Т В А
    '-----------------------------------------------------------
    'здесь используются Getи Set методы

    'свойства могут быть как ReadOnly, только для чтения - метод "Get"


    'свойства могут быть как  WriteOnly, тоько для записи - метод "Set"

    '--------------------------------------------------------------------------
    'М Е Т О Д Ы
    '--------------------------------------------------------------------------

    '--------------------------------------------------------------------------
    'С О Б Ы Т И Я
    '--------------------------------------------------------------------------

End Class

Сохрани его в txt файл и копируй каждый раз когда пишешь класс.
А там определяйся что ты хочешь от своего класса.
Будешь ты писать отдельные конструкторыили оставишь по умолчанию - конструктор без параметров.
Какие атрибуты должен содержать класс, это типа местные переменные. При наименовании полезно двать префикс "m". Так ты будешь четко знать что эта переменная внутри класса.
Далее ты определяешься со свойствами. Здесь используются два метода которые примнимают значения и которые определяют значения (Get и Set) . Свойства могут быть только для чтения или только для записи.

Код

Public Property PathFile() As String
        Get
            Return mPathFile
        End Get
        Set(ByVal Value As String)
            mPathFile = Value
        End Set
    End Property

это свойство "путь к файлу". Принимает значение(Set) и передаёт его в класс для дальнейшего использования(Get).

Как может выглядеть простой класс для файлов.

Код

Public Class clsFile

    '------------------------------------------------------------
    'К О Н С Т Р У К Т О Р Ы класса
    '------------------------------------------------------------
    'конструктор без параметров
    Public Sub New()

    End Sub
    'конструктор с параметром(-и)
    неопределены

    '------------------------------------------------------------
    'А Т Р И Б У Т Ы
    '------------------------------------------------------------
    'буковка "m" обозначает что это внутренная переменная
    Private mPathFile, mPath, mFile As String
    Private mFileExists As Boolean
    Private mIndex As Integer
    '-----------------------------------------------------------
    'С В О Й С Т В А
    '-----------------------------------------------------------
    'здесь используются Getи Set методы
    Public Property PathFile() As String
        Get
            Return mPathFile
        End Get
        Set(ByVal Value As String)
            mPathFile = Value
        End Set
    End Property
    'свойства могут быть как ReadOnly, только для чтения - метод "Get"
    Public ReadOnly Property Path() As String
        Get
            mIndex = mPathFile.LastIndexOf("\")
            mPath = mPathFile.Substring(0, mIndex)
            Return mPath
        End Get
    End Property

    Public ReadOnly Property FileExists() As Boolean
        Get
            If System.IO.File.Exists(mPathFile) Then
                Return True
            End If
        End Get
    End Property
    'свойства могут быть как  WriteOnly, тоько для записи - метод "Set"
    не определены

    '--------------------------------------------------------------------------
    'М Е Т О Д Ы
    '--------------------------------------------------------------------------
    не определены

    '--------------------------------------------------------------------------
    'С О Б Ы Т И Я
    '--------------------------------------------------------------------------
    не определены

End Class

Как мы используем этот класс
На форме распологаем текстбокс и кнопку. В текстбоксе пишем путь и файл, а кнопкой проверяем существует ли такой файл.

Код

Private Sub btnTesten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTesten.Click
        Dim test As New clsFile 'создаем экземпляр класса(в нашем случае обьекта-файл, который описывает наш класс. Путь к файлу и имя файла)
        test.PathFile = txtPath.Text
        If test.FileExists = True Then
            MessageBox.Show(test.Path & Chr(13) & test.File)
        Else
            MessageBox.Show("Файла не существует!")
        End If
    End Sub

И самое интересное что, один раз написанный класс можно много раз использовать в разных программах и в одной и тойже программе в разных формах, создавая новый обьект класса для его использования. Просто нужно добавить этот класс в проект.

Следующий пример класса будет о клиенте ( ФИО)

Код

Public Class clsПерсона
'------------------------------------------------------------
    'К О Н С Т Р У К Т О Р Ы класса
    '------------------------------------------------------------
    неопределены

'------------------------------------------------------------
    'А Т Р И Б У Т Ы
    '------------------------------------------------------------
    Public mФамилия, mИмя As String
    Private index As Int16
'-----------------------------------------------------------
    'С В О Й С Т В А
    '-----------------------------------------------------------
    Public WriteOnly Property Фамилия() As String
        Set(ByVal Value As String)
            mФамилия = Value
        End Set
    End Property
    Public WriteOnly Property Имя() As String
        Set(ByVal Value As String)
            mИмя = Value
            Toekennen()
        End Set
    End Property
    Public ReadOnly Property Инициалы() As String
        Get
            Select Case index
                Case 0
                    mФамилия = mФамилия.ToUpper()
                    mИмя  = mИмя .ToUpper()
                Case 1
                    mФамилия = mФамилия.ToLower()
                    mИмя  = mИмя .ToLower()
                Case 2
                    mФамилия = mФамилия.ToUpper.Chars(0)
                    mИмя  = mИмя .ToUpper.Chars(0)
            End Select
            Return mФамилия.Chars(0) & mИмя .Chars(0)
        End Get
    End Property
    Public ReadOnly Property ФИО() As String
        Get
            Select Case index
                Case 0
                    mФамилия = mФамилия.ToUpper()
                   mИмя  = mИмя .ToUpper()
                Case 1
                    mФамилия = mФамилия.ToLower()
                    mИмя  = mИмя .ToLower()
                Case 2
                    mФамилия = mФамилия.ToUpper.Chars(0) & mФамилия.Substring(1).ToLower
                    mИмя  = mИмя .ToUpper.Chars(0) & mИмя .Substring(1).ToLower
            End Select
            Return mФамилия & " " & mИмя
        End Get
    End Property
'--------------------------------------------------------------------------
    'М Е Т О Д Ы
    '--------------------------------------------------------------------------
    ' это могут быть как субрутины(не возвращают значений), так и функции(возвращают значение определенного типа)
    Public Function Заполнено() As Boolean
        If mФамилия <> "" And mИмя <> "" Then
            Return True
        End If
    End Function
    Public Function ИзмениВид(ByVal sIndex As Int16)
        index = sIndex
        Return index
    End Function
'--------------------------------------------------------------------------
    'С О Б Ы Т И Я
    '--------------------------------------------------------------------------

    Public Event СобственноеИмя()
    Public Sub Узнать() 'здесь субрутина написана рядом с событием, чтобы показать что вызывает это событие.
        If mИмя = "Иван" Or mИмя = "ИВАН" Or mИмя = "иван" Then
            RaiseEvent СобственноеИмя()
        End If
    End Sub

End Class

И что мы делаем на форме со всем этим. На форме у нас следующие контролы: два текстбокса, комбобоксб две label и кнопка.
В текстбоксы вводим фамилию и имя. Сомбобокс определяет как показывать ФИО в label большие/маленькие буквы или имя и фамия с заглавной буквы, а во второй инициалы.
Вот код для формы.

Код

Private WithEvents Клиент As New clsПерсона 'создали экземпляр нашего класса

    Private Sub btnПокажи_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToon.Click

        Клиент.Фамилия = txtФамилия.Text
        Клиент.Имя = txtИмя.Text
        If Клиент.Заполнено = True Then
            lblФИО.Text = Клиент.ФИО
            lblИнициалы.Text = Клиент.Инициалы
        Else
            MessageBox.Show("Укажите фамилию и имя", "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub cboType_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboType.SelectedIndexChanged
        Клиент.ИзмениВид(cboType.SelectedIndex)
    End Sub
'после заполнения проверит совпадает ли указанное имя с Иваном, ели да, то сгенерирует событие-покажет сообщение
    Private Sub Клиент_СобственноеИмя() Handles Клиент.СобственноеИмя
        MessageBox.Show("У тебя имя тоже Иван.")
    End Sub

В следующем примере покажу как использовать конструкторы класса с параметрами.

Цитата

Какие атрибуты должен содержать класс, это типа местные переменные. При наименовании полезно двать префикс "m". Так ты будешь четко знать что эта переменная внутри класса.

Цитата

Public Class имя класса ' желательно с префиксом cls

Цитата

mФамилия, mИмя As String

Цитата

Раньше на это уходило 1-2 дня (и то в конце концов она кардинально менялась).

Цитата

ТАК ХОЧЕТСЯ ВСЕМ "ДАТЬ В РЕПУ" !!! smile

Код


   <Serialization()>Class MyClass

   End Class

Код


  [Serialization()]class MyClass
  {

  }

Код


  <DllImport("user32.Dll")>Public Function ShowWindow (nCmdShow As Integer) As Integer
  End Function

Код


  <StructLayout(LayoutKind.Sequential)> Public Structure APIPoint
    Public X As Integer
    Public Y As Integer
End Structure

Цитата(thomas @ 9.10.2006, 17:44

)

Attribute это и есть, в принципе, "поля". Просто, похоже, русские программисты используют слово поля (английское field я в классах не втречал), а забугорные используют слово атрибуты.

Цитата(thomas @ 9.10.2006, 17:44

)

Еще одно: методы и субрутины (в C# еще void) это суть одно и тоже, а вот функция это уже другое. Функция не только производит определенные действия, она еще и возвращает результат заданного типа, в отличие от методы(субрутины)

Код


#Region "Private Variables"
    ' Переменные для частного пользования
    Private pVar1 As Integer
    Private pVar2 As String
    ...
#End Region

#Region "Public Properties"
    ' Публикация свойств
    Public Property Var1() As Integer
        ...
    End Property
    
    Public Property Var2() As String
        ...
    End Property
#End Region

#Region "Constructors"
    ' Конструкторы класса
    Public Sub New()
    End Sub

    Public Sub New(...)
        ...
    End Sub
#End Region

#Region "Public Functions"
    ' Публикация функций
    Public Function Func1() As Integer
        ...
    End Function

    Public Function Func2() As String
        ...
    End Function
#End Region