Как сделать 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-браузере.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

@testuser2 1412 / 878 / 93 Регистрация: 08.02.2017 Сообщений: 3,752 Записей в блоге: 2

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

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

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

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

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

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