|
Пример 1
VB5.0
|
Печатает в поле прописью
сумму, набранную цифрами в другом поле.
Задачка встречается при создании
бухгалтерских программ. В приведенном
конкретном исходнике сумма цифрами
вводится в Text7. После ухода из этого поля
по клавише Tab в Text4 появляется сумма
прописью. Сумма может вводится в виде:
1457= или 1457-40 |
Пример 2
VBA |
Та же программка, с
небольшими изменениями, успешно
работает в VBA в среде приложения Excel 97.
Там удобнее ее использовать не как
макрос, а как новую функцию Converter, тогда
данные будут изменяться автоматически,
без вызова макроса вручную. Изменением
типа данных в ячейке можно разрешать или
запрещать вывод копеек в конкретную
ячейку, без изменения программки. В этом
варианте сумма может вводиться в виде 1457
или 1457,40 |
Пример 3
VB5.0 |
Перекодировкa текста DOS
(866 кодовая таблица) в Windows (1251). Код можно
вставить в любую программу для
просмотра текстового файла DOS в NotePad. |
Пример 4
VB5.0 |
Пример изъятия из
текстового файла DOS нужных фрагментов и
преобразования их в таблицу базы данных
MS Access. Задачка часто встречается при
использовании текстовых отчетов,
созданных в DOS в качестве входных
документов для приложения на VB. В этом
примере кода входной файл, считываемый с
дисковода A, представляет собой набор
столбцов немного плавающих по ширине и
содержащих цифровые значения. В
отдельных строках располагаются
названия объектов, которым
соответствуют считываемые значения. |
Пример 5
VB5.0 |
Простенький пример
печати бланка отчета без применения Crystal
Report. Такой способ вывода на печать более
трудоемок, но зато результат в меньшей
степени зависит от марки принтера. Mожно
использовать даже Epson FX-1000, который
обычно не справляется с текстами Word 97,
если применены таблицы или иные
графические элементы. |
Пример 6
VB5.0 |
Еще один пример печати
отчета без применения Crystal Report.
Интересен тем, что во втором столбце
печатаемой таблицы могут быть длинные
строки, в которых надо переносить слова
не разрезая, но нумерация в первом
столбце должна появляться один раз.
Поскольку отчеты могут быть различны по
объему, организована постраничная
печать с ориентацией на количество
строк, выдаваемых не лучшим принтером. В
отличие от предыдущего примера здесь
применены относительные координаты
позиций печати. Тема печати отчетов
заслуживает внимания и в ближайшем
будущем я подробнee остановлюсь на
проблемах печати в отдельной статье. |
Пример 7
VB5.0 |
Пример запроса SQL для
вывода некоторых полей таблицы базы
данных MS Access в DBGrid, по параметру,
выбираемому в DBCombo. |
Пример 8
VB3.0-VB5.0 |
Функция Delimit(No,Text,Delimiters)
делит Text на элементы, разделенные
строкой символов Delimiters (которая может
быть любой длины). Если параметр No=0,
функцией возвращается количество
элементов (Integer), при других значениях -
получившаяся строка, отделенная первым
встретившимся элементом Delimiters (String).
Здесь же некоторые примеры
использования функции. |
Пример 9
VB3.0-VB5.0 |
Функция Separate делает
примерно тоже, но есть несколько отличий:
1. При любом No возвращается String
2. Разделитель всегда состоит из одного
символа, но их может быть несколько,
например если Delimiters=",;-/", то в
качестве разделителей будет принят
любой из символов ",", ";",
"-", "/" (в Delimit разделителем была
бы строка ",;-/"). |
Пример
10
VB3.0-VB5.0 |
Функция fmtCurrency
преобразовывает число к денежному
формату: разделитель - точка, два знака
после точки. |
Пример
11
VB3.0-VB5.0 |
Этот кирпичик
аналогичен Кирпичику 1. Впрочем, у него
есть более красивое решение.
Функция IntTxt печатает в поле прописью
сумму, набранную цифрами в другом поле
без названия денежных единиц.
Используется совместно с кирпичиком 12. |
Пример
12
VB3.0-VB5.0 |
Функция LetterSum является
дополнением к примеру 11. Печатает
названия денежных единиц. |
Пример
13
VB3.0-VB5.0 |
Функция HyphText, решающая
задачу размещения многострочного
текста в PictureBox с организацией переноса
слов. |
Пример
14
VB5.0 |
Еще один вариант
процедуры "Сумма - прописью".
Изящное и компактное решение - красивая
работа ! |
Пример
15
VB5.0 |
Выводит список шрифтов,
доступных объекту Printer на вашей машине. |
Пример
16
VB5.0 |
Операции с файлами.
Простые процедуры, которые могут быть
полезны начинающим. |
Пример
17
VB5.0 |
Модифицированная и
подправленная процедура печати отчета
из DBGrid (как ей пользоваться - см. статью о
печати отчетов). Добавлен перенос слов в
длинной строке. Добавлены более-менее
приличные комментарии. По-видимому
изменения будут продолжаться, поскольку
подобные задачки постоянно встречаются
мне в работе. |
Пример
18
VB5.0 |
Процедура, решающая
очень актуальную при выводе отчетов на
принтер задачу. Определяет границы
недоступных для печати зон по краям
листа. |
Пример
19
VB5.0 |
Пример отправки почты из
VB-приложения без привлечения почтовых
программ. |
Пример
20
VB5.0 |
Пример отправки почты с
аттачментом из VB-приложения без
привлечения почтовых программ. |
Пример
21
VB5.0 |
Модифицированная и
подправленная процедура печати отчета
из MSFlexGrid (как ей пользоваться - см. статью
о печати отчетов). |
Пример
22
VB5-6 |
Модуль, содержащий
функции для работы с треем. |
