Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.71/190: Рейтинг темы: голосов - 190, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 16.02.2016
Сообщений: 13

Generate QR-code VB6

18.03.2016, 12:37. Показов 39500. Ответов 74
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем салют.
Возможна ли генерация QR-кода на VB6?
На C# и VB.NET существуют библиотеки, для работы с QR.
Существуют ли таковые на VB6?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.03.2016, 12:37
Ответы с готовыми решениями:

Write some short C or C++ code to generate a stack overflow
Write some short C or C++ code to generate a stack overflow

Write some short C or C++ code to generate a segmentation fault
Write some short C or C++ code to generate a segmentation fault

Контроль длины Label. А также VB6 Portable vs VB6 Installed.
Исходя из заголовка темы, вопроса 2: 1.) Как определить, что в Label уже не хватает места для Caption? Длина букв разная. Например,...

74
2 / 2 / 0
Регистрация: 08.09.2014
Сообщений: 78
19.11.2021, 20:38
Студворк — интернет-сервис помощи студентам
Я вот что пытался вставить, даёт кучу ошибок

Visual Basic
1
2
  GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
    Forms("Ф_QR_Платёка").PS_imgPicture.Action = acOLEPaste
0
2 / 2 / 0
Регистрация: 08.09.2014
Сообщений: 78
19.11.2021, 20:40
Первая картинка выскакивает 2 раза
Вторая картинка свойства поля вставки
Миниатюры
Generate QR-code VB6   Generate QR-code VB6  
0
sleep
 Аватар для I can
4914 / 4538 / 837
Регистрация: 13.04.2015
Сообщений: 9,669
19.11.2021, 20:44
А Bitmap есть куда вставить?
0
2 / 2 / 0
Регистрация: 08.09.2014
Сообщений: 78
19.11.2021, 20:46
А в поле, свойства которого я опубликовал, нельзя, это не битмапоское поле?

Добавлено через 26 секунд
Как его создать?
0
sleep
 Аватар для I can
4914 / 4538 / 837
Регистрация: 13.04.2015
Сообщений: 9,669
19.11.2021, 20:49
Image ? Нет. А из файла вы можете это поле заполнить?
0
2 / 2 / 0
Регистрация: 08.09.2014
Сообщений: 78
19.11.2021, 21:07
я не умею
0
2 / 2 / 0
Регистрация: 08.09.2014
Сообщений: 78
19.11.2021, 21:23
Вот сделал форму, как смог-(
Вложения
Тип файла: rar Проба QR-coda.rar (12.9 Кб, 45 просмотров)
0
sleep
 Аватар для I can
4914 / 4538 / 837
Регистрация: 13.04.2015
Сообщений: 9,669
19.11.2021, 21:25
Wawan_, у меня нет Access-а, поэтому помочь не смогу
0
2 / 2 / 0
Регистрация: 08.09.2014
Сообщений: 78
19.11.2021, 21:31
печалька
0
2 / 2 / 0
Регистрация: 08.09.2014
Сообщений: 78
21.11.2021, 15:15
C теми ошибками разобрался, новая проблема.

ругается на последнюю строчку:

Visual Basic
1
2
    GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
    Forms("Ф_QR_Платёка").PS_imgPicture.Action = acOLEPaste
и так попробовал

Visual Basic
1
2
    GenerateBMPToClipboard StrPtr("Hello world!"), 3, 5, QualityLow
    Me.Form.PS_imgPicture.Action = acOLEPaste
Мож кто подскажет, что не так.
0
784 / 63 / 4
Регистрация: 28.05.2015
Сообщений: 99
23.11.2021, 17:21
В случае распространения БД в качестве приложения дабы не муч[а,и]ться с 32-64 битными офисами лучше использовать exe_шник из консольного генератора -
Вложения
Тип файла: rar QR_квитанция.rar (580.8 Кб, 45 просмотров)
0
2 / 2 / 0
Регистрация: 08.09.2014
Сообщений: 78
25.11.2021, 21:24
Вот конечный результат для единичной распечатки квитанциии


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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
[SPOILER]Option Compare Database
Option Explicit
Public ZB1 As String, ZB9 As String, ZU1 As String, ZU9 As String, ZBU1 As String, ZBU9 As String, ZI1 As String, ZI9 As String, 
       ZUI1 As String, ZUI9 As String, B1 As String, qwer1, qwer2, B2 As String, Summ_pr As String, _
       stCriteria As String
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
#If VBA7 Then
    Private Declare PtrSafe Sub GenerateBMP _
                Lib "c:\Windows\quricol64.dll" _
                Alias "GenerateBMPW" (ByVal FileName As LongPtr, ByVal Text As LongPtr, _
                ByVal Margin As Long, ByVal Size As Long, ByVal Level As TErrorCorretion)
 
    Private Declare PtrSafe Sub GenerateBMPToClipboard _
                Lib "c:\Windows\quricol64.dll" _
                Alias "GenerateBMPToClipboardW" (ByVal Text As LongPtr, ByVal Margin As Long, _
                ByVal Size As Long, ByVal Level As TErrorCorretion)
#Else 'For 32-bit office
    Private Declare Sub GenerateBMP _
                Lib "c:\Windows\quricol32.dll" _
                Alias "GenerateBMPW" (ByVal FileName As Long, ByVal Text As Long, _
                ByVal Margin As Long, ByVal Size As Long, ByVal Level As TErrorCorretion)
                
    Private Declare Sub GenerateBMPToClipboard _
                Lib "c:\Windows\quricol32.dll" _
                Alias "GenerateBMPToClipboardW" (ByVal Text As Long, ByVal Margin As Long, _
                ByVal Size As Long, ByVal Level As TErrorCorretion)
#End If
Private Sub cmdIncetrQRCod_Click()
    GenerateBMPToClipboard StrPtr(Me.П_Уважаем1), 3, 5, QualityStandard
    Me.objQRCod.Action = acOLEPaste
End Sub
Private Sub Кн_ПечатьPDF_Click()
Dim stDocName As String, path
On Error GoTo Err_
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 'Не знаю, что делает эта команда
    DoCmd.OutputTo acOutputForm, "Ф_QR_Платёжка", acFormatPDF, _
    CurrentProject.path & "\КвитанцииPDF\" & [Код] & "_" & [ФИО] & ".pdf", False
Exit_:
    Exit Sub
Err_:
    MsgBox Err.Description
    Resume Exit_
End Sub[/SPOILER]
1
784 / 63 / 4
Регистрация: 28.05.2015
Сообщений: 99
29.11.2021, 09:38
Пример с форума:

в котором "таскать ничего не нужно, всё внутри, библиотека какая нужна та и выгрузится.
Не используется ни буфер, ни внешние растры", подправленный в т.ч. для Access 64-bit Win 2010(32,64).
Вложения
Тип файла: rar QRкодКвит.rar (314.2 Кб, 57 просмотров)
0
784 / 63 / 4
Регистрация: 28.05.2015
Сообщений: 99
29.11.2021, 11:49
Цитата Сообщение от Wawan_ Посмотреть сообщение
Вот конечный результат для единичной распечатки квитанции
;-)
Вот начальный результат для единичной распечатки квитанции.
Вложения
Тип файла: rar QRкодКвит_ПДФ.rar (328.6 Кб, 66 просмотров)
0
sleep
 Аватар для I can
4914 / 4538 / 837
Регистрация: 13.04.2015
Сообщений: 9,669
29.11.2021, 12:06
Wawan_, UUMprimor, ребята, валите в VBA. Последние страницы темы вообще никакого отношения к VB6 не имеют.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.11.2021, 12:06
Помогаю со студенческими работами здесь

Windows 2000 Rus VB6, VB6 Resource Editor отсутствует
В Windows 2000 Rus + SP3 проинсталлировал Visual Studio 6 + MSDN Full (вся студия на 6 CD-R). В VB6 “Add-In Manager” всего три компонента,...

generate ()
нужно создать программу используя generate (). Нужно сгенерировать 4 числа от 0 до 3. Нашел template <class ForwardIterator, class...

Generate Device Name
Доброго времени суток. Вопросик есть. Мне нужно сгенерировать имя устройства и записать его в .plist и при каждом запуске приложения...

Rule does not generate
автор кода не я. уровень знаний абсолютный новичок. корректировал некоторые данные основываясь на логике и подсказках гугла. скрипт не...

Ошибка generate
OBRABOTKA STORAGE 1 REGULIROVKA STORAGE 2 SBORKA STORAGE 2 GENERATE 10 SPLIT 3, MET1 MET1 TRANSFER .5, MET2,MET3 ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
75
Ответ Создать тему
Новые блоги и статьи
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 . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru