Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Перенесено из VB6/MS Access]Как нарисовать прямоугольник, закрашений и не закрашенный 
:(
    Опции темы
Jonnik
Дата 5.12.2007, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 90
Регистрация: 9.2.2006

Репутация: нет
Всего: нет



Подскажите в каком компоненте можно нарисовать длинный рисунок с полосой прокруткой?
Который потом можно будет прокручивать во всех направлениях.
Как рисуется прямоугольник закрашенный и не закрашенный.
Приведеите пример.
Заранее спасибо.
PM MAIL   Вверх
iff
Дата 5.12.2007, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: нет
Всего: 16



Цитата(Jonnik @ 5.12.2007,  11:18)
Как рисуется прямоугольник закрашенный и не закрашенный.

В панели, в той где кнопки, галочки и текстовые поля и т.д. выбири объект Shape.
Что ба закрасить в свойствах поставь:
FillStyle=0-Solid
А в FillColor выбири вкладку Palette, и шёлкни по нужному цвету

Это сообщение отредактировал(а) iff - 5.12.2007, 15:50


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
iff
Дата 5.12.2007, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: нет
Всего: 16



Цитата(Jonnik @ 5.12.2007,  11:18)
с полосой прокруткой?

Для этого установите компонент Microsoft Internet Controls (команда Project|Components), и тогда на панели инструментов Visual Basic появится элемент управления WebBrowser. Поместите его на форму, а затем в событии Form_Load() введите следующий код: 
Код

WebBrowser1.Navigate "filespec"

где filespec — полное имя GIF-файла (включая путь к нему) или URL-адрес. Запустите программу на выполнение, и Visual Basic выведет указанный файл. 
------
или:
http://www.vbzero.narod.ru/chapter1/page_4.htm




--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
Jonnik
Дата 7.12.2007, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 90
Регистрация: 9.2.2006

Репутация: нет
Всего: нет



А как мене быть если у меня VB в Access
как мне там на форме просто нарисовать прямоугольник закрашенный?
PM MAIL   Вверх
Dexx
Дата 7.12.2007, 19:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: нет
Всего: 7



Private Declare Function Rectangle 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

Добавлено через 1 минуту и 15 секунд
Я думаю так...


--------------------

PM   Вверх
Jonnik
Дата 7.12.2007, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 90
Регистрация: 9.2.2006

Репутация: нет
Всего: нет



А с готовым примерчиком можно?
а то я не совсем понял
PM MAIL   Вверх
Akina
Дата 7.12.2007, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Цитата(Jonnik @  7.12.2007,  20:16 Найти цитируемый пост)
А как мене быть если у меня VB в Access

1) В MS Access не VB, а VBA (Visual Basic for Applications). Это хоть и похожие, но разные языки.
2) Тем не менее ответ iff подходит и для этого случая.
3) Вопросы по MS Access следует адресовать либо в форум "MS Access", либо в "Программирование, связанное с MS Office". Поскольку речь не о работе с базой данных, больше подходит второй раздел.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Dexx
Дата 7.12.2007, 21:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: нет
Всего: 7



Может тогда проще  ворд вставить в Access с нарисовонным прямоугольником!!))))))))))))))

Добавлено через 1 минуту и 6 секунд
Там квадратики удобно рисовать, блин

Добавлено через 13 минут и 14 секунд
Ну или еще че по больще покруче,
может там показывать 3d чертеж из Solid Works? Ну или из AutoCad`а
на крайняк из 3D Studio Max! Через ActiveX компонеты! Всё круче получится!


--------------------

PM   Вверх
Dexx
Дата 7.12.2007, 22:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: нет
Всего: 7



А мож Майя использовать?
Отредить и вперд!

Добавлено через 46 секунд
Студию Пиксар позвать на помошь!! как?

Добавлено через 4 минуты и 59 секунд
Ну это уж видео получится!
И проблеммы на порядок выше!!

Добавлено через 6 минут и 5 секунд
В общем попадалово!!! хаха


--------------------

PM   Вверх
Jonnik
Дата 7.12.2007, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 90
Регистрация: 9.2.2006

Репутация: нет
Всего: нет



Цитата(iff @ 5.12.2007,  15:49)
Цитата(Jonnik @ 5.12.2007,  11:18)
Как рисуется прямоугольник закрашенный и не закрашенный.

В панели, в той где кнопки, галочки и текстовые поля и т.д. выбири объект Shape.
Что ба закрасить в свойствах поставь:
FillStyle=0-Solid
А в FillColor выбири вкладку Palette, и шёлкни по нужному цвету

Это не совсем то что мне надо.
я так понял, что мне предлагают перетянуть компонент Shape (Прямоугольник)
и установить ему цвет заливки.
Но мне надо такие прямоугольники создавать програмно сотнями.
и как мне тогда быть?
PM MAIL   Вверх
Akina
Дата 7.12.2007, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Цитата(Jonnik @  8.12.2007,  00:18 Найти цитируемый пост)
мне надо такие прямоугольники создавать програмно сотнями

Ну и создавай программно...
Код

Dim s As Shape
Set s = New Shape
s.FillColor=vbRed
s.FillStyle=vbSolid
s.Top=100
'и так далее



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Jonnik
Дата 8.12.2007, 00:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 90
Регистрация: 9.2.2006

Репутация: нет
Всего: нет



Цитата(Akina @ 7.12.2007,  23:42)
Цитата(Jonnik @  8.12.2007,  00:18 Найти цитируемый пост)
мне надо такие прямоугольники создавать програмно сотнями

Ну и создавай программно...
Код

Dim s As Shape
Set s = New Shape
s.FillColor=vbRed
s.FillStyle=vbSolid
s.Top=100
'и так далее

А можно этот код вставить в проект.
В котором при нажатии на кнопочку будет рисоваться этот прямоугольник и выложить этот проект на форуме. А то у меня не получается заюзать этот код.
Буду очень благодарен.
PM MAIL   Вверх
Akina
Дата 8.12.2007, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Цитата(Jonnik @  8.12.2007,  01:20 Найти цитируемый пост)
А можно этот код вставить в проект.
В котором при нажатии на кнопочку будет рисоваться этот прямоугольник и выложить этот проект на форуме.

Да не вопрос - сделай и выложи. 
Не получается? попробуй почитать документацию по динамическому созданию визуальных объектов в процессе исполнения программы. И попробуй сперва на более простых объектах. Скажем надписях.
А еще можно просто посмотреть, как работает главная кнопочная форма.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Jonnik
Дата 9.12.2007, 16:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 90
Регистрация: 9.2.2006

Репутация: нет
Всего: нет



А не подскажите где такую литературу найти?
А то по этой проблематике не очень то и много написано в инете.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0617 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.