Необходимо получить тип элемента и с помощью CType или DirectCast изменить его тип

@LightZ · Регистрация: 31.10.2014

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

Всем привет!
Подскажите, пожалуйста, есть ли вариант решения данной проблемы:
Необходимо получить тип элемента и с помощью CType или DirectCast изменить тип данного элемента
Пример:
Допустим, у меня на форме есть два элемента ListBox и ComboBox, у обоих этих элементов есть свойство DataSource
И чтобы не плодить функции - хочу одним выстрелом убить двух зайцев следующим образом:

VB.NET

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        ChangeBox(Me.ListBox1)
    End Sub
 
    Sub ChangeBox(Box As Object)
        Dim ElType = Box.GetType
        CType(Box, ElType).DataSource = {1, 2, 3, 4}
    End Sub
End Class

Для меня как бы всё логично, ElType имеет тип System.Type и должно всё работать
Но, к сожалению, получаю ошибку - Тип "ElType" не определен (?)

Можно, конечно, сделать проще:

VB.NET

1
2
3

    Sub ChangeBox(Box As Object)
        Box.datasource = {1, 2, 3, 4}
    End Sub

Но у меня включен Option Strict, а он не позволяет позднее связывание

Заранее благодарен!

@Замабувараев · 11.02.2015, 12:04

Box объявлен как Object, поэтому GetType возвращает тип Object, а не ElType. Седьмая строка не нужна.

@LightZ · 11.02.2015, 12:11 **[ТС]**

Замабувараев, спасибо за отклик
Но GetType возвращает ListBox - {Name = "ListBox" FullName = "System.Windows.Forms.ListBox"} System.Type

@OwenGlendower · 11.02.2015, 12:18

LightZ, без позднего связывания универсальный код не получится написать. Если бы Microsoft сделала бы интерфейс для всех элементов управления с DataSource, то тогда бы приводили к интерфейсу и проблемы не было бы. Можно решить примерно так:

VB.NET

Sub ChangeBox(Box As Control)
    Dim lb As ListBox = TryCast(Box, ListBox)
    If lb IsNot Nothing Then
        lb.DataSource = {1, 2, 3, 4}
    End If
    
    Dim cb As ComboBox = TryCast(Box, ComboBox)
    If cb IsNot Nothing Then
        cb.DataSource = {1, 2, 3, 4}
    End If
End Sub

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

Для меня как бы всё логично, ElType имеет тип System.Type и должно всё работать
Но, к сожалению, получаю ошибку - Тип "ElType" не определен (?)

CType ожидает имя типа, а ты передаешь переменную типа Type. Это не одно и тоже. Кроме того, а как компилятор должен обрабатывать этот код? Ты ему передаешь значение которое станет известно только на этапе исполнения и он не в состоянии проверить это выражение. По сути это получается позднее связывание, а это VB.NET умеет делать и без таких конструкций

@LightZ · 11.02.2015, 12:23 **[ТС]**

OwenGlendower, спасибо!
Всё понял, действительно путаница вышла

До создания этой темы, у меня в проекте чуть другой вариант, и в принципе, он меня устраивает:

VB.NET

    Overloads Sub ChangeBox(Box As ListBox)
        Box.DataSource = {1, 2, 3, 4}
    End Sub
    Overloads Sub ChangeBox(Box As ComboBox)
        Box.DataSource = {1, 2, 3, 4}
    End Sub

Но спасибо за разъяснение, очень благодарен!

@Замабувараев COM‐пропагандист 859 / 768 / 147 Регистрация: 18.12.2014 Сообщений: 2,195 Записей в блоге: 4
	11.02.2015, 12:04	2
	Box объявлен как Object, поэтому GetType возвращает тип Object, а не ElType. Седьмая строка не нужна. 0

@LightZ 3 / 3 / 0 Регистрация: 31.10.2014 Сообщений: 39
	11.02.2015, 12:11 [ТС]	3
	Замабувараев, спасибо за отклик Но GetType возвращает ListBox - {Name = "ListBox" FullName = "System.Windows.Forms.ListBox"} System.Type 0

	11.02.2015, 12:23

Необходимо получить тип элемента и с помощью CType или DirectCast изменить его тип

Решение