Microsoft Access. Рисование объектов в форме

Содержимое баз данных (БД) хранится в таблицах, но пользователю информация традиционно представляется в больше комфортном виде – создаются формы и отчеты. Для наглядности в них включаются разные изображения: фотографии, картинки, эмблемы. Графические данные комфортнее беречь в особых полях таблиц. СУБД Microsoft Access поддерживает несколько вариантов загрузки изображений в базу данных.

Вам понадобится

• – СУБД Microsoft Access;
• – графический файл, содержащий картинку.

Инструкция

1. Добавьте поле объекта OLE в таблицу базы данных. Именно в данном поле приложение Microsoft Access может беречь изображения. Откройте надобную БД и в закладке «Таблицы» выделите тот элемент, в тот, что вы хотите разместить изображение. Вызовите конструктор для таблицы. Редактируя ее конструкцию, добавьте еще одно поле с типом данных «Поле объекта OLE». Задайте ему имя и сбережете метаморфозы базы («Файл» – «Сберечь»).

2. Разместите в сделанную ячейку поля OLE-объект, т.е. саму картинку . Для этого откройте таблицу в режиме просмотра. Вы увидите добавленный столбец. Установите курсор в требуемой ячейке и щелчком правой кнопкой мыши вызовите контекстное меню. Выберите команду «Добавить объект».

3. В открывшемся диалоговом окне активируйте один из предложенных вариантов добавления. Дозволено вставить теснее присутствующий графический файл либо сотворить его вначале в соответствующем редакторе и после этого связать с нынешней базой данных. В первом случае выберите в поле «Тип объекта» приложение, в котором вы хотите сделать новое изображение, скажем, «Рисунок Paintbrush». Нажмите кнопку Ок, единовременно запустится программа-редактор. Внедрение объекта в базу данных закончится позже того, как вы, сделав картинку , закроете графическое приложение.

4. Для вставки в табличное поле теснее присутствующей картинки выберите 2-й вариант – активируйте в диалоговом окне переключатель «Сотворить из файла». Нажмите на кнопку «Обзор…» и укажите путь и имя графического файла с изображением. Желанно на диске иметь картинку в формате.bmp либо.dib. По необходимости включите в окне флажок «Связь» – это дозволит СУБД отслеживать метаморфозы графического файла и перезагружать изображение в таблице.

5. Удостоверите загрузку файла, нажав кнопку Ок, после этого сбережете саму базу данных. При открытии таблицы в режиме просмотра в поле объекта OLE будет отображаться не сама картинка, а надпись «Точечный рисунок». Графическое изображение будет загружаться из таблицы при создании и работе пользователя с формами и отчетами.

Язык html не идеален и имеет ряд значительных недостатков. Для того дабы привязать картинку к определенному месту страницы, класснее для этого вставить ее при помощи таблицы. В этом случае изображение будет считаться фоном и поверх его дозволено разместить текст.

Инструкция

1. Изначально нужно сделать таблицу, если ее еще нет. Это действие совершается в признаке

. Для этого применяются теги (закрывающий тег непременен): – таблица; – строка;

Обратите внимание!
Это урок о том, как вставить картинку в HTML, как её оформить, как сделать обтекание картинки текстом и т.д. Чай знаменито, что изображения делают сайт больше симпатичным и хорошим от других источников, следственно знание применять тег «IMG» и его признаки крайне сгодится в современном Интернете. Но, основное здесь - чувство меры! Переизбыток графики вызовет утяжеление html-страницы и, соответственно, увеличит время её загрузки.

Полезный совет
Если эта область будет не соответствовать реальному размеру картинки, которую вы хотите вставить, то рисунок будет соответственно растянут либо сужен, до заданного в html теге Img размера. Тем не менее, не следует применять это метод, скажем, для уменьшения размера вставляемого в Html документ рисунка. Отменнее заблаговременно изменить размер картинки в графическом редакторе, а теснее после этого вставлять картинки в Html документ через всякий комфортный вам Html редактор кода.

Программа MS Access дюже комфортна в работе, от того что имеет примитивный пользовательский интерфейс. Также есть вероятность не легко хранения значимой информации, но и обработки данных, в том числе создание форм, отчетов, разных диаграмм.

Вам понадобится

• – компьютер;
• – программа MS Access.

Инструкция

1. Запустите программу Access и через меню в закладке «Файл» нажмите на «Сотворить». После этого выберите «База данных» и нажмите OK. Появится окно, в котором вам надобно будет указать наименование базы данных либо согласиться с предложенным db1, а также нужно будет предпочесть место хранения базы.

2. Позже создания базы появится окно с функциями для последующей работы. Слева находятся колонка с перечнем разделов. Пункт «Таблицы» должен быть выделен по умолчанию. Справа от колонки находится перечень вариантов для создания таблиц базы: «Создание таблицы в режиме конструктора», «Создание таблицы с подмогой мастера», «Создание таблицы путем ввода данных».

3. Кликните на «Создание таблицы в режиме конструктора» для создания новой таблицы в базе данных. На экране появится новое окно с сеткой в его верхней части для ввода параметров таблицы: поля, тип полей и изложение. В нижней части окна возникают свойства всякого нового поля.

4. Сделайте таблицу с четырьмя полями:1. Код. Тип поля – числовой. 2. Фамилия. Тип поля – текстовый.3. Имя. Тип поля – текстовый4. Телефон. Тип поля – текстовый.Выделите первое поле и, щелкнув правой кнопкой мышки, выберите пункт «Ключевое поле». Закройте и сбережете сделанную таблицу под комфортным для вас наименованием, скажем «Шпион». Откройте сделанную таблицу и введите данные двоих шпионов.

5. Сделайте еще одну таблицу с тремя полями:1. Должность. Тип поля – текстовый.2. Заработная плата. Тип поля – денежный. Закройте и сбережете сделанную таблицу под наименованием, скажем «Работник». Откройте сделанную таблицу и введите данные на двоих работников.

6. Нажмите на закладку «Запросы», а после этого на «Создание запроса в режиме конструктора». Откроется окно с перечнем, сделанных в программе таблиц. Выберите обе теснее сделанные таблицы. В нижней части бланка запроса в первом столбце выберите поле «Коллега.Фамилия», а во втором столбце – «Организация.Должность». Закройте и сбережете бланк запроса «Должность работника». Если открыть данный запрос, то вы увидите только два столбца «Фамилия» и «Должность». Тут будет отображаться только волнующая информация, какую должность занимает определенный работник.

7. Для комфорта заполнения базы данных нажмите на закладку «Форма», а после этого «Сотворить форму с поддержкой мастера». В открывшемся окне выберите таблицу «Шпион», а после этого из окна «Доступные поля», применяя кнопку со стрелочкой, переместите в окно «Выбранные поля» поля «Фамилия», «Имя», «Телефон». Нажмите кнопку «Дальше» и выберите комфортный формат формы, скажем, «Ленточный». Нажмите кнопку «Дальше» и выберите требуемый жанр, скажем, «Типовой». Нажмите кнопку «Дальше» и назовите форму «Шпион». Нажмите кнопку «Готово». Появится форма с двумя полями, в которых теснее есть информация о 2-х агентах. Ниже расположено пустое поле, в которое дозволено вводить информацию о третьем агенте и так дальше.

8. В окне базы данных выделите «Отчеты» и нажмите на закладку «Создание отчета с поддержкой мастера». В открывшемся окне выберите запрос «Должность работника». Из левого окна перенесите в правое поля «Фамилия» и «Должность», нажмите кнопку «Дальше», а после этого кнопку «Готово». На экране появится бланк отчета с информацией из выбранного запроса. Функция отчета дает вероятность выбирать необходимую информацию из базы данных для больше комфортного воспринятия. Также отчеты дозволено выводить на печать.

9. Макросы разрешают автоматизировать действия над объектами базы данных. Щелкните на закладку «Макросы», а после этого на кнопку «Сделать». Откроется окно конструктора. Из выпадающего списка выберите макрокоманду «ОткрытьЗапрос», а потом выберите имя запроса «Должность работника». Закройте окно и сбережете сделанный макрос. Щелкните мышкой двукратно на сделанный макрос и откроется запрос «Должность работника».

Осуществлять разные манипуляции с изображением дозволяют многие офисные приложения, даже текстовый процессор Microsoft Word. Впрочем отменнее применять для этого графический редактор – в нем огромнее вероятностей метаморфозы картинки, а интерфейс рассчитан на работу именно с графикой и следственно не перегружен лишними функциями. В операционной системе Windows такая программа – MS Paint – устанавливается по умолчанию.

Вам понадобится

• Графический редактор MS Paint.

Инструкция

1. Запустите графический редактор. В ОС Windows 7 либо Vista для этого дозволено нажать клавишу Win, набрать на клавиатуре paint и нажать Enter. В Windows XP придется искать ссылку на запуск приложения в подразделе «Типовые» раздела «Все программы» основного меню системы.

2. Загрузите в графический редактор начальную картинку . Для этого предуготовлен диалог, вызываемый сочетанием клавиш Ctrl+O либо выбором в меню приложения команды «Открыть».

3. Включите инструмент «Текст» – кликните по иконке с изображением буквы «А» в сегменты «Инструменты» на вкладке «Основная». Щелкните мышкой по тому месту картинки, где должна быть первая буква создаваемой надписи, и на изображении появится пунктирная рамка с мигающим курсором ввода внутри. Paint добавит в меню еще одну вкладку с инструментами – «Текст».

4. Наберите текст надписи. Если она теснее сделана в каком-нибудь текстовом редакторе либо скопирована из иного документа, взамен ручного комплекта дозволено применять кнопку «Вставить» на вкладке «Текст» либо сочетание клавиш Ctrl+V. Когда вводимый текст перестанет умещаться в ширину рамки, редактор перенесет слова на следующую строку. Вы можете менять ширину колонки с текстом, перетаскивая узловые точки на пунктирной рамке.

5. Если нужно изменить цвет, размер, начертание букв надписи, выделите ее всецело либо только необходимый фрагмент и воспользуйтесь руководящими элементами из сегментов «Шрифт», «Фон» и «Цвета» в меню графического редактора. Позже этих изменений отрегулируйте окончательно расположение текста касательно изображения с поддержкой узловых точек на рамке вокруг надписи.

6. Кликните по изображению за пределами рамки, дабы отключить режим редактирования текста и сбережете картинку с надписью – соответствующий диалог вызывается выбором пунктов «Сберечь» либо «Сберечь как» в меню Paint.

Знаменитый табличный редактор MS Excel владеет широкими вероятностями. С поддержкой этой программы дозволено создавать разные каталоги, списки, вести контроль, готовить материалы для презентаций. При этом оформление таблиц может быть крайне многообразным, в частности, дозволено вставлять в них картинки.

Вам понадобится

• – программа Excel, установленная на компьютере;
• – подходящее изображение.

Инструкция

1. Запустите приложение Excel и откройте таблицу , в которую требуется вставить картинку . Выделите необходимую ячейку таблицы, куда должно быть размещено изображение. Перейдите ко вкладке «Вставка». Если надобная картинка находится среди файлов на вашем компьютере, выберите пункты «Рисунок» ? «Из файла».

2. Появится окошко со списком директорий вашего компьютера, а также с уменьшенными картинками, которые хранятся на компьютере. Выберите надобное изображение, переместите на него курсор. Зажмите левую кнопку мыши и перетащите картинку в выбранную ячейку таблицы.

3. Если перетаскивать изображение вам неудобно, скопируйте подходящую картинку . Щелкните по картинке правой кнопкой мыши. Из вывалившегося меню выберите опцию «Копировать». Изображение будет скопировано в буфер обмена. Переместите курсор в то место таблицы, куда нужно вставить картинку и нажмите на правую кнопку мыши. Нажмите кнопку «Вставить». Картинка из буфера обмена вставится в выбранную вами ячейку таблицы.

4. Вставьте в таблицу изображение из приложения MS Clip Gallery. Для этого выделите ячейку для добавления изображения. В меню документа «Вставка» выберите пункты «Рисунок» ? «Картинки». Нажмите кнопку «Обнаружить». В появившемся окошке со списком картинок выберите подходящую и нажмите на нее два раза. Картинка появится в необходимом месте таблицы.

5. Измените размеры вставленного изображения, дабы оно подходило к таблице. Кликните мышкой по картинке - вокруг появится рамка из кружочков. Нажмите на средние кружки, дабы изменить горизонтальный и/или вертикальный размер. Либо нажмите на кружки в углах рамки для одновременного метаморфозы и горизонтального, и вертикального размера изображения.

6. Если нужно изменить местоположение картинки внутри таблицы, нажмите на рисунок левой кнопкой мыши и зажмите кнопку. Перетащите картинку в необходимое место документа. При желании удалить изображение кликните по нему и нажмите клавишу Del. Непотребная картинка будет удалена.

Свойство Picture (Рисунок) позволяет определить точечный рисунок или изображение другого типа для кнопки, элемента управления "Изображение", выключателя, страницы в наборе вкладок или фона формы либо отчета. Возвращает доступное для чтения и записи значение типа String .

выражение .Picture

выражение (обязательно). Выражение, возвращающее один из объектов из списка "Применение".

Замечания

Свойство Pi cture содержит значение "(точечный рисунок)" или путь и имя файла точечного рисунка либо изображения другого типа, которые требуется отобразить.

Это свойство можно задать следующими способами:

На странице свойств. Нажмите кнопку Построить , которая находится справа от поля свойства (для кнопок и выключателей). Если из списка Имеющиеся рисунки выбрать один из файлов точечных рисунков, значением свойства будет "(точечный рисунок)".

С помощью макроса.

С помощью кода Visual Basic для приложений (VBA). Вы можете использовать строковое выражение, включающее путь и имя рисунка, как показано в следующем примере:

btnShowLogo.Picture = "C:\Windows\Winlogo.bmp"

С помощью команды Изображение в группе Элементы и поля на вкладке Конструктор в режиме конструктора (для изображений или фоновых рисунков форм и отчетов), которая позволяет выбрать точечный рисунок или изображение другого типа.

По умолчанию для данного свойства задается значение "(отсутствует)". После загрузки рисунка в объект данному свойству присваивается значение "(точечный рисунок)" или путь и имя файла изображения. Удаление значения "(точечный рисунок)" или пути и имени файла рисунка из ячейки свойства приводит к удалению рисунка из объекта. Свойство при этом снова получает значение "(отсутствует)".

Если для свойства PictureType (Тип рисунка) задано значение "Внедренный", рисунок будет сохранен вместе с объектом.

Вы можете создавать точечные рисунки в Microsoft Paintbrush или других приложениях, поддерживающих эту возможность. Файл рисунка должен иметь расширение BMP, ICO или DIB. Также допустимо использование файлов в форматах WMF и EMF и любых других форматах, для которых имеется графический фильтр. В формах, отчетах и в элементах управления "Изображение" поддерживаются все графические объекты. Для кнопок и переключателей поддерживаются только точечные рисунки.

На кнопках могут отображаться или подписи, или рисунки. Если кнопке назначить и то, и другое, будет виден только рисунок, но не подпись. При удалении рисунка подпись становится видимой. Microsoft Office Access 2007 отображает рисунок по центру кнопки и обрезает его, если он больше, чем кнопка.

Совет

Чтобы создать кнопку или выключатель с подписью и рисунком, вы может добавить подпись на точечный рисунок и назначить его свойству Picture элемента управления.

Пример

В следующем примере фоновый рисунок "Logo.gif" задается для отчета "Purchase Order".

Reports("Purchase Order").Picture = _
"C:\Picture Files\Logo.gif"

В Access 2010 имеется возможность добавлять объекты в поле с типом данных OLE . В том случае, когда тип данных задан, как OLE (Object Linking and Embedding – связывание и внедрение объекта), тогда СУБД Access сохраняет внешний объект в общем файле базы данных, отводя на его хранение столько места, сколько этот объект занимает в виде отдельного файла. Под объектами следует понимать файлы, созданные в виде приложений в графических редакторах, видеоклипов, в приложениях MS Office и т.д. При заполнении таблицы данными, которые являются объектами, в соответствующей позиции поля с типом данных OLE формируется сообщение о программе, с помощью которой можно открыть этот объект. Отображение объекта будет осуществляться только в формах и отчетах.

Для встраивания объекта в поле с типом данных OLE необходимо открыть таблицу в режиме «Конструктор». Добавить новое поле, например «Фото товара». Выбрать тип данных «Поле объекта OLE» , после чего сохранить таблицу.

Затем в режиме «Таблица» в строке для ввода данных щелкнуть правой клавишей мыши, в открывшемся меню следует выбрать строку с командой , что приведет к открытию диалогового окна (рис. 3.38, рис. 3.39).

Рис. 3.38 Вставка объекта

Рис. 3.39 Диалоговое окно для добавления нового объекта в таблицу Access

Следует помнить, что имеется две возможности встраивать объекты в виде данных. Первая возможность предусматривает использование типовых приложений для создания файла, которые поддерживает Access, вторая возможность вставки объекта , что позволяет использовать любой файл в качестве источника данных (рис. 3.40).

Рис. 3.40 Добавления нового объекта в таблицу Access из файла

1. Создание объекта из файла.

Когда речь заходит о данных, которые являются объектами для базы данных, и являются внешними файлами, то требуется иметь эти файлы. Поэтому, потребуется создать несколько файлов, чтобы в дальнейшем увидеть их отображение в базе данных, а также попробовать провести изменение этих файлов. Например, если вы имеете фотографию объекта в файле Монитор.jpg (jpg - универсальный фото формат). Для того чтобы этот файл сохранился в базе данных, следует в окне (рис. 3.40) поставить отметку «Создать из файла» , после чего появится окно, которое представлено на рисунке 3.41. С помощью кнопки «Обзор» следует выбрать необходимый файл.

Рис. 3.41 Поиск файла при создании объекта в базе данных

В соответствующей строке для поля например, «Фото товара» появится слово «Пакет» (Package) , это означает, что файл привязан к приложению, с помощью которого он был создан. Поэтому, при просмотре базы данных, будет ли это запрос, форма или отчет, пользователь увидит изображение файла в виде значка , а при двойном щелчке по этому изображению система сначала найдет приложение, а затем в нем отобразит содержимое файла (в данном примере это фотография). Исключением являются файлы с изображениями, сохраненные с расширением .bmp (bit map format). Вместе с тем, следует напомнить, что файлы, созданные в приложениях Microsoft, будут отображаться сразу в формах и отчетах. Вывод простой, фотографии можно вставлять в такие приложения как Paint, Word, Power Point, сохранять в виде отдельных файлов, а затем подключать в виде объекта к базе данных. Попробуйте создать несколько файлов с фотографиями и текстом, используя различные редакторы Windows. Например, можно открыть документ Word, вставить из файла фотографию, добавить текст, а затем сохранить как: Монитор.docx (рис. 3.42).

Рис. 3.42 Файл с фотографией, созданный в Word

2. Создание новых объектов.

Под созданием новых объектов в базе данных следует подразумевать использование приложения, в котором создается файл, а затем подключается в поле с описанием типа данного OLE. Для запуска режима создания новых объектов, необходимо открыть таблицу в режиме «Таблица» , выбрать вариант «Создать новый» в диалоговом окне (рис. 3.39), а затем в списке выделить «Тип объекта» (необходимое приложение). Перечень приложений, которые поддерживает Access для создания объекта, находятся в списке (рис. 3.43), который раскроется после запуска команды «Вставить объект» .

Рис. 3.43 Перечень типов объектов Access, которые можно использовать для создания файлов

Удобством использования приложений для создания объектов в виде файлов заключается в том, что в дальнейшем эти файлы можно использовать автономно или осуществлять их коррекцию в базе данных.

Рассмотрим вариант создания объектов для базы данных, с помощью с приложения paint.

Например, необходимо создать объект с изображением предприятия и текстом, который в дальнейшем пользователь базы данных сможет заменить или исправить. Для этого необходимо выбрать из списка объект Bitmap Image , дальнейшая технология создания объекта показана на рисунке 3.44.

1. Откройте приложение Paint

2. Вставьте фото из файла.

3. Добавьте текст (если это необходимо).

4. Сохраните, как файл.

5. Закройте приложение.

Рис. 3.44 Технология создания объекта в приложении Paint

Задание3.11

1. В таблице «Товары » в режиме «Конструктор» добавьте новый столбец с именем «Фото товара» , тип данных «Поле объекта OLE» , сохраните изменения.

2. В режиме «Таблица» в поле «Фото товара» выберете строку «Вставить объект из файла» , выберите (поставьте точку) «Создать новый» и из раскрывающегося списка укажите документ Microsoft Word . При этом откроется текстовый редактор MS Word , здесь необходимо вставить рисунок, соответствующий товару в данной строке. Рисунки выберите из списка, который хранится непосредственно в редакторе (вкладка «Вставка», значок «Картинка», в диалоговом окне справа кнопка «Начать»), или вставьте рисунок из других программ. Можете использовать приложение Paint (объект Bitmap Image), где нарисуйте товар самостоятельно. Созданный файл закройте, он автоматически будет привязан к вашей базе, к строке, в которую ее вставили.

3. Проделайте данную процедуру для всех строк вашей таблицы «Товары» .

4. Сохраните изменения.

Контрольные вопросы

1. Какие объекты можно вставить в базу данных с типом данных OLE?

2. Как можно вставить фото в таблицу в режиме «Таблица»?

3. Где в базе данных будет отображаться фотография?

4. Чем отличается способ «Создать новый объект» от способа «Создать из файла»?

5. Как поместить файл фотографии товара в базу данных, если он имеет расширение .png ?

6. Можно ли осуществлять правку файла, который вставлен как объект в базу данных непосредственно в файловой системе компьютера?

7. Как вставить презентацию в базу данных?

8. Объекты каких приложений можно вставить в базу данных?

02. Данный способ позволяет вам нарисовать некоторые объекты в форме, хотя в программе Международный Туризм использовался другой алгоритм для рисования карты. Этот способ может Вам пригодится в некоторых случаях. Рисуются линии, точки, элипсы, многоугольники, т.е. те базовые объекты, которые применяются в api интерфейсе.

– колонка.Основные добавочные признаки: Border – граница; Align – выравнивание по горизонтали; Valign – выравнивание по вертикали; Bordercolor – цвет рамки; Width – ширина; Height – высота.Синтаксис таблицы 2X2 без рамки и левосторонним/правосторонним выравниванием содержимого: Содержимое 1-й ячейки Содержимое 2-й ячейки Содержимое 3-й ячейки Содержимое 4-й ячейки 2. Картинку надобно прописывать позже тега

. Если вставить изображение в первую ячейку таблицы, представленной выше, то получится: Содержимое 2-й ячейки Содержимое 3-й ячейки Содержимое 4-й ячейки Добавочные признаки: Width – ширина; Height – высота; Alt – альтернативный текст, тот, что будет отображаться у пользователя, если у него отключена функция просмотра картинок; Align – выравнивание по горизонтали; Valign – выравнивание по вертикали; Title – подпись к изображению. 3. Применять изображение дозволено в качестве ссылки. Для этого его довольно облачить в соответствующий тег: В контексте таблицы это будет выглядеть так: Содержимое 2-й ячейки Содержимое 3-й ячейки Содержимое 4-й ячейки 4. Добавочные вероятности изображений. 1. Смена картинки на цвет при наведении на нее мышью и позже смены местоположения курсора:onMouseOver=”this.style.background=’#номер цвета"” onMouseOut=”this.style.background=’#номер цвета"”2. Смена картинки на другое изображение при наведении мышью:onmouseover=”this.src=’images/1.gif"” onmouseout=”this.src=’images/2.gif"”3. Вставка вращающейся карусели из картинок в ячейку таблицы (значения дозволено менять):

" Функция используется для поиска окна Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _ (ByVal hWndParent As Long , _ ByVal hWndChildAfter As Long , _ ByVal lpClassname As String , _ ByVal lpWindowName As String ) As Long " Функция возвращает контекст устройства для рисования Private Declare Function apiGetDC Lib "user32" Alias "GetDC" _ (ByVal hwnd As Long ) _ As Long " Функция освобождает контекст устройства для других приложений Private Declare Function apiReleaseDC Lib "user32" Alias "ReleaseDC" _ (ByVal hwnd As Long , _ ByVal hDc As Long ) _ As Long " Далеее идут, функции управляющие рисованием " Функция рисует точку на экране Private Declare Function apiSetPixel Lib "gdi32" Alias "SetPixel" _ (ByVal hDc As Long , _ ByVal x As Long , _ ByVal Y As Long , _ ByVal crColor As Long ) As Long " Функция рисует линию из текущей позиции "пера" до точки с координатами " x,y, но не включая ее саму. Линия рисуется с помощью выбранного "пера". Если " нет ошибки, то текущее положение пера устанавливается в точку с координатами " (x,y) Private Declare Function apiLineTo Lib "gdi32" Alias "LineTo" _ (ByVal hDc As Long , _ ByVal x As Integer , _ ByVal Y As Integer ) _ As Long " Функция рисует дугу элипса с помощью выбранного "пера". " Дуга рисуется против часовой стрелки. " (x1,y1 - x2,y2) ограничивающий прямоугольник для дуги. Private Declare Function apiArc Lib "gdi32" Alias "Arc" _ (ByVal hDc As Long , _ ByVal X1 As Integer , _ ByVal Y1 As Integer , _ ByVal X2 As Integer , _ ByVal Y2 As Integer , _ ByVal X3 As Integer , _ ByVal Y3 As Integer , _ ByVal X4 As Integer , _ ByVal Y4 As Integer ) _ As Long " Функция рисует прямоугольник с помощью выбранного "пера". " (x1,y1) - первый угол Private Declare Function apiRectangle Lib "gdi32" Alias "Rectangle" _ (ByVal hDc As Long , _ ByVal X1 As Long , _ ByVal Y1 As Long , _ ByVal X2 As Long , _ ByVal Y2 As Long ) As Long " Функция передвигает позицию рисования " (x,y) - новая точка " (lpPoint) - предыдущая точка Private Declare Function apiMoveTo Lib "gdi32" Alias "MoveToEx" _ (ByVal hDc As Long , _ ByVal x As Long , _ ByVal Y As Long , _ lpPoint As POINTAPI) As Long " Структура координаты точки Private Type POINTAPI x As Long Y As Long End Type " Функция рисует элипс с помощью выбранного "пера". " (x1,y1) - первый угол " (x2,y2) - противоположный угол Private Declare Function apiEllipse Lib "gdi32" Alias "Ellipse" _ (ByVal hDc As Long , _ ByVal X2 As Long , ByVal Y2 As Long ) As Long " lpPoint - массив точек " nCount - число точек Private Declare Function apiPolyline Lib "gdi32" Alias "Polyline" _ (ByVal hDc As Long , _ lpPoint As POINTAPI, _ " Функция рисует ломаную с помощью выбранного "пера" " lpPoint - массив точек " nCount - число точек Private Declare Function apiPolygon Lib "gdi32" Alias "Polygon" _ (ByVal hDc As Long , _ lpPoint As POINTAPI, _ ByVal nCount As Long ) As Long " (x3,y3) - начальная точка рисования "пером" " (x4,y4) - конечная точка рисования дуги Private Declare Function apiChord Lib "gdi32" Alias "Chord" _ (ByVal hDc As Long , _ ByVal X1 As Long , ByVal Y1 As Long , _ " Функция заливает круг с помощью выбранного "пера" " (x1,y1 - x2,y2) ограничивающий прямоугольник для дуги " (x3,y3) - начальная точка рисования "пером" " (x4,y4) - конечная точка рисования дуги Private Declare Function apiPie Lib "gdi32" Alias "Pie" _ (ByVal hDc As Long , _ ByVal X1 As Long , ByVal Y1 As Long , _ ByVal X2 As Long , ByVal Y2 As Long , _ ByVal X3 As Long , ByVal Y3 As Long , _ ByVal X4 As Long , ByVal Y4 As Long ) As Long "============================================================== " Назначение " Нарисовать объекты " Private Sub butExecute_Click() Dim hwnd As Long , hDc As Long "Окно и контекст рисования Dim X1 As Long , Y1 As Long , X2 As Long , Y2 As Long Dim xy(3) As POINTAPI "Точки рисования On Error GoTo 999 "Очистить зону рисования Me.Refresh DoEvents "Поиск окна для рисования. Это решение предложено "Николаем Малютиным г.Якутск: [email protected] hwnd = FindWindowEx(Me.hwnd, FindWindowEx(Me.hwnd, 0, "OFormSub" , "" ), "OFormSub" , "" ) "Выбираем контекст устройства hDc = apiGetDC(hwnd) "Координаты зоны рисования X1 = 15 Y1 = 90 X2 = 180 Y2 = 250 "Рисуем объекты Select Case Me.Объекты Case 1: "Точка - красная Call apiSetPixel(hDc, X2 / 2, Y2 / 2, RGB(255, 0, 0)) Case 2: "Линия Call apiMoveTo(hDc, X1, Y1, xy(0)) "Передвигаем указатель Call apiLineTo(hDc, X2, Y2) "Рисуем линию Case 3: "Элипс Call apiEllipse(hDc, X1, Y1, X2, Y2 / 2) Case 4: "Прямоугольник - закрашенный Call apiRectangle(hDc, X1, Y1, X2, Y2) Case 5: "Дуга Call apiArc(hDc, X1, Y1, X2, Y2, 50, 100, 150, 150) Case 6, 7: "Ломаная, Заливка " Загружаем координаты xy(0).x = X1 xy(0).Y = Y1 xy(1).x = X1 + 20 xy(1).Y = Y2 xy(2).x = X2 xy(2).Y = Y2 - 20 If Me.Объекты = 6 Then "Ломаная Call apiPolyline(hDc, xy(0), UBound(xy)) Else "Заливка Call apiPolygon(hDc, xy(0), UBound(xy)) End If Case 8: "Заливка круга до хорды Call apiChord(hDc, X1, Y1, X2, Y2, 50, 100, 150, 150) Case 9: "Заливка круга из центра Call apiPie(hDc, X1, Y1, X2, Y2, 50, 100, 150, 150) End Select "Освобождаем контекст устройства Call apiReleaseDC(hwnd, hDc) Exit Sub 999: MsgBox Err.Description "Ошибка Err.Clear End Sub Все примеры Microsoft Access

Инструкция

Добавьте поле объекта OLE в таблицу базы данных. Именно в данном поле приложение Microsoft Access может хранить изображения. Откройте нужную БД и в закладке «Таблицы» выделите тот элемент, в который вы хотите поместить изображение. Вызовите конструктор для таблицы. Редактируя ее структуру, добавьте еще одно поле с типом данных «Поле объекта OLE». Задайте ему имя и сохраните изменения базы («Файл» - «Сохранить»).

Поместите в созданную ячейку поля OLE-объект, т.е. саму картинку. Для этого откройте таблицу в режиме просмотра. Вы увидите добавленный столбец. Установите курсор в нужной ячейке и щелчком правой кнопкой мыши вызовите контекстное меню. Выберите команду «Добавить объект».

В открывшемся диалоговом окне активируйте один из предложенных вариантов добавления. Можно вставить уже существующий графический файл или создать его сначала в соответствующем редакторе и затем связать с текущей базой данных. В первом случае выберите в поле «Тип объекта» приложение, в котором вы хотите создать новое изображение, например, «Рисунок Paintbrush». Нажмите кнопку Ок, одновременно запустится программа-редактор. Внедрение объекта в базу данных закончится после того, как вы, создав картинку, закроете графическое приложение.

Для вставки в табличное поле уже существующей картинки выберите второй вариант – активируйте в диалоговом окне переключатель «Создать из файла». Нажмите на кнопку «Обзор…» и укажите путь и имя графического файла с изображением. Желательно на диске иметь картинку в формате.bmp или.dib. По необходимости включите в окне флажок «Связь» – это позволит СУБД отслеживать изменения графического файла и перезагружать изображение в таблице.