Форум программистов, компьютерный форум, киберфорум
The trick
Войти
Регистрация
Восстановить пароль
Старый
Многострочность стандартного тултипа (VB6)
Запись от The trick размещена 21.12.2013 в 23:12

Стандартный тултип (свойство ToolTipText контролов) не поддерживает многострочный текст и весь текст выводит в одну...
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 578
Размер:	59.7 Кб
ID:	1907  
Вложения
Тип файла: rar MultilineTooltip.rar (16.0 Кб, 220 просмотров)
Модератор
Размещено в Без категории
Показов 5497 Комментарии 0 The trick вне форума
Старый
Обмен параметров
Запись от The trick размещена 17.12.2013 в 21:41

https://www.cyberforum.ru/visu... ost4687543
Модератор
Размещено в Без категории
Показов 1587 Комментарии 0 The trick вне форума
Старый
Задан массив. Определить, входит ли в него последовательность
Запись от The trick размещена 16.12.2013 в 19:24

Visual Basic
1
2
3
4
5
6
Option Explicit
 
Private Sub Form_Load()
    Dim A() As Long, P() As Long
    Dim N As Long, Z As Long
    ReDim A(99)                     ' Массив
...
Модератор
Размещено в Без категории
Показов 1680 Комментарии 0 The trick вне форума
Старый
Рейтинг: 5.00. Голосов: 1.
Обмен данными между своими прогами через WM_COPYDATA
Запись от The trick размещена 16.12.2013 в 19:22

Как в приложенном проекте, если запустить две копии приложения, можно устанавливать переменную mRadius в другом приложении.
Модуль:
Visual Basic
1
2
Option Explicit
Private Type COPYDATASTRUCT
...
Модератор
Размещено в Без категории
Показов 1929 Комментарии 0 The trick вне форума
Старый
Семисегментные часы
Запись от The trick размещена 16.12.2013 в 17:50

Visual Basic
1
2
3
4
5
' © Кривоус Анатолий Анатольевич (The trick), 2013
Dim SegData(9) As Byte
Private Sub Form_Load()
    SegData(0) = &H7E '0
    SegData(1) = &H30
...
Модератор
Размещено в Без категории
Показов 1518 Комментарии 0 The trick вне форума
Старый
Как найти все окна в виде дерева
Запись от The trick размещена 16.12.2013 в 17:45
Обновил(-а) The trick 16.12.2013 в 17:46

Модуль
Visual Basic
1
2
3
4
' © Кривоус Анатолий Анатольевич (The trick), 2013
Option Explicit
 
Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId As Long,
...
Модератор
Размещено в Без категории
Показов 1946 Комментарии 0 The trick вне форума
Старый
Кликер
Запись от The trick размещена 16.12.2013 в 17:41

Модуль:
Visual Basic
1
2
3
4
5
6
7
 ' © Кривоус Анатолий Анатольевич (The trick), 2013
Option Explicit
 
Public Type POINT
    X As Long
    Y As Long
End
...
Модератор
Размещено в Без категории
Показов 2482 Комментарии 0 The trick вне форума
Старый
Рейтинг: 5.00. Голосов: 1.
LoadPictureEx
Запись от The trick размещена 16.12.2013 в 17:39
Обновил(-а) The trick 16.12.2013 в 17:41

Visual Basic
1
2
3
4
5
6
7
 ' © Кривоус Анатолий Анатольевич (The trick), 2013
Option Explicit
 
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As
...
Модератор
Размещено в Без категории
Показов 2580 Комментарии 0 The trick вне форума
Старый
Крестики-нолики
Запись от The trick размещена 12.12.2013 в 01:59
Обновил(-а) The trick 26.06.2015 в 22:38

Visual Basic
1
2
3
4
5
6
Option Explicit
 
' Крестики-нолики
' © Кривоус Анатолий Анатольевич (The trick), 2013
 
Dim i As Long, j As Long, r As Long,
...
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 433
Размер:	13.3 Кб
ID:	1893  
Вложения
Тип файла: rar TicTacToe.rar (7.8 Кб, 88 просмотров)
Модератор
Размещено в Без категории
Показов 2120 Комментарии 0 The trick вне форума
Старый
InputBox для ввода пароля.
Запись от The trick размещена 28.11.2013 в 23:51

Visual Basic
1
2
3
Option Explicit
 
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal
...
Вложения
Тип файла: rar SubclassInputBox.rar (1.3 Кб, 168 просмотров)
Модератор
Размещено в Без категории
Показов 2348 Комментарии 0 The trick вне форума
Старый
Рейтинг: 5.00. Голосов: 1.
4d гиперкуб (тессеракт)
Запись от The trick размещена 19.11.2013 в 02:44

У меня всегда вызывали интерес четырехмерные фигуры, и вообще многомерные пространства. Решил написать небольшую...
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 528
Размер:	19.0 Кб
ID:	1878  
Вложения
Тип файла: rar Tesseract.rar (15.8 Кб, 241 просмотров)
Модератор
Размещено в Без категории
Показов 3782 Комментарии 0 The trick вне форума
Старый
Модуль с расширенными математическими функциями для вещественных и комплексных чисел
Запись от The trick размещена 17.11.2013 в 00:45
Обновил(-а) The trick 22.02.2015 в 13:39

Visual Basic
1
2
'+=====================================================================================================================================+
'|
...
Вложения
Тип файла: rar MathModule.rar (4.6 Кб, 76 просмотров)
Модератор
Размещено в Без категории
Показов 2064 Комментарии 0 The trick вне форума
Старый
Рейтинг: 5.00. Голосов: 1.
Класс для копирования в отдельном потоке с отображением прогресса
Запись от The trick размещена 17.11.2013 в 00:21
Обновил(-а) The trick 29.01.2014 в 01:08

Бывает ситуация, когда нужно скопировать большой файл(ы), при этом стандартная ф-ция FileCopy вешает всю программу...
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 449
Размер:	23.4 Кб
ID:	1876  
Вложения
Тип файла: rar CopyProgress.rar (12.2 Кб, 202 просмотров)
Модератор
Размещено в Без категории
Показов 3708 Комментарии 0 The trick вне форума
Старый
Рейтинг: 5.00. Голосов: 1.
Подмена методов (свойств) класса
Запись от The trick размещена 14.11.2013 в 23:42
Обновил(-а) The trick 14.11.2013 в 23:48

Подмена метода класса, на свою или чужую функцию.
Класс:
Visual Basic
1
2
Private Declare Function GetMem4 Lib "msvbvm60" (pSrc As Any, pDst As Any) As Long
Private Const ICallNumber As Long = 0
...
Вложения
Тип файла: rar ICall.rar (2.1 Кб, 136 просмотров)
Модератор
Размещено в Без категории
Показов 2007 Комментарии 0 The trick вне форума
Старый
Рейтинг: 5.00. Голосов: 2.
Выбор директорий
Запись от The trick размещена 08.11.2013 в 11:40
Обновил(-а) The trick 08.11.2013 в 12:10

Выбор директорий как в GetOpenFileName.
Visual Basic
1
2
3
4
5
6
7
Option Explicit
 
Private Const MAX_PATH = 260
 
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner
...
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 511
Размер:	35.5 Кб
ID:	1863  
Вложения
Тип файла: rar GetOpenFileName.rar (3.1 Кб, 172 просмотров)
Модератор
Размещено в Без категории
Показов 3155 Комментарии 3 The trick вне форума
Старый
Рейтинг: 5.00. Голосов: 1.
Сохранение картинки в байтовый массив в формате jpeg, не используя файловые операции.
Запись от The trick размещена 03.11.2013 в 12:38
Обновил(-а) The trick 03.09.2014 в 00:24

Может пригодится например для передачи или упаковки.
Навеяно Как передать скриншот (принтскрин) по TCP ?
Также можно сделать и сохранение в другие форматы...
Модератор
Размещено в Без категории
Показов 3051 Комментарии 0 The trick вне форума
Старый
Воспроизведение GIF анимаций
Запись от The trick размещена 03.11.2013 в 11:49

Модуль для воспроизведения GIF анимаций в любом окне. https://www.cyberforum.ru/visu... ost5277366
Модератор
Размещено в Без категории
Показов 1689 Комментарии 0 The trick вне форума
Старый
Синус через ряд Тейлора (рекурсивно)
Запись от The trick размещена 26.10.2013 в 15:39
Обновил(-а) The trick 03.11.2013 в 12:42

Visual Basic
1
2
3
4
5
Private Sub Form_Load()
    Debug.Print tSin(1.5)
    Debug.Print Sin(1.5)
End Sub
Private Function tSin(ByVal X As Single, Optional ByVal Iter As Long = 5) As Single
...
Модератор
Размещено в Без категории
Показов 1460 Комментарии 0 The trick вне форума
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.