Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Vb в Excel'е. Shape, Timer / 14 сообщений из 14, страница 1 из 1
27.11.2010, 22:56
    #36981122
valgruel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
Знатоки, Помогите неспецу...
Можно ли на панель инструментов (Стандартный Excel'03 + Alt+F11- UseForm...) вывести такие элементы, как Shape (рисование примитивов), Timer, DirListBox и др?


Куда хоть копать (в смысле- что гуглить)?
...
Рейтинг: 0 / 0
27.11.2010, 23:04
    #36981130
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
Тэкс. Начнем с таймера. Application.OnTime его заменит вам скорее всего.
Если не заменит - можно использовать API-шный таймер
...
Рейтинг: 0 / 0
27.11.2010, 23:05
    #36981131
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
Вообще не мешало бы все же определиться: на UserForm надо или все же на Панель инструментов?
...
Рейтинг: 0 / 0
27.11.2010, 23:08
    #36981136
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
Гм. CommonControls выбрать не позволяет - ничего сказать не могу.
Рисование примитивов - не знаю, ну тут ща кто-нить подскажет.

Что касается "и др." - а что именно нужно? Кое-что можно подключить. Например RichTextBox
...
Рейтинг: 0 / 0
27.11.2010, 23:08
    #36981139
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
The_PristВообще не мешало бы все же определиться: на UserForm надо или все же на Панель инструментов?
он, видимо, имел ввиду панель, которая появляется при редактировании UserForm
...
Рейтинг: 0 / 0
27.11.2010, 23:22
    #36981159
valgruel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
авторЧто касается "и др."
ListBox, выборка файла, РИсование, многострочный TextBox

авторпанель, которая появляется при редактировании UserForm
разумеется, желательно именно это - на панель, или хотя бы обращение в коде
...
Рейтинг: 0 / 0
27.11.2010, 23:32
    #36981171
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
valgruelListBox, многострочный TextBox
ну это-то там и так есть
...
Рейтинг: 0 / 0
27.11.2010, 23:34
    #36981177
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
valgruel,

Ну подключать различные элементы можно через Tools-AdditionalControls(активировав любую Userform в редакторе).
Можно воткнуть и сторонние библиотеки и использовать имеющиеся в них контролы. Но тогда следует учитывать, что при запуске на другом компьютере - получите ошибку, при отсутствии соответствующей библиотеки на нем. Хотя это, я думаю, Вы знаете и без меня.
...
Рейтинг: 0 / 0
27.11.2010, 23:34
    #36981178
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
valgruelвыборка файла
Microsoft Common Dialog можно добавить через additional controls
...
Рейтинг: 0 / 0
27.11.2010, 23:54
    #36981200
valgruel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
На счет файлов мысли появились. Спасибо всем.

А как бы порисовать примитивами на форме?
...
Рейтинг: 0 / 0
29.11.2010, 11:16
    #36982729
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
valgruel,

можно так.
...
Рейтинг: 0 / 0
29.11.2010, 21:33
    #36984666
valgruel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
Бенедикт,

Большое спасибо. Правда, это не совсем то, что хотелось. Нужно, чтобы каждый элемент (прямоугольник, линия, овал и др.) воспринимался как отдельный объект со свойствами (как минимум) Vizible, Enable


Но пример хороший и пригодится попозже.
Поэтому, и вопрос:

Вот сам Ваш пример работает и картинку рисует.
Пробую создать аналогично, - не получается. Ошибка компиляции (см.рисунок в файле).
Останавливается тут:

Private Sub UserForm_Initialize()
Set c = New CDrawingSurface
c. Init 200, 100
End Sub


Может я не правильно что-то делаю? Например с "Modules" и "Class Modules"? Я их просто создаю (через Insert) и переименовываю...
...
Рейтинг: 0 / 0
30.11.2010, 00:45
    #36984896
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
valgruel,

Это странно... Option Explicit используется? Переменную "с" правильно определили, с русской не перепутали?
Может выложите файл - посмотрим.
...
Рейтинг: 0 / 0
30.11.2010, 11:37
    #36985525
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vb в Excel'е. Shape, Timer
valgruelНужно, чтобы каждый элемент (прямоугольник, линия, овал и др.) воспринимался как отдельный объект со свойствами (как минимум) Vizible, EnableНаличие свойства Enabled для элемента управления означает наличие интерактивности. Так вот, желаемое наличие Enabled означает желание наличия интерактивности для примитива? Просто напомню, что у VB.Shape её нет (рисуется, но ни фокус клавиатурного ввода принять не может, ни мышиных событий не имеет).

valgruelВот сам Ваш пример работает и картинку рисует.
Пробую создать аналогично, - не получается. Ошибка компиляции (см.рисунок в файле).Действительно, странно. Либо то, что сказал Shocker.Pro, либо метод Init переименован или его область видимости стала описана как Private. Проверьте ещё, на всякий случай, отсутствие битых ссылок в References. Если не победите, выложите файл.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Vb в Excel'е. Shape, Timer / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]