Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 2, средняя оценка - 5.00
Dragokas
Эксперт WindowsАвтор FAQ
16037 / 6855 / 826
Регистрация: 25.12.2011
Сообщений: 10,608
Записей в блоге: 16
19.09.2017, 01:29  [ТС] #211
Назначение иконки пункту меню с привязкой к его имени

Автор: Dragokas

В стандартном редакторе меню нет возможности назначать иконку пункту меню.
Этот модуль восполняет пробел.

Чтобы назначить иконку, вызовите функцию SetMenuIconByName, указав хендл формы, имя пункта меню и источник иконки типа Bitmap.
В примере истоники:
1) иконка, которая грузится из ресурса.
2) иконка из PictureBox на форме.

Иконки можно делать большего размера, тогда пункты меню тоже увеличатся.
Подгружать нужно в формате .bmp. Кол-во битов цветовой палитры не важно.
4
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: rar MenuIconLoader.rar (12.7 Кб, 4 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2017, 01:29
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Готовые решения и полезные коды на Visual Basic 6.0 (VB):

Продам готовые коды и решения на Visual Basic за 400 рублей - Visual Basic
душу продаю:cry: Продам коды исходные на VB !!10 лет копил за 400р !!размер тока кодов 312метров там есть все ! мыло контакты удалены....

Коды на Visual Basic - Visual Basic
Ребята всем привет,я начел изучать "Visual Basic"! Очень буду благодарен за коды по этому языку, очень интиресный язык)))! Бросайте сюда...

Вывод решения вместо Immediate в textbox (visual basic 6.0) - Visual Basic
программа выводит решение в Immediate а я хочу разместить на форме text1 и что бы решение выводилось туда ,менял код менял не че не...

Вычисление значений функции двух переменных в Visual Basic - Visual Basic - Visual Basic
Помогите пожалуйста! В среде VB написать программу вычисления значений функции двух переменных. Ориентировочный вид окна программы и...

Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net ? - Visual Basic
Где бесплатно скачать учебник по Visual Basic 6 и Visual Basic .Net

Visual Basic Используя условный оператор if…then, if…then…else или if…then…elseif, разработайте проект для решения следующих заданий: - Visual Basic
Пройдет ли кирпич со сторонами а, b и с сквозь прямоугольное отверстие со сторонами p и q? Стороны отверстия должны быть параллельны граням...

219
xxdoc
3 / 3 / 0
Регистрация: 10.07.2015
Сообщений: 3
20.09.2017, 03:45 #212
yes i upload
3
Вложения
Тип файла: zip Menu con Imagenes.zip (49.4 Кб, 7 просмотров)
fever brain
oh my god
819 / 395 / 77
Регистрация: 05.01.2016
Сообщений: 1,106
Записей в блоге: 7
20.09.2017, 07:59 #213
Another 5 cents on the topic - the menu
author unknown
3
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: rar Owner-draw Menu.rar (11.1 Кб, 2 просмотров)
fever brain
oh my god
819 / 395 / 77
Регистрация: 05.01.2016
Сообщений: 1,106
Записей в блоге: 7
04.10.2017, 22:45 #214
Картинка в выпадающем списке

Возникла такая идея, а можно ли в расскрывающийся список ComboBox вставить чтото еще...

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
49
50
51
52
53
54
Option Explicit
 
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOSIZE = &H1
 
Private Type RECT
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type
Private Type COMBOBOXINFO
    cbSize As Long
    rcItem As RECT
    rcButton As RECT
    stateButton As Long
    hWndCombo As Long
    hwndEdit As Long
    hWndList As Long
End Type
 
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetComboBoxInfo Lib "user32.dll" (ByVal hWndCombo As Long, ByRef CBInfo As COMBOBOXINFO) As Long
Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As Long) As Long
 
Dim WithEvents cbx As ComboBox, WithEvents tmr As Timer
Dim cbi As COMBOBOXINFO, rPic As RECT, www&
 
Private Sub Form_Activate()
    Set cbx = Controls.Add("vb.combobox", "cbx"): With cbx
        .Move 300, 300, 3000
        .Text = "Картинка в выпадающем списке"
        .Visible = 1
    End With
    Set tmr = Controls.Add("vb.timer", "tmr"): tmr.Interval = 100
    cbi.cbSize = Len(cbi)
    Call GetComboBoxInfo(cbx.hwnd, cbi)
    SetParent Picture1.hwnd, cbi.hWndList
    SetWindowPos Picture1.hwnd, 0, 0, 0, 0, 0, SWP_NOSIZE
End Sub
 
 
Private Sub tmr_Timer()
    Static b1 As Boolean, b2 As Boolean
    b1 = IsWindowVisible(cbi.hWndList)
    If b1 And b2 = False Then
        'Размер списка изменяется под картинку, только когда расскрывается список
        b2 = True: SetWindowPos cbi.hWndList, 0, 0, 0, Picture1.Width \ 15, Picture1.Height \ 15, SWP_NOMOVE
    ElseIf b1 = False And b2 Then
        b2 = False
    End If
End Sub
1
Миниатюры
Готовые решения и полезные коды на Visual Basic 6.0  
Вложения
Тип файла: rar Картинка в выпадающем списке.rar (18.6 Кб, 10 просмотров)
fever brain
oh my god
819 / 395 / 77
Регистрация: 05.01.2016
Сообщений: 1,106
Записей в блоге: 7
25.10.2017, 16:35 #215
Хранилище данных

Представляю вниманию удобный инструмент для хранения своих записей
Возможности:
1-Создавать, удалять и редактировать каждую запись в отдельности
2-Находить нужную запись по фрагменту слова
3-Хранение данных в максимально сжатом виде (утилита Rar в комплекте)
4-Устанавливать и изменять пароль

Блог:

2
UBUNTU
203 / 128 / 25
Регистрация: 04.02.2015
Сообщений: 697
29.10.2017, 12:16 #216
Отличный пример для генерации QR кода. Пример нашел на стороннем сайте, но источник с отсюда. Во вложении библиотека.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare Sub GenerateBMP _
                Lib "D:\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 Sub Command1_Click()
On Error Resume Next
    GenerateBMP StrPtr("D:\Example.bmp"), StrPtr("Ваш текст!!!"), 3, 5, QualityLow
End Sub
4
Вложения
Тип файла: rar quricol32.rar (101.1 Кб, 5 просмотров)
Тип файла: rar quricol64.rar (92.9 Кб, 0 просмотров)
fever brain
oh my god
819 / 395 / 77
Регистрация: 05.01.2016
Сообщений: 1,106
Записей в блоге: 7
03.11.2017, 07:05 #217
Оболочка к самому мощному в мире архиватору Paq9a

Нарыл в интернете консольную утилиту, и никак не смог найти к нему GUI - тоесть нормальный интерфейс
отказываться от впечатляещего инструмента архивирования и не собираюсь, разработал к нему интерфейс

Блог:




Результаты тестирования:
2
fever brain
oh my god
819 / 395 / 77
Регистрация: 05.01.2016
Сообщений: 1,106
Записей в блоге: 7
05.11.2017, 23:23 #218
Новая версия MiniDataBase 1.2

1
kreotodr
22 / 22 / 8
Регистрация: 15.08.2014
Сообщений: 442
07.11.2017, 15:19 #219
Задался целью выяснить действительно ли Орел/Решка выпадают с вероятностью 50/50...
В тесте использовал RND. Насколько это корректно не знаю...
после 1 000 000 000 процент стремится к 50/50

https://cdn1.radikalno.ru/uploads/20...28ed6-full.png
0
fever brain
oh my god
819 / 395 / 77
Регистрация: 05.01.2016
Сообщений: 1,106
Записей в блоге: 7
13.11.2017, 07:41 #220
Оболочка к самому мощному в мире архиватору Paq9a

================================== Версия 2-0
Что изменилось:
Мультиязычный интерфейс с возможностью расширения языков !
Есть возможность перетаскивать файлы для архивации Drag-and-Drop
Извлечение с указанием целевой папки
что это значит:
Тоесть если в самом архиве указан абсолютный путь, в своей программе
я подставляю путь целевой папки к базовому имени файла


Настройка использования памяти ПК от 18mb до 1585mb
Это о чем я писал ранее, (ненастраевоемое значение 1-9)
Но пользоваться с осторожностью, лучше оставляйте среднее значение


Теперь есть строка состояния того, что делает приложение Paq9a
Есть возможность посмотреть список файлов в архиве
Версия портабельная, достаточно запустить приложение ArcPaq9a
и можно пользоваться

Блог:

1
13.11.2017, 07:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.11.2017, 07:41
Привет! Вот еще темы с ответами:

Visual Basic 6 и Visual Basic .NET - в чем различия? - Visual Basic
Visual Basic и Visual studio это не одно и тоже? если нет то в чём разница, по мимо оформления?

Отличия версий Visual Basic 6.0 от Visual Basic 6.5? - Visual Basic
У меня 3 вопроса: 1.Чем отличается версия Visual Basic 6.0 от Visual Basic 6.5? 2.Можно ли запустить проект созданный раннее в Visual...

Кто пишет программы в Visual Studio 2010 на Visual Basic? - Visual Basic
Кто пишет программы в Visual Studio 2010 на Visual Basic?

Проблема с установкой Visual Studio вообще и Visual Basic - Visual Basic
Точнее, с установкой Visual Studio вообще и Visual Basic в частности. В самом конце установки, при setup is updating your system,...


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

Или воспользуйтесь поиском по форуму:
220
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru