Как я могу присвоить значения переменной структуре в VB 2019?

Question

У меня есть 2 или более структур:

Private Structure structure_one
    Public id As String
    Public name As String
End Structure

Private Structure structure_two
    Public counter As integer
    Public code_value As String
    Public foo as string
End Structure

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

Псевдокод:

Sub my_subfunction (ByRef struc As структура)

struc.variable (0) = "id "

struc.variable (1) =" имя "

end sub

вызов подпрограммы будет выглядеть примерно так:

call my_subfunction(structure_one)

Подфункция должна иметь возможность определять количество элементов, которые имеет структура, поэтому она может передавать все новые значения в структуру ... Проблема в том, что ее структура не всегда одна и та же, иногдаон может передать struct_one, а иногда struct_two, или другую структуру ... какие-нибудь идеи?

Это является более чистым кодом, это сэкономит много кода в больших проектах

Спасибоза помощь

Answer 1

Вы полностью можете «определить», какую структуру только что получил ваш метод. Вот вам скелетный код:

Private Sub AssignValuesToMyStructures(struct As Object)
    Select Case True
        Case TypeOf struct Is Structure_one
            'do stuff
        Case TypeOf struct Is Structure_two
            'do other stuff
    End Select
End Sub

Веселитесь!