Создание класса, его объявление и доступ к нему

@Urs · Регистрация: 09.06.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте! Простите, если пишу не в тот раздел.

Решил на досуге попрограмировать и вот дошел до того, что назрела необходимость в создании собственного класса. Но пока я в этом полный ноль и потому прошу совета.

Вот мой класс:

VB.NET

    Public Class Stroka
        Public list_of_string As New List(Of String)
        Public Sub add(ByVal str)
            list_of_string.Add(str)
        End Sub
    End Class

Мне необходимо, чтобы в список List (of String), при каждом обращении к функции Add, добавлялась ещё одна новая строка, а не переписывалась старая. Например, в теле программы я пишу такой код:

VB.NET

1
2
3

Dim string1 As New Stroka
string1.add("Hello, World")
string1.add("Bye, World")

Я так понимаю, что при каждом обращении к классу Stroka конструктором New создаётся новый экземпляр List(Of String) и он переписывается заново, но мне-то нужно добавлять в тот же экземпляр новые строки, а не переписывать. Что я делаю неправильно и как мне выйти из положения?

Спасибо.

Памирыч · 03.12.2011, 17:27

Сообщение от Urs

Я так понимаю, что при каждом обращении к классу Stroka конструктором New создаётся новый экземпляр List(Of String) и он переписывается заново

да, так и есть.

VB.NET

1	Dim string1 As New Stroka

объяви глобально, например, в классе формы, а не в процедурах.

Добавлено через 42 секунды

Не по теме:

Сообщение от Urs

Bye, World

и это... Побольше оптимизма :D

@Urs · 03.12.2011, 21:02 **[ТС]**

А что значит глобально? Если я объявляю его в классе формы, вне процедур, то в классе Stroka подчёркивает "list_of_string.Add(str)" и выдаёт сообщение "Ссылка на член, .... , должна быть ссылкой на объект"...

Памирыч · 03.12.2011, 21:28

Urs, ничего подобного, вот полный код:

VB.NET

Public Class Form1
    Dim string1 As New Stroka
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        string1.add("Hello, World")
        string1.add("Bye, World")
    End Sub
End Class
Public Class Stroka
    Public list_of_string As New List(Of String)
    Public Sub add(ByVal str)
        list_of_string.Add(str)
    End Sub
End Class

@Urs · 04.12.2011, 17:14 **[ТС]**

Памирыч, спасибо! Тепрь я понял. Просто думал про то, что ты предлагаешь Public list_of_string As New List(Of String) объявить в классе формы. Невнимательно тебя прочитал...

Добавлено через 25 минут
Памирыч, ещё вопрос: как выйти из положения, если у меня массив строк? Чёт, не догоняю... Вот код:

VB.NET

Public Class Form1
Dim strings(10) As Stroka
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        strings(0) = New Stroka
        strings(0).add("Hello, World")
 
        strings(1) = New Stroka
        strings(1).add("Bye, World")
 
    End Sub
End Class
Public Class Stroka
    Public list_of_string As New List(Of String)
    Public Sub add(ByVal str)
        list_of_string.Add(str)
    End Sub
End Class

Памирыч · 04.12.2011, 20:49

Urs, код рабочий. Можно добавить:

VB.NET

        strings(0) = New Stroka
        strings(0).add("Hello, World")
        strings(0).add("Hello, World1")
        strings(0).add("Hello, World2") 
 
        strings(1) = New Stroka
        strings(1).add("Bye, World")
        strings(1).add("Bye, World1")
        strings(1).add("Bye, World2")
        strings(1).add("Bye, World3")

Если заранее неизвестен размер массива, а от ReDim тошнота, самое время изучить коллекции:

VB.NET

Public Class Form1
    Dim strings As New List(Of Stroka)
    Dim Tmp As Stroka
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Tmp = New Stroka
        Tmp.add("Hello, World")
        Tmp.add("Hello, World1")
        strings.Add(Tmp)
 
        Tmp = New Stroka
        Tmp.add("Bye, World")
        Tmp.add("Bye, World1")
        strings.Add(Tmp)
        
        MsgBox(strings(1).list_of_string(1))
    End Sub
End Class
Public Class Stroka
    Public list_of_string As New List(Of String)
    Public Sub add(ByVal str)
        list_of_string.Add(str)
    End Sub
End Class

@Дядя Корней · 23.12.2014, 18:50

А как работать с классом, если такое условие.
Допустим, что есть Form1.
Есть файл класса test.vb

На Form1 у меня сейчас есть процедура:

VB.NET

1
2
3

Sub Log()
        txt.AppendText("текстовая строка")
    End Sub

Чтобы использовать процедуру просто помещаю на Form1 кнопку Button1 и там прописываю Log() и всё работает.

А как правильно поместить этот код в файл класса test.vb:

VB.NET

1
2
3

Sub Log()
        txt.AppendText("текстовая строка")
    End Sub

и вызвать его на Form1 при нажатии Button1?

Добавлено через 2 минуты
Проще говоря, мне нужно повторяющиеся процедуры убрать из Form1 в файлы класса.

Памирыч · 23.12.2014, 18:57

Дядя Корней, так как txt находится в классе Form1, то метод можно вызывать "как есть"

Класс test.vb не имеет отношения к компоненту txt, и он не знает, что это.

Выход: Создать эту процедуру в свежесозданном модуле. Но придется все же указать родителя для txt

VB.NET

1
2
3

Sub Log()
        Form1.txt.AppendText("текстовая строка")
    End Sub

Далее метод можно вызывать как в главной форме, так и других формах и классах проекта.
По крайней мере, я так думаю)

@Visualist · 23.12.2014, 19:21

Сообщение от Памирыч

Но придется все же указать родителя для txt

а можно ли не указывать родителя, а передать txt, как параметр?

Памирыч · 23.12.2014, 19:25

Visualist, почему нет?

VB.NET

1
2
3

Sub Log(ByVal txt As TextBox)
        txt.AppendText("текстовая строка")
    End Sub

Но какой в этом смысл?

@Дядя Корней · 23.12.2014, 19:43

Памирыч, спасибо тебе, получилось всё сделать как я и хотел.

Создание класса, его объявление и доступ к нему

Решение

Решение

@Urs 55 / 55 / 5 Регистрация: 09.06.2011 Сообщений: 207
	03.12.2011, 21:02 [ТС]	3
	А что значит глобально? Если я объявляю его в классе формы, вне процедур, то в классе Stroka подчёркивает "list_of_string.Add(str)" и выдаёт сообщение "Ссылка на член, .... , должна быть ссылкой на объект"... 0

@Visualist 52 / 52 / 25 Регистрация: 01.02.2014 Сообщений: 201
	23.12.2014, 19:21	9
	Сообщение от Памирыч Но придется все же указать родителя для txt а можно ли не указывать родителя, а передать txt, как параметр? 0

@Дядя Корней 395 / 314 / 53 Регистрация: 14.08.2014 Сообщений: 1,010
	23.12.2014, 19:43	11
	Памирыч, спасибо тебе, получилось всё сделать как я и хотел. 0