Как вызывать методы из классов NET Framework в программе на VB6?

@HackerVlad · Регистрация: 10.09.2021

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

@testuser2 · 06.12.2024, 16:03

Кстати, в Твин-бейсике обещали поддержку современнхы com-интерфейсов, но при работе, например с обхъектом mscorlib.ArrayList нет ни каких подсазок. Хотя в ТВ можно открыть саму tlb-шку и просмотрет все внутренности. И там, в общем-то видны методы и т.д.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
    CoClass ArrayList
        [ Default ] Interface mscorlib._ArrayList
        Interface mscorlib._Object
        Interface mscorlib.IList
        Interface mscorlib.ICollection
        Interface mscorlib.IEnumerable
        Interface mscorlib.ICloneable
    End CoClass

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Interface IList Extends stdole.IDispatch
        [ DispId(0) ]
        /* voffset &H001C*/ Property Get Item(ByVal index As Long) As Variant
        [ DispId(0) ]
        /* voffset &H0020*/ Property Set Item(ByVal index As Long, ByVal  As Variant)
        [ DispId(&H60020002) ]
        /* voffset &H0024*/ Function Add(ByVal value As Variant) As Long
        [ DispId(&H60020003) ]
        /* voffset &H0028*/ Function Contains(ByVal value As Variant) As Boolean
        [ DispId(&H60020004) ]
        /* voffset &H002C*/ Sub Clear()
        [ DispId(&H60020005) ]
        /* voffset &H0030*/ Property Get IsReadOnly() As Boolean
        [ DispId(&H60020006) ]
        /* voffset &H0034*/ Property Get IsFixedSize() As Boolean
        [ DispId(&H60020007) ]
        /* voffset &H0038*/ Function IndexOf(ByVal value As Variant) As Long
        [ DispId(&H60020008) ]
        /* voffset &H003C*/ Sub Insert(ByVal index As Long, ByVal value As Variant)
        [ DispId(&H60020009) ]
        /* voffset &H0040*/ Sub Remove(ByVal value As Variant)
        [ DispId(&H6002000A) ]
        /* voffset &H0044*/ Sub RemoveAt(ByVal index As Long)
    End Interface

Visual Basic
1
2
3
4
5
6
7
8
9
10
    Interface ICollection Extends stdole.IDispatch
        [ DispId(&H60020000) ]
        /* voffset &H001C*/ Sub CopyTo(ByVal Array As mscorlib._Array, ByVal index As Long)
        [ DispId(&H60020001) ]
        /* voffset &H0020*/ Property Get Count() As Long
        [ DispId(&H60020002) ]
        /* voffset &H0024*/ Property Get SyncRoot() As Variant
        [ DispId(&H60020003) ]
        /* voffset &H0028*/ Property Get IsSynchronized() As Boolean
    End Interface

@HackerVlad · 06.12.2024, 16:23 **[ТС]**

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

Кстати, в Твин-бейсике обещали поддержку современнхы com-интерфейсов

Было бы хорошо, если бы в ТвинБейсике сделали возможно вызывать все функции из .Net FrameWork

@testuser2 · 06.12.2024, 16:24

Вот оказывается можно dotnet юзать с подсказками, помог в этом Twin Basic.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub asfsfsfas()
    Dim oArLst As New mscorlib.ArrayList
    Dim oLst As mscorlib.IList
    Dim oCol As mscorlib.ICollection
    Dim oDic As mscorlib.IDictionary
    
    Set oLst = oArLst
    Set oCol = oArLst
    Set oDic = oArLst
    
    oLst.Add 5
    oLst.Add 2
    oLst.Add 8
    oDic.Add "key1", "value1"
    
    Debug.Print oCol.Count
    Debug.Print oDic.Contains("key1")
        
End Sub

@testuser2 · 08.12.2024, 03:18

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

Set oDic = oArLst

Здесь вранье, кстати, IDictionary является частью другого объекта - mscorlib.HashMap

I can · 08.12.2024, 06:44

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

IDictionary

Судя по названию, это интерфейс.

@testuser2 · 08.12.2024, 07:20

В mscorlib.tlb, кстати, не все есть, не мог найти там функции ToArray, хотя она есть, можно с помощью этого метода получить массив (safearray) элементов ArrayList

C#
1
public virtual object?[] ToArray ();

I can, не подскажешь, как из HashMap ключи и итемы также выгрузить в обычный safearray?

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@HackerVlad Вернулся 1777 / 672 / 46 Регистрация: 10.09.2021 Сообщений: 2,820

	Как вызывать методы из классов NET Framework в программе на VB6? 06.12.2024, 03:04. Показов 1846. Ответов 25 Метки нет (Все метки) Как вызывать методы из классов NET Framework в программе на VB6? 0