Как сделать TLB

@testuser2 · Регистрация: 08.02.2017

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

Все говорят об этих волшебных штуках, о том, какие возможности и удобства.., но никто ни говорит, как их делать. Видел статью как это делается с помощью специальной проги на Delfi, можно ли ее использовать для VB?

@testuser2 · 05.07.2023, 02:50 **[ТС]**

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

серьёзно?

Да что-т не очень, тлб-шка то создается я и обрадовался, но в ней ничего нет для пользования

@HackerVlad · 05.07.2023, 06:31

testuser2, а чего ты не попробуешь на VB6? Да и вообще чего ты так на этом VBA помешался. Программировал бы лучше на VB6.

@testuser2 · 05.07.2023, 07:38 **[ТС]**

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

Да и вообще чего ты так на этом VBA помешался.

На нем просто проще. В VB тебе обязательно надо писать программу, продумывать, какой-т гуй, в VBA у тебя уже есть готовая программа, довольно мощная и разноплановая, ты просто ее эксплуатируешь, при необходимости можешь сделать какую-то гуишку. Очень много вопросов, которые можно решить простым макросом

Добавлено через 12 минут
На Пайтоне подобная концепция реализована в виде библиотеки скриптов. Недавно запись была про это. https://www.cyberforum.ru/blog... g8158.html
Удобно - надо какую-то задачу сделать - выбрал нужный скрипт. Но мне не нравится, что там при выполнении скрипта, выводится какая-то билиберда консолью, вообще не понимаю в этом смысла.

@testuser2 · 06.04.2025, 12:44 **[ТС]**

Хотелось бы все-таки понять, как скомпилировать с помощью midl, мне это нужно чтобы создать декларацию с LONG_PTR. Я пробовал компилить даже нормальные, рабочие idl-ы, не получается, все время чего-то не хватает, чего-то там кричит про cl.exe. Стыдно сказать, даже к ИИ обращался с вопросом, но он не дал мне божественного знания, а только все время ~~дро~~водил по кругу..

@The trick · 06.04.2025, 12:45

testuser2, как компилируешь и что?

@testuser2 · 06.04.2025, 12:49 **[ТС]**

The trick, у меня есть своя простейшая tlb-шка всего с одной функцией. Я ее откры OleView и сохранил от туда файл IDL и попытался скомпилить с ключем /tlb последний раз это было так. Я уже наустанавливал всякой "требухи" типо Windows Kits, Даже VS 2017 Community установил не че не помагает (

Code
1
F:\Windows Kits\10\bin\10.0.26100.0\x86\midl.exe" "C:\Users\User\Documents\Excel\TLB\exampleIDL.IDL" /tlb "C:\Users\User\Documents\Excel\TLB\TestExample.tlb

@The trick · 06.04.2025, 12:54

testuser2, ну ты скинь все в zip. Ни ошибок, ничего не понятно.

@testuser2 · 06.04.2025, 13:01 **[ТС]**

The trick, вот мой idl-файл, есть еще один тестовый файл, со структурами и функциями там есть importlib("stdole2.tlb"); для поддержки Variant и safearray, но там я сейчас заметил ошибки.

@The trick · 06.04.2025, 13:09

testuser2, нужно сначала настроить пути типа такого:

Bash
1
2
call "C:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\vcvarsall.bat"
"C:\Program Files (x86)\Windows Kits\10\bin\10.0.22621.0\x86\midl.exe" exampleIDL.idl

В IDL нужно вставить алиас:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
[
  uuid(61F37A68-F92D-458D-B50B-9FC55DBC0E04),
  version(0.0) //,
  //helpstring("VB/VBA Memory Help WAPI TLB")
]
library ExampleTestTlb
{
 
typedef [public] long LONG_PTR;
 
    // Forward declare all types defined in this typelib
 
    [
      dllname("kernel32") //,
      //helpstring("kernel32 mama-helper.")
    ]
    module kernel32 {
        [entry("RtlMoveMemory"), helpstring("RtlMoveMemory")]
        void _stdcall CopyMemory(
                    [in] void* Dst, 
                    [in] void* Src, 
                    [in] LONG_PTR Size);
    };
};

@testuser2 · 06.04.2025, 13:34 **[ТС]**

Сообщение от The trick

В IDL нужно вставить алиас:

Я конечно маленько не об этом мечтал, но алиасы в tlb это круто конечно, не знал, спасибо!
Все-таки от статичности TLB видимо ни куда не уйти. А в TLB можно делать парметр, допустим какой-нибудь второ с дефолтным значением, а остальные обычные?

@The trick · 06.04.2025, 14:18

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

А в TLB можно делать парметр, допустим какой-нибудь второ с дефолтным значением, а остальные обычные?

https://learn.microsoft.com/en... l/optional
https://learn.microsoft.com/en... faultvalue

@testuser2 · 06.04.2025, 15:36 **[ТС]**

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

Все-таки от статичности

Да нет же, такие типы как BSTR, void на само деле не статичные, они по разному определяются в x86/x64

Добавлено через 30 минут

Сообщение от The trick

call "C:\Program Files (x86)\Microsoft Visual Studio 10.0\VC\vcvarsall.bat"

Там все на английском, я сдаюсь, но не исключаю, что в этом может быть решение.

Сообщение от The trick

typedef [public] long LONG_PTR;

Вот что интересно, а нельзя ли делать алиас-указатель типа typedef void* PtrPtr ?

Добавлено через 6 минут
Вижу, есть аттрибут ptr https://learn.microsoft.com/ru... 2/midl/ptr
Но еще бы понять, может ли это добавить каких-то возможностей Vb..

@testuser2 · 24.04.2025, 16:39 **[ТС]**

Получилось все-таки скомпилировать с помощью midl-а таким образчиком
1 сначала нужно найти vcvars32.bat (или vcvars64.bat)
2 открыть окно команд от администратора и выполнить батник
3 выполнить midl "путь к .tlb"
tlb компилируется и попадает в системный каталог SysWOW64 (или System32, как полагаю, я использовал vcvars32.bat)

@testuser2 · 02.08.2025, 13:23 **[ТС]**

Нашел, как настоящий LongPtr добавлять в tlb, для этого нужно добавлят импорт

Code
1
importlib("VBE7.dll");

В VBE7 как раз определен этот тип-алиас

C
1
2
3
4
typedef [public    ,
      custom(F914481D-9C62-4B43-9340-E9B2E6252E5F, 1)    
]
    long LONG_PTR;

Так можно делать универсальные tlb для 32/64 для VBA

Добавлено через 21 минуту
Еще одну вещь увидел в stdole2.tlb тип OLE_COLOR определен как unsigned long, вау, думаю, а не работает ли unsigned в VBA. Неа, код выполняется без ошибок )(

Visual Basic
1
2
3
4
Sub safasfas()
    Dim cl As OLE_COLOR
    cl = -123    
End Sub

Добавлено через 5 часов 36 минут

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

Так можно делать универсальные tlb

ошибочка, универсальные idl-ы, а, вот, tlb-шка получается не универсальная. Еще из наблюдений, видимо в idl нельзя делать публик-константы, кроме как в энумах. А в odl можно, поскольку на vbspeeds выложена целая одна tlb с всего одной константой, но рабочей и не состоящей в энумах.
Дальше об экспериментах

C
1
2
// typedef [public] long* LongRef; //не удачный эксперимент, в VB выдаст ошибку неподдерживаемого типа.
typedef [public] void AnyType;    //удачный эксперимент, можно сделать аргмент в VB функции, работающий как Any..

@testuser2 · 23.11.2025, 07:49 **[ТС]**

Опять же не понятная ситуация
В VBE7 есть модуль Constants

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    [
      dllname("<no entry points>"),
      uuid(343DB180-2BCC-1069-82D4-00DD010EDFAA),
      helpcontext(0x000f6ebd)
    ]
    module Constants {
        [helpcontext(0x000f79aa)] const long vbObjectError = 0x80040000;
        [helpcontext(0x0010aa32)] const LPSTR vbNullString = "";
        [helpcontext(0x0010aa32)] const LPSTR vbNullChar = "\0";
        [helpcontext(0x0010aa32)] const LPSTR vbCrLf = "\r\n";
        [helpcontext(0x0010aa32)] const LPSTR vbNewLine = "\r\n";
        [helpcontext(0x0010aa32)] const LPSTR vbCr = "\r";
        [helpcontext(0x0010aa32)] const LPSTR vbLf = "\n";
        [helpcontext(0x0010aa32)] const LPSTR vbBack = "\b";
        [helpcontext(0x0010aa32)] const LPSTR vbFormFeed = "\f";
        [helpcontext(0x0010aa32)] const LPSTR vbTab = "\t";
        [helpcontext(0x0010aa32)] const LPSTR vbVerticalTab = "\v";
    };

Пытаюсь создать такой же модуль в своем idl-файле, но это нарушает компиляцию

Code
1
Ошибка    LNK1169 обнаружен многократно определенный символ - один или более

C
1
2
3
4
5
6
7
    [
        dllname("<no entry points>"),
        uuid(343DB180-2BCC-1069-8215-00DD010EDFAA)
    ]
    module ConstModule{
        const long sizeofptr = 0x00000004;
    };

Добавлено через 2 часа 7 минут
Разобрался. В Atl-проекте, в демонстрационном модуле автоматически добавляется заголовок такого вида #include "название_проекта_i.h" (в моем случае ATLVBA_i.h), я думал, что это необходимо и добавлял этот инклд во все новые модли. Но это вот как раз мешало откомпилировать константы в idl-модуле, поскольку все константы и функции из idl автоматически попадают в ATLVBA_i.h, а посколь ATLVBA_i.h был заинклюден в несколько модулей, то в них автоматически попадают определения из ATLVBA_i.h, т.е. из файла idl. И все вроде в порядке, но с константами из idl почему-то происходит такая фигня, что они как-будто переопределяются в каждом модуле по-новой и начинают друг с другом конфликтовать. В обем убрал во всех своих модулях #include "ATLVBA_i.h" и компиляция прошла нормально и константа появилась в Object-браузере.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@testuser2 1381 / 837 / 89 Регистрация: 08.02.2017 Сообщений: 3,502 Записей в блоге: 1

	Как сделать TLB 30.06.2023, 20:11. Показов 3729. Ответов 34 Метки нет (Все метки) Все говорят об этих волшебных штуках, о том, какие возможности и удобства.., но никто ни говорит, как их делать. Видел статью как это делается с помощью специальной проги на Delfi, можно ли ее использовать для VB? 0

@HackerVlad Испарился 1741 / 637 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	05.07.2023, 06:31
	testuser2, а чего ты не попробуешь на VB6? Да и вообще чего ты так на этом VBA помешался. Программировал бы лучше на VB6. 0

@testuser2 1381 / 837 / 89 Регистрация: 08.02.2017 Сообщений: 3,502 Записей в блоге: 1
	06.04.2025, 12:44 [ТС]
	Хотелось бы все-таки понять, как скомпилировать с помощью midl, мне это нужно чтобы создать декларацию с LONG_PTR. Я пробовал компилить даже нормальные, рабочие idl-ы, не получается, все время чего-то не хватает, чего-то там кричит про cl.exe. Стыдно сказать, даже к ИИ обращался с вопросом, но он не дал мне божественного знания, а только все время ~~дро~~водил по кругу.. 0

@The trick Модератор 10046 / 3892 / 883 Регистрация: 22.02.2013 Сообщений: 5,846 Записей в блоге: 79
	06.04.2025, 12:45
	testuser2, как компилируешь и что? 0

@The trick Модератор 10046 / 3892 / 883 Регистрация: 22.02.2013 Сообщений: 5,846 Записей в блоге: 79
	06.04.2025, 12:54
	testuser2, ну ты скинь все в zip. Ни ошибок, ничего не понятно. 0

@testuser2 1381 / 837 / 89 Регистрация: 08.02.2017 Сообщений: 3,502 Записей в блоге: 1
	24.04.2025, 16:39 [ТС]
	Получилось все-таки скомпилировать с помощью midl-а таким образчиком 1 сначала нужно найти vcvars32.bat (или vcvars64.bat) 2 открыть окно команд от администратора и выполнить батник 3 выполнить midl "путь к .tlb" tlb компилируется и попадает в системный каталог SysWOW64 (или System32, как полагаю, я использовал vcvars32.bat) 0